Changement de couleur commandbutton au survol de la souris

[nicroq]

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

 

[Pierrot93]

Re : Changement de couleur commandbutton au survol de la souris

Bonjour,

déjà posé la question ici :
https://www.excel-downloads.com/thr...-commandbutton-au-survol-de-la-souris.232628/

bonne journée
@+

 

[nicroq]

Re : Changement de couleur commandbutton au survol de la souris

desolé j'ai posté 2 fois le sujet je me suis trompé...

 

[Pierrot93]

Re : Changement de couleur commandbutton au survol de la souris

Re,

pas de souci

 

[nicroq]

Re : Changement de couleur commandbutton au survol de la souris

auriez vous la reponse a mon probleme?

cdlt

 

[Pierrot93]

Re : Changement de couleur commandbutton au survol de la souris

Re,

auriez vous la reponse a mon probleme?

non... pas sur que ce soit possible basiquement... fais peut être une recherche du coté des APIs windows... perso pas trop mon truc...

 

[BOISGONTIER]

Re : Changement de couleur commandbutton au survol de la souris

bonjour,

http://boisgontierjacques.free.fr/fichiers/Evenementiel/SurvolBouton.xls

jb

 

[Paf]

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:

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+

 

[nicroq]

Re : Changement de couleur commandbutton au survol de la souris

merci bcq boisgontier c est nikel!!!

 

[nicroq]

Re : Changement de couleur commandbutton au survol de la souris

serait il possible de changer par une image plutot qu'une couleur defini comme dans l exemple de Boisgontier??