VBA erreur 9
Résolu
tetro14
Messages postés
8
Date d'inscription
Statut
Membre
Dernière intervention
-
tetro14 Messages postés 8 Date d'inscription Statut Membre Dernière intervention -
tetro14 Messages postés 8 Date d'inscription Statut Membre Dernière intervention -
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 :
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
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
A voir également:
- VBA erreur 9
- Erreur 0x80070643 - Accueil - Windows
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
- Erreur 4101 france tv - Forum Lecteurs et supports vidéo
- Erreur 4201 france tv ✓ - Forum Réseaux sociaux
- J'aime par erreur facebook notification - Forum Facebook
1 réponse
Bonjour,
Pas d'erreur chez moi avec votre code !!!
Sans select, plus simple
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
tetro14
Messages postés
8
Date d'inscription
Statut
Membre
Dernière intervention
un grand merci, cela a fonctionné du premier coup
