Boucle pour copie

Bonjour à tous et toutes

un code à régler, je ne trouve pas la solution

Copier un certain nombre de fois la zone définie

Merci de m'aider encore une fois

Pierrot

Sub Macro1()
     For x = 1 To 5
      Application.Goto Reference:="Zone_Copie"
     Selection.Copy
    ActiveCell.Offset(25, 0).Range("A1").Select
     ActiveSheet.Paste
     ActiveCell.Offset(25, 0).Range("A1").Select
    Next x
    Range("A1").Select
'remplacer la valeur de la boucle par un TextBox ou l'utilisateur pourra entrer la valeur de son choix

End Sub

Bonjour,

je suppose que zone_copie est un objet range (une plage de cellule) ?

Après je ne comprend pas cette ligne de code :

ActiveCell.Offset(25, 0).Range("A1").Select

de la cellule active, on se décale de 25 ligne et de 0 colonne et on sélectionne la cellule A1 ?!

personnellement je ne vois pas, au regard de mon niveau en VBA...

Après je vois bien la boucle x qui "tourne" 5 fois, mais la copie s'effectue où ? je ne vois pas de ligne de code disant de copier à des endroits différent du style cells(5 * x,1).past par exemple, là on voit bien qu'a chaque boucle on déplace la cellule de x fois 5 la ligne de la cellule de réception de la copie...

dans l'attente de précision...

@ bientôt

LouReeD

Bonjour Pierre,

bonjour LouReed,

A tester :

Sub Macro1()
    Application.ScreenUpdating = False
    With Range("Zone_Copie")
        .Copy
        For x = 1 To 5
            ActiveSheet.Paste Destination:=.Offset(25 * x, 0)
        Next x
    End With
    Application.CutCopyMode = False
    Range("A1").Select
End Sub

A+

Bonjour, frangy, LouReed,

Merci a vous deux ta version frangy, fonctionne à merveille

Un tout grand merci

Amitiés

Pierrot

C'est exactement ce que je voulais faire !

on le voit bien le x fois quelquechose pour créer le décalage des copies multiples

Bravo à vous et bonne fin de journée !

@ bientôt

LouReeD