Boucle en VBA

[pascalv80]

Bonjour
Je débute en VBA et je suis bloqué dans mon code. Je désire faire une boucle me permettant de copier une plage de cellules autant de fois qu'un nombre positionné sur une autre feuille.
Je m'explique: ma plage se trouve en feuille 1 ("a1:k300") et le nombre de fois à copier celle ci se trouve en feuille 2 (b1)
Le but, c'est que ma plage soit dupliquée à la suite autant de fois qu'indiqué en B1.
Quelqu'un peut il m'aider?
Merci d'avance,

 

[Fred0o]

Re : Boucle en VBA

Bonsoir pascalv80,

Bienvenue sur le forum. Tout d'abord, je t'invite à Lien supprimé, qui précise certaines règles et principes, notamment le fait de joindre un fichier exemple. Cependant en aveugle, je te propose de tester le code suivant :

Sub Essai()
    Dim i As Integer, dl As Integer
    For i = 1 To Sheets("Feuil2").Range("B1")
        dl = Range("A1").End(xlDown).Row + 1
        Sheets("Feuil1").Range("A1:K300").Copy Destination:=Sheets("Feuil1").Range("A" & dl)
    Next
    Application.CutCopyMode = False
End Sub

A+

 

[Habitude]

Re : Boucle en VBA

Bonjour

Autre solution, sans boucle

Sub test()
Range("A1:A" & Range("A65536").End(xlUp).Row).Copy Range("A1").Resize(Range("A65536").End(xlUp).Row * (Sheets("Feuil2").Range("B1") + 1), 1)
End Sub