VBA Copier 50 fois la meme ligne

[pepsi]

Je cherche à intégrer 50 fois la meme ligne copiée :

Je procède ainsi, mais evidement il en intégre qu'une. Il faudrait qu'il intègre 50 fois lla ligne 100 copiée ...

Comment je fais pour indiquer "50 fois " ?

Merci d'avance

Rows(100).Copy
Range("A65536").End(xlUp).Offset(1, 0).Select
Selection.Insert Shift:=xlDown

 

[kjin]

Re : VBA Copier 50 fois la meme ligne

Bonjour,

For i = 1 To 50
Rows(100).Copy Range("A65536").End(xlUp).Offset(1, 0)
Next

A+
kjin

 

[Dranreb]

Re : VBA Copier 50 fois la meme ligne

Bonjour kjin,
Heu... Il me semble que ça écrase, ça, ça n'insère pas...

 

[chris]

Re : VBA Copier 50 fois la meme ligne

Bonjour

Remplacer dans ta macro

Range("A65536").End(xlUp).Offset(1, 0).Select
Selection.Insert Shift:=xlDown

par

x = Range("A65536").End(xlUp).Offset(1, 0).Row
Rows(x & ":" & x + 50).Insert Shift:=xlDown

Edit : si tu insères, comme il semble, après la dernière ligne tu peux plus simplement utiliser

x = Range("A65536").End(xlUp).Offset(1, 0).Row
Rows(x & ":" & x + 50).paste

Edit 2 : salut Klin : les grands esprits se rencontrent

 

[kjin]

Re : VBA Copier 50 fois la meme ligne

Bonjour,

Heu... Il me semble que ça écrase, ça, ça n'insère pas...

Ca écraserai quoi, sur la première ligne vide, parce que si je ne me trompe, il s'agit bien de cela, à moins que notre ami ne se contredise lui-même ?!

 

[Dranreb]

Re : VBA Copier 50 fois la meme ligne

Juste.

Dans ce cas, ceci devrait aussi faire l'affaire :

Rows(100).Copy
Range("A65536").End(xlUp).Offset(1, 0).Resize(50).Select
ActiveSheet.Paste

 

[kjin]

Re : VBA Copier 50 fois la meme ligne

Bonjour,

Dans ce cas, ceci devrait aussi faire l'affaire...

Non ! 😀

Rows(100).Copy Range("A65536").End(xlUp).Offset(1, 0).Resize(50)

A+
kjin

 

[Dranreb]

Re : VBA Copier 50 fois la meme ligne

Mieux, d'accord. Mais ferait aussi l'af... enfin peu importe.

 

[kjin]

Re : VBA Copier 50 fois la meme ligne

Re, salut Chris 🙂
@Dranreb, c'était juste une boutade...! 🙂
L'amie pepsi aura l'embarras du choix...mais je sens venir le...ah mais non, c'est pas ça que je veux faire...et on aura tous faux 😀

Edit : Désolé Pepsi, j'ai rectifié
A+
kjin

 

[pepsi]

Re : VBA Copier 50 fois la meme ligne

L'amie pepsi vous remercie, c'était bien ce que je cherchais à faire !

 

[kjin]

Re : VBA Copier 50 fois la meme ligne

Re,

L'amie pepsi vous remercie, c'était bien ce que je cherchais à faire !

Désolé, j'ai rectifié...
A+
kjin