Qui peut m'aider sur une Macro VBA Excel ?

[Adele75]

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 !!!

 

[Aliboron]

Dans ton exemple, et en nommant les feuilles "Base" et "Liste", tu peux faire ceci :

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]

Merci beaucoup ! Ca marche en effet; j'y aurais passé la nuit que je n'aurais jamais trouvé cela toute seule !!!
You are a Star !!!