OVH Cloud OVH Cloud

Copie d'une plage dans un autre classeur en transposant... !

1 réponse
Avatar
Domi
Bonjour,

Voici un exemple de code pour copier une plage dans un emplacement
spécifique d'un autre classeur.

Range("D1", Range("A10000").End(xlUp)).Copy
Destination:=Workbooks("PreviCharge.xls").Sheets("IMPORT_TPS").Range("A6")

ça marche impec...

Question : comment faire la même chose en tranposant les données sur
l'emplacement de destination.
Je ne sais pas si transpose peut-être casé dans cette syntaxe...

Je suis preneur de toute suggestion.
Merci
Domi

1 réponse

Avatar
anonymousA
Bonjour,

il faudra faire la copie en 2 étapes : une étape de copie ( par copy)
mais sans destination puis une étape de collage special ( PasteSpecial
avec l'info de transposition)
Mais tu peux faire tout ca à la main et regarder ce que te donne
l'enregistreur automatique de macros puis adpater. C'est très facile

A+

Domi wrote:
Bonjour,

Voici un exemple de code pour copier une plage dans un emplacement
spécifique d'un autre classeur.

Range("D1", Range("A10000").End(xlUp)).Copy
Destination:=Workbooks("PreviCharge.xls").Sheets("IMPORT_TPS").Range("A 6")

ça marche impec...

Question : comment faire la même chose en tranposant les données sur
l'emplacement de destination.
Je ne sais pas si transpose peut-être casé dans cette syntaxe...

Je suis preneur de toute suggestion.
Merci
Domi