Qui peut m'aider sur une Macro VBA Excel ?

Adele75

Membre junior
11 Février 2011
70
0
Bonsoir,
je suis bloquée et néophyte sur une macro: est-ce que quelqu'un pourrait m'aider SVP?
j'ai réussi les premières étapes, mais pour les plus compliquées, c'est une autre histoire ;)

voilà; j'ai une base de données excel
magasins famille prix nb REF
magasin 1 produit 1 19 4
magasin 2 produit 2 25 3

en colonne 4, j'ai le nombre de références du produit. dans un nouvel onglet, je voudrais avoir les mêmes colonnes, mais insérer pour chaque produit, autant de lignes qu'il y a des références (moins une pour la ligne déjà saisie).
Par exemple je voudrais obtenir pour la ligne 1 de ma BDD
magasin 1 produit 1 19
magasin 1 produit 1 19
magasin 1 produit 1 19
magasin 1 produit 1 19
je n'arrive pas à automatiser l'ajout du nombre de lignes en fonction du nb REF...
Merci pour votre aide et pour vos neurones !!!:D
 

Aliboron

Chercheur de son
Modérateur
Club MacG
1 Janvier 2008
13 203
733
Toulouse.cong
faq.office.macintosh.free.fr
Dans ton exemple, et en nommant les feuilles "Base" et "Liste", tu peux faire ceci :

Bloc de code:
Sub AjouterListe()
FinListe = Worksheets("Base").Range("A1048576").End(xlUp).Row
For i = 2 To FinListe

NombreLignes = Worksheets("Base").Range("D" & i)
DernierePrise = Worksheets("Liste").Range("A1048576").End(xlUp).Row
Worksheets("Base").Range("A" & i & ":C" & i).Copy

j = 0
For j = 1 To NombreLignes

Worksheets("Liste").Range("A" & DernierePrise + j).Select
Selection.PasteSpecial Paste:=xlPasteValues

Next j

Next i

End Sub
 

Adele75

Membre junior
11 Février 2011
70
0
Merci beaucoup ! Ca marche en effet; j'y aurais passé la nuit que je n'aurais jamais trouvé cela toute seule !!!:up:
You are a Star !!!