Usine à gaz
XLDnaute Barbatruc
Bonjour à toutes et à tous
J'ai (très simplifié) ce code :
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...
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 SubJ'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...