Copier coller x fois...

choupi_nette · 14 Février 2011

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 · 14 Février 2011

Re : Copier coller x fois...

Bonjour Choupi_Nette 🙂,

Code:

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 · 14 Février 2011

Re : Copier coller x fois...

Merci beaucoup
Rapide et precis

tototiti2008 · 14 Février 2011

Re : Copier coller x fois...

Bonjour choupinette, Bonjour JNP,

une autre proposition

Code:

    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...

Copier coller x fois...

choupi_nette

XLDnaute Occasionnel

JNP

XLDnaute Barbatruc

choupi_nette

XLDnaute Occasionnel

tototiti2008

XLDnaute Barbatruc

Discussions similaires

Copier coller x fois...

choupi_nette

XLDnaute Occasionnel

JNP

XLDnaute Barbatruc

choupi_nette

XLDnaute Occasionnel

tototiti2008

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency