Copier / coller X fois
Bonjour à tout le monde,
J'aimerais savoir si c'est possible de faire ce genre d'operation sur excel
Je cherche à faire un copier / coller N fois sur plusieurs ligne
Par exemple :
A1 : 5 cm
A2 : 10 cm
A3 : 15 cm
A4 : 20 cm
A5 : 25 cm
A6 : 30 cm
Je souhaite copier le contenu de la colonne A1 à A6 (5 cm, 10 cm, 15 cm, 20 cm, 25 cm, 30 cm), plusieurs fois sur la colonne B par exemple (des milliers de fois c'est pour ça je cherche à ne pas le faire manuellement)
Le fichier joint est un exemple de ce que je souhaite faire.
Je vous remercie d'avance de votre aide
Bonjour,
Etonnant ... réponse précédente a disparu ...!!!
Sub MultCopies()
Dim NumCopies As Long, Lastrow As Long
Dim MyRange As Range
Dim i As Long
'Change this to the amount of time to copy
NumCopies = 5
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Set MyRange = Range("A1:A" & Lastrow)
For i = 1 To NumCopies * 13 Step 13
MyRange.Copy Destination:=Cells(i, 2)
Next i
End SubEn espèrant que cela t'aide ...
Bonjour,
Etonnant ... réponse précédente a disparu ...!!!
Sub MultCopies() Dim NumCopies As Long, Lastrow As Long Dim MyRange As Range Dim i As Long 'Change this to the amount of time to copy NumCopies = 5 Lastrow = Cells(Rows.Count, "A").End(xlUp).Row Set MyRange = Range("A1:A" & Lastrow) For i = 1 To NumCopies * 13 Step 13 MyRange.Copy Destination:=Cells(i, 2) Next i End SubEn espèrant que cela t'aide ...
Bonjour,
C'est parfait merci infiniment !
Bonjour,
Merci pour tes remerciements