Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Erreur d'exécution '1004' : La méthode Select de la classe Range a échoué

3 réponses
Avatar
thomasya
Bonjourà tous,

Mon probleme est le suivant : à l'excution de ce code :

Sub CommandButton1_Click()

Windows(test.xls).Activate

Columns("CF:IV").Select
Selection.Delete Shift:=xlToLeft

End Sub

je recoi une erreur Microsoft Visual Basic :
"Erreur d'exécution '1004' : La méthode Select de la classe Range a échoué."
sur la ligne "Columns("CF:IV").Select".

Comment dois-je faire pour pouvoir selectionner des colonnes et les
supprimer dans un autre fichier excel que celui ou est mon code VB

Merci d'avance
Yannick

3 réponses

Avatar
papou
Bonjour Yannick
Fonctionne pour moi avec Excel 2000 :
Windows("test.xls").Activate
Columns("CF:IV").Delete Shift:=xlToLeft

Cordialement
Pascal

"thomasya" a écrit dans le message de news:
#
Bonjourà tous,

Mon probleme est le suivant : à l'excution de ce code :

Sub CommandButton1_Click()

Windows(test.xls).Activate

Columns("CF:IV").Select
Selection.Delete Shift:=xlToLeft

End Sub

je recoi une erreur Microsoft Visual Basic :
"Erreur d'exécution '1004' : La méthode Select de la classe Range a
échoué."

sur la ligne "Columns("CF:IV").Select".

Comment dois-je faire pour pouvoir selectionner des colonnes et les
supprimer dans un autre fichier excel que celui ou est mon code VB

Merci d'avance
Yannick





Avatar
thomasya
chez moi aussi ca marche si je passe par une macro, mais si je passe
directement par un bouton Visual Basic que je met dans ma feuille base.xls
ca ne marche plus.
Donc je suis obligé de faire une macro, puis de faire un bouton qui lance
cette macro, au lieu d'avoir uniquement le bouton avec tout dedans

"papou" a écrit dans le message de news:

Bonjour Yannick
Fonctionne pour moi avec Excel 2000 :
Windows("test.xls").Activate
Columns("CF:IV").Delete Shift:=xlToLeft

Cordialement
Pascal

"thomasya" a écrit dans le message de news:
#
Bonjourà tous,

Mon probleme est le suivant : à l'excution de ce code :

Sub CommandButton1_Click()

Windows(test.xls).Activate

Columns("CF:IV").Select
Selection.Delete Shift:=xlToLeft

End Sub

je recoi une erreur Microsoft Visual Basic :
"Erreur d'exécution '1004' : La méthode Select de la classe Range a
échoué."

sur la ligne "Columns("CF:IV").Select".

Comment dois-je faire pour pouvoir selectionner des colonnes et les
supprimer dans un autre fichier excel que celui ou est mon code VB

Merci d'avance
Yannick









Avatar
thomasya
ca marche nickel.

Merci Papou


"papou" a écrit dans le message de news:

Bon j'ai répondu trop vite !
Je corrige donc :
Windows("test.xls").Activate
ActiveSheet.Columns("CF:IV").Delete Shift:=xlToLeft

Cordialement
Pascal

"papou" a écrit dans le message de news:

Bonjour Yannick
Fonctionne pour moi avec Excel 2000 :
Windows("test.xls").Activate
Columns("CF:IV").Delete Shift:=xlToLeft

Cordialement
Pascal

"thomasya" a écrit dans le message de news:
#
Bonjourà tous,

Mon probleme est le suivant : à l'excution de ce code :

Sub CommandButton1_Click()

Windows(test.xls).Activate

Columns("CF:IV").Select
Selection.Delete Shift:=xlToLeft

End Sub

je recoi une erreur Microsoft Visual Basic :
"Erreur d'exécution '1004' : La méthode Select de la classe Range a
échoué."

sur la ligne "Columns("CF:IV").Select".

Comment dois-je faire pour pouvoir selectionner des colonnes et les
supprimer dans un autre fichier excel que celui ou est mon code VB

Merci d'avance
Yannick