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 :
j'ai tenté une autre option également :
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
Une erreur num:1004 apparaît dans les lignes en rouge.
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
Merci a l'avance
P.S : je commence à la ligne 2 parce que je n'ai pas besoin de l'entête
Partager