Changement de couleur commandbutton au survol de la souris

  • Initiateur de la discussion Initiateur de la discussion nicroq
  • Date de début Date de début

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 !

nicroq

XLDnaute Occasionnel
Bonjour le forum,
j'ai trouvé sur le site la macro VBA pour qu'un commandbutton change de couleur quand la souris passe dessus.

Ce que je souhaite maintenant, c'est que si l'utilisateur ne clique pas sur ce bouton, qu'il reprenne sa couleur d'origine.

tout en sachant que mon commandbutton ne se trouve pas dans un Userform.

Merci de votre aide
 
Re : Changement de couleur commandbutton au survol de la souris

Bonjour à tous

à essayer:

dans Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) du bouton en question, ajouter ce code:

Code:
With CommandButton1
.BackColor = IIf(X > 5 And X < .Width - 5 And Y > 5 And Y < .Height - 5, vbRed, &H8000000F)
End With

en gros, on définit une bande de 5 points sur le pourtour du bouton. si le curseur rentre à l'intérieur du périmètre on passe en couleur rouge, si le curseur passe sur cette bande (en sortant du bouton) on passe en couleur d'origine.

si le curseur est un peu rapide ça ne marche pas à tous les coups, mais c'est globalement efficace.

adapter le nom du bouton et les couleurs

A+
 
- 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
17
Affichages
805
Réponses
38
Affichages
892
Retour