poignée de recopie

[ludo]

bonsoir!
quelqu'un connait-il l'instruction sous vbe qui équivaut à tirer la poignée de recopie ou à copier 5 fois une plage de cellules ?
exemple: j'ai un tableau entre les cellules a1 et e5.
je désire recopier ce tableau de f1 jusqu'à z1
si je tape:
Range("a1:e5").Copy Destination:=Range("f1")
vbe copie une seule fois le tableau entre f1 et j1.
si je tape:
Range("a1:e5").Copy Destination:=Range("f1:z1")
vbe m'indique un message d'erreur.

Comment faire pour lui dire de recopier le tableau 5 fois ou alors de recopier le tableau entre les cellules f1 et z1 ?
merci pour votre réponse.
Ludo.

 

[Dan]

Bonsoir,

Essaie l'instruction suivante ;
Range("A1:E5").select
Selection.AutoFill Destination:=Range("A1:J5"), Type:=xlFillDefault

Bon travail

@+ Dan

 

[Robert]

Salut Ludo, salut le forum,

Voici deux méthodes :

For x = 1 To 5
Range("A1:E5").Copy Destination:=Range("IV1").End(xlToLeft).Offset(0, 1)
Next x

ou

Range("A1.E5").AutoFill Destination:=Range("A1:AD5")

À plus,

Robert

 

[Robert]

Salut Dan,

Tu as été le plus prompt et je n'avais pas actualisé. Désolé pour cette redondance.

À plus,

Robert