web-dev-qa-db-fra.com

Excel VBA - Range.Copy transpose paste

J'essaie de faire quelque chose de très simple, mais il me semble que je suis coincé. Je suis le menu d'aide de PasteSpecial mais je n'arrive pas à faire fonctionner mon code sans erreur.

Je veux prendre Worksheets("Sheet1").Range("A1","A5") et coller la transposition dans Worksheets("Sheet2").Range("A1","E1").

Quelle est la manière la plus simple d'y parvenir?

12
user1130306
Worksheets("Sheet1").Range("A1:A5").Copy
Worksheets("Sheet2").Range("A1").PasteSpecial Transpose:=True
34
GSerg