Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Magic_Doctor

XLDnaute Barbatruc
Bonjour,

Sur ma feuille il y a un bouton qui s'appelle "BoutonTM". Quand on clique dessus une macro se déclenche.
Sur la même feuille il y a une plage de cellules nommée : "MisFrases". Chaque fois que l'on écrit quelque chose dans l'une de ces cellules, via une macro événementielle, quelque chose se passe.
Or, je voudrais que la macro déclenchée quand on clique sur le bouton, ne puisse l'être que si l'une des cellules de la plage nommée "MisFrases" est sélectionnée ; autrement dit, si l'on sélectionne n'importe quelle autre cellule de la feuille qui n'appartient pas à la plage "MisFrases" et si l'on clique sur le bouton "BoutonTM", rien ne se passe.

Merci pour me conseiller pour régler ce problème.
 
Re : Bloquer une macro

Bonjour,

essaye ceci, à placer en première instruction de ta procédure "bouton_click" :
Code:
If Intersect(ActiveCell, Range("MisFrases")) Is Nothing Then Exit Sub
bonne journée
@+

Edition : bonjour PierreJean🙂
 
Dernière édition:
Re : Bloquer une macro

Bonjour Magic_Doctor

A tester:

Mettre ces 2 lignes en tête de la macro exécutée lors de l'appui sur le bouton

Code:
Set isect = Application.Intersect(Selection, Range("MisFrases"))
If isect Is Nothing Then Exit Sub

Edit: Salut Pierrot (avais pas rafraîchi !!!!)
 
Re : Bloquer une macro

Bonjour Magic_Doctor, Pierrot, pierrejean,

Si le bouton est un bouton ActiveX, on peut l'activer/désactiver ainsi :

Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
BoutonTM.Enabled = Not Intersect(Target, [MisFrases]) Is Nothing
End Sub
A+
 
Re : Bloquer une macro

Bonjour Pierrot93, pierrejean,

Merci pour vos réponses.
Je n'ai pu répondre avant en raison de problèmes de connexions récurrents ici.
J'ai adopté la solution de Pierrot qui résoud parfaitement le problème.

Bonne journée à tous.

PS : presque 24 h de déconnexion, je n'avais pas vu le message de job. Hola amigo, je vais voir maintenant ta solution.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
18
Affichages
403
Réponses
13
Affichages
609
Retour