VBA Copier et transposer un plage de donnée
Bonjour, je cherche a copier un colonne de donnée (colonne A de la page 1) et la coller-transposer dans la page "ASSET" ligne 5 débutant a la colonne E. Voici mon code :
Code:
1 2 3 4 5 6 7
| Sub Test()
Worksheets("Sheet1").Range("A2:A114000").Copy
Worksheets("ASSET").Cells(5, 5).End(xlToRight).PasteSpecial Transpose:=True
End Sub |
j'ai tenté une autre option également :
Code:
1 2 3 4 5 6 7 8 9
| Sub Transpose()
'
' Transpose Macro
Sheets("Sheet1").Cells(2, 1).Select
Sheets("Sheet1").Range(Selection, Selection.End(xlDown)).Select.Copy
Sheets("ASSET").Range("E5").End(xlToRight).PasteSpecial Transpose:=True
End Sub |
Une erreur num:1004 apparaît dans les lignes en rouge.
Merci a l'avance
P.S : je commence à la ligne 2 parce que je n'ai pas besoin de l'entête