Copier coller automatique

[Shark79]

Bonjour,
Voilà, ma question :
Comment sous Excel, copier X fois une plage de cellules, en fonction d'un nombre entré dans une cellule indépendante ? Je m'explique, sur une feuille j'ai un formulaire que je désire copier/coller autant de fois qu'un nombre inscrit dans une cellule indépendante. Si dans cette cellule indépendante je tape "4", je veux que mon formulaire (composé de plusieurs cellules) se copie 4 fois à la suite les uns des autres. Merci d'avance de votre aide.

 

[Pierrot93]

Re : Copier coller automatique

Bonjour,
regarde peut être le code ci dessous, le nombre de fois dont la copie doit se
faire en A1 sur la feuil1, copie autant de fois les cellules A1 A30 de la
feuille 2 vers la feuille 3.

Sub test()
Dim i As Byte
For i = 1 To Sheets("Feuil1").Range("A1").Value
    Sheets("Feuil2").Range("A1:A30").Copy Sheets("Feuil3").Range("A1:A" & Range("A65536").End(xlUp).Row)
Next i
End Sub

nom des feuilles et plages de cellules à adapter.

bonne journée
@+