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

7book1.zip (13.28 Ko)

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 Sub

En 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 Sub

En espèrant que cela t'aide ...

Bonjour,

C'est parfait merci infiniment !

Bonjour,

Merci pour tes remerciements

Rechercher des sujets similaires à "copier coller fois"