Microsoft 365 SelectionChange : souci de codage

[Usine à gaz]

Bonjour à toutes et à tous

J'ai (très simplifié) ce code :

Private Sub Worksheet_SelectionChange(ByVal R As Range)
If Not Intersect(R, Range("H3,H4")) Is Nothing Then: Recherche
End Sub

Pas de souci pour ça.

J'aimerais que le code d'exécute également si clic sur une image,
(Je souhaite ne pas affecter une macro à l'image)
et j'ai fait :
If Not Intersect(R, Range("Shapes("cherche")")) Is Nothing Then: Recherche
Et ça ne fonctionne pas... J'ai tâtonné sans y arriver
Auriez-vous le bon code ?
Un grand merci à toutes et à tous...

 

[job75]

Bonsoir Lionel,

Le clic sur une image non ActiveX (Shape) ne crée pas d'évènement, il faut donc lui affecter la macro Recherche.

A+

 

[patricktoulon]

Bonsoir
il existe bien une astuce qui consiste a créer des pseudo event dans une classe
mais je te la donnerais pas car c'est pas te rendre service , ton usine prout suffisamment comme ça

si tu nous disais plutôt pourquoi tu ne veux pas affecter une macro

 

[Usine à gaz]

Bonsoir
il existe bien une astuce qui consiste a créer des pseudo event dans une classe
mais je te la donnerais pas car c'est pas te rendre service , ton usine prout suffisamment comme ça

si tu nous disais plutôt pourquoi tu ne veux pas affecter une macro

Prout toi-même

 

[Usine à gaz]

Bonsoir
il existe bien une astuce qui consiste a créer des pseudo event dans une classe
mais je te la donnerais pas car c'est pas te rendre service , ton usine prout suffisamment comme ça

si tu nous disais plutôt pourquoi tu ne veux pas affecter une macro

Bsr Patrick,

Il est arrivé sur des "ordis" de mes collègues que les boutons ou images ne répondent pas au clic alors que le clic sur cellule répond toujours.

 

[Usine à gaz]

Bonsoir Lionel,

Le clic sur une image non ActiveX (Shape) ne crée pas d'évènement, il faut donc lui affecter la macro Recherche.

A+

Bsr Gérard
Merci pour le retour .. je m'en doutais bien mais...