copier coler sur N fois.....

[zolie]

salut a tous...

je voudrais qu'il le face N fois .....

la il le fais sur une ligne....

Range("S1:W1").Select
Selection.Copy
Range("H1").Select
ActiveSheet.Paste

par avance merci ... je sais c lamentable comme niveau ... est sacher le bien que j'en ai honte .....

 

[Franck]

for i=1 to N
Range("S" & i & ":W" & i).Select
Selection.Copy
Range("H" & i).Select
ActiveSheet.Paste
next

 

[@+Thierry]

Bonsoir Zolie, le Forum

Tout d'abord personne ne doit avoir honte, nous ne sommes pas nés en sachant même marcher, alors le VBA c'est venu bien plus tard !! lol

Si tu veux copier "N" fois il suffit de faire une boucle, dans cet exemple je veux coller de H1 à H10 :

Sub Zolie()
Dim N As Byte

Range("S1:W1").Copy

For N = 1 To 10 ' <<< ici tu changes le nombre de lignes
ActiveSheet.Paste Destination:=Range("H" & N)
Next

Application.CutCopyMode = False '<<< ici c'est pour restaurer la sélection "scintillante" de la copie

End Sub


Si je voulais copier et coller de H10 à H20, j'écrirais :
For N = 10 To 20

et si je voulais coller de H1 à H20 mais qu'une ligne sur 2 j'écrirais
For N = 10 To 20 Step 2

Ce n'est pas très difficile. Ci tu veux copier plus de 250 fois par contre il faut changer la déclaration de Variable "Dim N as Byte" (jusqu'à 250) en tant que Dim N As Integer" (jusqu'à 32767) ou as Long (jusqu'à plus de 2 milliards)

Bonne Découverte du VBA
et bon week end
@+Thierry

 

[@+Thierry]

Re bonsoir Zolie, Bonsoir Franck

En lisant ta proposition je me rends compte que je n'ai peut-être pas interprété la demande correctement !

Oui si la source de la copie doit être aussi incrémenté dynamiquement alors j'écrirais :

Sub ZolieBis()
Dim N As Byte

For N = 1 To 10
Range("S" & N & ":W" & N).Copy
ActiveSheet.Paste Destination:=Range("H" & N)
Next

Application.CutCopyMode = False

End Sub

On peut éviter les "Select" et "Selection" qui, dans ce cas, ne font que faire un "feu d'artifice" à l'écran et ralentissent la procédure.

Bonne Soirée
@+Thierry