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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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