VBA erreur 9 Résolu/Fermé

Question

Bonjour, je cherche a faire un copier-coller(transposer) avec VBA mais le code d'erreur 9 m’apparaît.en bref, je voudrais que que la colonne A de la feuille Sheets1 soit copier et transposer dans la feuille asset. Voici le code : 

Sub Transpose()
'
' Transpose Macro

Sheets("Sheet1").Select
    Sheets("sheet1").Range("A2").Select
    Sheets("sheet1").Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("ASSET").Select
    Sheets("ASSET").Range("E5").Select  'ERREUR ICI
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
End Sub

le code m’apparaît a l'étape de la ligne indiquée
P.S : si je ne spécifie pas les feuille j'ai un code d'erreur 1004 
merci a l'avance  

Configuration: Windows 7 / Chrome 47.0.2526.73

f894009 · Answer

Bonjour,

Pas d'erreur chez moi avec votre code !!!

Sans select, plus simple

Sub Transpose()
'
' Transpose Macro
    With Sheets("sheet1")
        .Range("A2:A" & .Range("A" & Rows.Count).End(xlUp).Row).Copy
    End With
    Sheets("ASSET").Range("E5").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
End Sub

VBA erreur 9

1 réponse

Discussions similaires