Discussion :

[mikeduff]

Bonsoir,

Je sais, on me dira on a déjà répondu des tas de fois à ce problème... j'ai vu... et pourtant, je tombe sur une réponse que je ne comprends pas...
alors, SVP, soyez tolérant (je me sens déjà tellement honteux )

Je souhaite, au clic d'un bouton, sélectionner une cellule dans une autre feuille.
J'ai donc créé 2 boutons;
le premier sélectionne une cellule dans la même feuille: il marche très bien
le second fait pareil vers une autre feuille, et je reçoit le message d'erreur : "Erreur d’exécution 1004 : la méthode Select de la classe Range a échoué"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
' bouton  1
Private Sub bouton_1_Click()
Range("A8").Select
End Sub
 
' bouton  2
Private Sub bouton_2_Click()
Sheet("Formulaire").Select
Range("A8").Select
End Sub

C'est tellement simple ! et pourtant ça ne marche pas et ne vois pas pourquoi!
Alors... si quelqu'un peut me mettre sur une piste...

Merci d'avance pour toute aide
Mike

[unparia]

Bonjour
La collection Sheet n'existe pas
Sheet n'est pas la collection des feuilles, mais un type d'objet

Je ne te parlerai de l'autre (il y en a une seconde) que lorsque tu auras corrigé celle-ci, hein ...

Car je VEUX croire que le code que tu montres ici en vue de correction est un copié/collé rigoureux (c'est un minimum) de celui que tu as sur ta machine...

[Marc-L]

Bonjour,

voir aussi dans l'aide VBA interne la méthode   Application.Goto   …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[Menhir]

Code :

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

Sheet("Formulaire").Select

Faute de grammaire.
Regarde les exemples ici : https://msdn.microsoft.com/fr-fr/vba...t-object-excel

Je souhaite, au clic d'un bouton, sélectionner une cellule dans une autre feuille.

Pas besoin de macro pour faire ça.
Il est plus simple et plus rapide de faire un lien hypertexte.

Soit par fonction :
LIEN_HYPERTEXTE() : https://support.office.com/fr-FR/art...7-7de9b76f577f

Soit par commande :
Clic droit > Lien Hypertexte > Emplacement dans ce document > Indique l'adresse de la cellule et l'onglet > Ok

[mikeduff]

Merci de vos réponses

@ unparia :
Tu as tout a fait raison, la collection Sheet n'existe pas !
et... mea culpa: je n'avais pas fait le copié/collé de la bonne fonction.
Voici donc la vraie (cette fois il n'y a plus de doute )

et voici le message d'erreur également capturé:


Ma question reste donc entière... alors si tu as une suggestion.....

@Menhir:
Je ne crois pas que ça réponde à mon problème (ni à ma question, hélas).
En effet, à moins que je fasse erreur, un lien hypertexte se place dans une cellule.
Mon action doit s'effectuer lors de l'action sur un BOUTON... d'où l'appel au VBA
Mais si je me trompe, une explication supplémentaire sera bienvenue...

Merci d'avance à tous
Mike

[Patrice740]

Bonjour,

Il faut plus de rigueur dans l'écriture du code, il y a au moins 2 cas où ton code ne fonctionnera pas :
1) La feuille "Formulaire" n'est pas une feuille de calcul, la bonne syntaxe pour activer une feuille de calcul est :

Code :

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

  Worksheets("Formulaire").Activate

2) La macro se situe dans le module d'une autre feuille (donc le Range("A8").Select n'est pas sur la feuille active), la bonne syntaxe est :

Code :

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

1
2
3
4
5
6
7
  Worksheets("Formulaire").Activate
  Worksheets("Formulaire").Range("A8").Select
  'ou encore :
  With Worksheets("Formulaire")
    .Activate
    .Range("A8").Select
  End With

Reste qu'avec un lien hypertexte c'est plus simple.

[mikeduff]

Bonjour Patrice... et merci !

Voilà mon erreur :Worksheets("Formulaire").Activate et non Sheets("Formulaire").Activate

Tellement simple que je le voyais pas avec mon nez dessus

A propos du lien hypertexte, j'avais répondu à Menhir sur le sujet en disant que je ne pouvais mettre un lien sur un bouton de formulaire.
Apparemment, ça reste vrai, mais .... en faisant des (tas d') essais, j'ai vu que je pouvais parfaitement en mettre un sur un bouton de type image (ou sur une image quelconque d'ailleurs)

Donc,.. il y avait donc bien une solution alternative à mon problème
Content d'avoir appris et encore merci !

Mike

[Menhir]

Je ne crois pas que ça réponde à mon problème (ni à ma question, hélas).
En effet, à moins que je fasse erreur, un lien hypertexte se place dans une cellule.
Mon action doit s'effectuer lors de l'action sur un BOUTON... d'où l'appel au VBA

Justement, vire le bouton (à moins que tu puisses expliquer pourquoi tu tiens à le garder).
Comparé à un clic sur une cellule, ça ne fera que compliquer l'affaire.

En plus, si ton "bouton" est une forme (Insertion > Forme), il est tout à fait possible de lui associer un lien hypertexte avec clic droit > lien hypertexte.