Discussion :

[Daejung]

Bonjour,

Je voudrais qu'en cliquant sur un bouton de commande d'une feuille une cellule nommée "Toto" d'une autre feuille "Feuil1" soit sélectionnée.

J'ai essayé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Feuil1").Range("Toto").Select

mais je ne comprends pas pourquoi cela ne marche pas.

par contre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Application.Goto Reference:="Toto"

marche

Merci

[PUARAI]

Bonjour à tous
Peut être que si tu nommais ta cellule "Toto" j'ai téster il le trouve
A ++

[Daejung]

merci du conseil mais bien evidemment la cellule est nommée !

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

[LeForestier]

Bonjour,
Faut d'abord activer la feuille...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub CommandButton1_Click()
    Sheets("Feuil1").Activate
    Sheets("Feuil1").Range("toto").Select
End Sub

A+

[Daejung]

Bonjour,
Faut d'abord activer la feuille...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub CommandButton1_Click()
    Sheets("Feuil1").Activate
    Sheets("Feuil1").Range("toto").Select
End Sub

A+

ok merci ca marche

j'avais aussi testé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    Sheets("Feuil1").Activate
    Range("toto").Select

Je ne pensai pas qu'il fallait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Feuil1").

devant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("toto").Select

comme la feuille était déjà activée.

[PUARAI]

Re
tu la nommé ou en haut à gauche ?
par exemple moi j'ai tésté dans la cellule A4 j'ai inscris "Toto" et je l'ai nommé aussi en haut à gauche dans la barre dans "zone de nom" et dès que j'appuie sur le bouton de commande il me selectionne la cellule A4 (Toto).
A +++

merci du conseil mais bien evidemment la cellule est nommée !

Maintenant j'ai tester le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub CommandButton1_Click()
    Sheets("Feuil1").Activate
    Sheets("Feuil1").Range("toto").Select
End Sub

ça marche pas chez moi mais peut que cela marcheras chez toi
salut