Copier coller x fois...

[choupi_nette]

Bonjour le forum,

petite prise de tete pour ecrire un copier coller en VBA

j'ai une valeur (qui peut changer) dans une cellule F1 "feuille1"
Je voudrais qu'en fonction de cette valeur, ca me fasse un copier coller "F1" fois.
La zone a copier coller va de B2 à E2

Exemple:

En F1 j'ai 3 comme valeur

La macro copie B2 a E2
Et colle 2 (2+1 fois déjà écrit = 3 !!) fois en dessous (ce qui veut dire qu on a la même chose Sur 3 lignes jusqu'à E4)

Merci

 

[JNP]

Re : Copier coller x fois...

Bonjour Choupi_Nette 🙂,

Sub Test()
Dim I As Integer
For I = 3 To Range("F1").Value + 1
Range("B2:E2").Copy Range("B" & I)
Next I
End Sub

Bonne soirée 😎

 

[choupi_nette]

Re : Copier coller x fois...

Merci beaucoup
Rapide et precis

 

[tototiti2008]

Re : Copier coller x fois...

Bonjour choupinette, Bonjour JNP,

une autre proposition

    Range("B3:E65536").Clear
    Range("B2:E2").Copy Range("B2:E" & Range("F1").Value + 1)
    Application.CutCopyMode = False

Edit : Oups, correction sur la ligne Copy...