Rationaliser module macro bouton et clic sur cellule

[mfb]

Bonsoir,
Je dois réaliser une même action en feuille 1 via un bouton qu'en feuilles 2 à 5 via clic sur cellule(G3,G7).
Pour les clic sur cellules j'ai tout bêtement répété le module dans chaque feuille.
Est-il possible de simplifier en rendant commun ce module ?
A noter qu'à l'usage le module ne sera pas limité à un simple message comme figuré au fichier joint en Pj.
Je suis dispo pour + info si nécessaire.
Merci par avance
Daniel

 

[Dranreb]

Bonsoir.
Vous avez l'évènement Workbook_SheetSelectionChange dans ThisWorkbook pour réagir à la sélection d'une cellule dans toutes les feuilles.

 

[mfb]

Re,
Merci Barbatruc
J'ai "bricolé"mais pas crrectement dans This woorkbook car j'ai un message erreur la déclaration ne correspond pas à l'événement.
Où est l'erreur ?

 

[mfb]

Re, merci Barbatruc.
J'ai "bricolé" dans This WoorkBook. Pas correctement sans doute car j'ai un message d'erreur la déclaration de procédure ne correspond pas à l'événement.
Où est l'erreur ?
Daniel

 

[Dranreb]

L'erreur c'est d'avoir tapé cette instruction Sub.
Il ne faut jamais le faire pour les procédures de prise en charge d'évènements.
Il faut toujours utiliser pour cela les liste déroulantes surmontant la fenêtre de code.
Sélectionnez Workbook dans la "Objet", celle de gauche, et SheetSelectionChange dans la "Procédure", celle de droite.
Ça met en fait :

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

 

[mfb]

Re,
Super Barbatruc.
Merci pour cette leçon. J'ai, hé oui ! réussi à la mettre en oeuvre.
Alors bonne soirée.
Daniel