VBA Collage special

[Bruce68]

Bonsoir à tous
Je suis en feuil1 et je veux coller Plusieurs lignes en feuil2("Serie") par collage special que faut il mettre au bout de la phase, pour ne faire qu'une seule ligne si possible

Range("A" & i & ": R" & i).Copy Sheets("Serie").Range("A65536").End(xlUp).Offset(1, 0)

Merci à tous

 

[skoobi]

Re : VBA Collage special

Bonsoir,

je crois que ce n'est pas possible de faire un copier-collage spécial en VBA sur une seule ligne, il faut aller à la ligne pour le collage spécial.
Exemple:
ce qui marche:

range("a1:d4").copy
sheets(2).range("a65536").end(xlup).offset(1,0).pastespecial xlPasteValues

ce qui plante:

Range("a1:d4").Copy Sheets(2).Range("a65536").End(xlUp).Offset(1, 0).PasteSpecial(xlPasteValues)

 

[skoobi]

Re : VBA Collage special

Re,

euh je suis allé un peut vite (":" après copy):

Range("a1:d4").Copy[B][COLOR="Blue"]:[/COLOR][/B] Sheets(2).Range("a65536").End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues)

😀 😀

 

[Bruce68]

Re : VBA Collage special

Merci SKOOBI pour ton cela fonctionne

Bonne soirée à tous