Logo GNT
Actualités Tests & Guides Bons Plans
Prime Day iPhone 16 Copilot PS5 Pro Xiaomi 15 ChatGPT Tesla
Entraide Applications Microsoft Office Excel Erreur dans code simple

Erreur dans code simple

8 réponses
Avatar
Franck
Bonjour,

J'ai un bouton de commande, le but : on clique, il nous=20
s=E9lectionne la feuille 2 cellule A4 mon code :

Private Sub CommandButton2_Click()
Sheets("Feuil2").Activate
Range("a4").Select
End Sub

ne fonctionne pas : [Erreur 404 - La m=E9thode Select de la=20
classe Range a =E9chou=E9]

Comment se fait ce (sans mauvais jeux de mot ) ?
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
AV
Private Sub CommandButton1_Click()
Application.Goto Reference:="Feuil2!R4C1"
End Sub

Si tu es sous XL97 mets aussi la propriété "TakeFocusOnClick" du bouton à False

AV

"Franck" a écrit dans le message news:
092d01c33f0e$ccec34f0$
Bonjour,

J'ai un bouton de commande, le but : on clique, il nous
sélectionne la feuille 2 cellule A4 mon code :

Private Sub CommandButton2_Click()
Sheets("Feuil2").Activate
Range("a4").Select
End Sub

ne fonctionne pas : [Erreur 404 - La méthode Select de la
classe Range a échoué]

Comment se fait ce (sans mauvais jeux de mot ) ?
Avatar
Franck
Même plantage


-----Message d'origine-----
Bonjour,

Suggestion:

Private Sub CommandButton2_Click()
Sheets("Feuil2").Select
Range("a4").Select
End Sub


Cordialement
Michel
-----Message d'origine-----
Bonjour,

J'ai un bouton de commande, le but : on clique, il nous
sélectionne la feuille 2 cellule A4 mon code :

Private Sub CommandButton2_Click()
Sheets("Feuil2").Activate
Range("a4").Select
End Sub

ne fonctionne pas : [Erreur 404 - La méthode Select de
la


classe Range a échoué]

Comment se fait ce (sans mauvais jeux de mot ) ?
.

.





Avatar
Franck
Ceci génère [Erreur 1004 : Le texte que vous avez tapé
n'est ni une référence ni un nom défini valide]

-----Message d'origine-----
Private Sub CommandButton1_Click()
Application.Goto Reference:="Feuil2!R4C1"
End Sub

Si tu es sous XL97 mets aussi la
propriété "TakeFocusOnClick" du bouton à False


AV

"Franck" a écrit dans le
message news:

092d01c33f0e$ccec34f0$
Bonjour,

J'ai un bouton de commande, le but : on clique, il nous
sélectionne la feuille 2 cellule A4 mon code :

Private Sub CommandButton2_Click()
Sheets("Feuil2").Activate
Range("a4").Select
End Sub

ne fonctionne pas : [Erreur 404 - La méthode Select de la
classe Range a échoué]

Comment se fait ce (sans mauvais jeux de mot ) ?


.



Avatar
michdenis
Bonjour Frank,

Comme ton bouton est dans une autre feuille que la feuille active
tu dois faire une référence complète à un objet range :

Private Sub CommandButton2_Click()
Sheets("Feuil2").Activate
Sheets("Feuil2").Range("a4").Select
End Sub


Salutations!


"Franck" a écrit dans le message de news:092d01c33f0e$ccec34f0$
Bonjour,

J'ai un bouton de commande, le but : on clique, il nous
sélectionne la feuille 2 cellule A4 mon code :

Private Sub CommandButton2_Click()
Sheets("Feuil2").Activate
Range("a4").Select
End Sub

ne fonctionne pas : [Erreur 404 - La méthode Select de la
classe Range a échoué]

Comment se fait ce (sans mauvais jeux de mot ) ?
Avatar
AV
Ceci génère [Erreur 1004 : Le texte que vous avez tapé
n'est ni une référence ni un nom défini valide]


C'est testé !
Tu t'es planté dans la recopie !

AV

Avatar
MiB
Re :

Testé cette fois ci !

Sheets("Feuil2").Select
ActiveSheet.Range("A4").Select

Je ne comprends pas très bien pourquoi
l'autre façon ne fonctionne pas ???

Michel
-----Message d'origine-----
Même plantage


-----Message d'origine-----
Bonjour,

Suggestion:

Private Sub CommandButton2_Click()
Sheets("Feuil2").Select
Range("a4").Select
End Sub


Cordialement
Michel
-----Message d'origine-----
Bonjour,

J'ai un bouton de commande, le but : on clique, il nous
sélectionne la feuille 2 cellule A4 mon code :

Private Sub CommandButton2_Click()
Sheets("Feuil2").Activate
Range("a4").Select
End Sub

ne fonctionne pas : [Erreur 404 - La méthode Select de
la


classe Range a échoué]

Comment se fait ce (sans mauvais jeux de mot ) ?
.

.


.






Avatar
isabelle
bonjour Franck,

si tu utilise un bouton de la barre d'outils contrôle (xl97) n'oublie
pas de mettre la propriété du bouton : TakeFocusOnClick à False.

isabelle


Bonjour,

J'ai un bouton de commande, le but : on clique, il nous
sélectionne la feuille 2 cellule A4 mon code :

Private Sub CommandButton2_Click()
Sheets("Feuil2").Activate
Range("a4").Select
End Sub

ne fonctionne pas : [Erreur 404 - La méthode Select de la
classe Range a échoué]

Comment se fait ce (sans mauvais jeux de mot ) ?


Avatar
Franck
Nickel !

Je ne comprends pas pourquoi cela ne fonctionnait pas.

Apparemment il faut bien lui spécifier de travailler sur
la feuille active...

En tout cas merci.


-----Message d'origine-----
Re :

Testé cette fois ci !

Sheets("Feuil2").Select
ActiveSheet.Range("A4").Select

Je ne comprends pas très bien pourquoi
l'autre façon ne fonctionne pas ???

Michel
-----Message d'origine-----
Même plantage


-----Message d'origine-----
Bonjour,

Suggestion:

Private Sub CommandButton2_Click()
Sheets("Feuil2").Select
Range("a4").Select
End Sub


Cordialement
Michel
-----Message d'origine-----
Bonjour,

J'ai un bouton de commande, le but : on clique, il
nous




sélectionne la feuille 2 cellule A4 mon code :

Private Sub CommandButton2_Click()
Sheets("Feuil2").Activate
Range("a4").Select
End Sub

ne fonctionne pas : [Erreur 404 - La méthode Select de
la


classe Range a échoué]

Comment se fait ce (sans mauvais jeux de mot ) ?
.

.


.


.