N
nrv
Guest
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
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