Répliquer une ligne par rapport a un nombre qui définis la quantité.

[Greg]

Bonjour et au secours,

J'ai un fichier d'adresse qui est composé de plusieur colonne Quantité,nom,prénom,adresse,cp,ville etc....

La colonne quantité définis le nombre de fois en tout que l'adresse doit être copiée en faisant bien attention de ne pas écraser d'autre adresse qui se trouverait en dessous de celle-ci.

Est-ce possible ?

Merci d'avance pour votre aide.

Bien à vous

P.S : ci joint un exemple de fichier que j'ai coupé.

 

[Valérie]

Salut Greg,

Un petit code qui te permettra de recopiée ton adresse le nombre de fois indiquée en colonne A

Sub recopieu()
Dim CELLULE As Range
Set CELLULE = Range("A2")
Do While CELLULE <> ""
CELLULE.Range("A1:O1").Copy
CELLULE.Range("A1:O" & CELLULE).Insert Shift:=xlDown
Set CELLULE = CELLULE.Offset(1, 0)
Loop
Application.CutCopyMode = False
End Sub

Une petite boucle Do While (tant que) permettant de passer sur toute les cellules de la colonne A jusqu'à la première cellule vide. Un copiage, puis une insertion sur autant de ligne que précisé en colonne A. Et voilà le tour est joué.

En espérant que cela te conviendra
@ bientôt