copier coller avec 2 boucles

[nrv]

salut a tous....

cette macro me colle la ligne de ("O1:U1") 10 fois de suite en commenssant en ("g1") gonc ....
G1 = ("O1:U1")
G2 = ("O1:U1")
G3 = ("O1:U1")
........
........
G10 = ("O1:U1")

Sub Macro1ZOLIE()

Range("O1:U1").Copy
For N = 1 To 10
ActiveSheet.Paste Destination:=Range("G" & N)
Next
Application.CutCopyMode = False

End Sub




Maintenat je voudrais refaire la meme chose mais avec la ligne ("O2:U2")

j avais panser a sa mais sa marche pas ......

Dim i As Byte
For i = o To 4
Dim N As Byte
x = "O1:U1"
Range(x,(0,i)).Copy
For N = 1 To 10
ActiveSheet.Paste Destination:=Range("G" & N)
Next N
Application.CutCopyMode = False
Next i
End Sub


si qqun pouvais me dire ou et le pb sa serrais sympa

 

[@+Thierry]

Salut Nrv, le Forum

Tiens la macro Lien supprimé çà me rappelle quelque chose où l'intervenant(e) n'est jamais revenu(e)...(copier coller sur N fois.....)

Enfin pour revenir à nos moutons, sans s'NRV lol, je ne saisis pas du tout où tu veux coller le résultat ? car le "For N = 1 To 10" va ré-écraser les cellules "G" systématiquement au second passge de la Boucle "i"...

Enfin déjà pour que la syntax soit correcte voici une procédure qui va Copier les Cellules "A1:B1" et les Coller 10 fois en Dernière Ligne Vide de "G" à la suite... En second passage, cette macro va copier "A2:B2" et les Coller 10 fois en Dernière Ligne Vide de "G" à la suite des 10 première copies, soit un total de 20 copies...

Sub MacroZOLIE_ZOLIE()
Dim i As Byte, N As Byte, L As Integer

L = Range("G65536").End(xlUp).Row
If L = 1 Then L = 0

For i = 1 To 2
Range("A" & i & ":B" & i).Copy

For N = 1 To 10
With ActiveSheet
L = L + 1
.Paste Destination:=Range("G" & L)
End With
Next N

Next i
Application.CutCopyMode = False
End Sub

Si celà te permet de mieux comprendre la syntax et le processus ...

Bonne Soirée
@+Thierry

 

[nrv]

merci sa marche bien...

c'est super sympa......