Microsoft 365 SelectionChange : souci de codage

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous :)

J'ai (très simplifié) ce code :
VB:
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 :mad:
Auriez-vous le bon code ?
Un grand merci à toutes et à tous...
:)
 

patricktoulon

XLDnaute Barbatruc
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

XLDnaute Barbatruc
Supporter XLD
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.
:)
 

Discussions similaires

Statistiques des forums

Discussions
311 722
Messages
2 081 930
Membres
101 843
dernier inscrit
Thaly