Boutons couleur a l'approche du curseur
Bonsoir le forum
dans mon userform j'ai un boutons valider qui fonctionne très bien
je viens voir la cour des miracles avec se forum
je recherche comment je peux le faire changer de couleur quand je clique dessus ou quand je passe dessus avec la curseur
avec tout ma gratitude
Bonjour GINA,
à tout hasard mon fichier de ce post t'aidera peut-être :
https://forum.excel-pratique.com/viewtopic.php?p=668622#p668622
mais comme c'est des boutons sur la feuille et pas dans un UserForm,
c'est juste pour t'en inspirer ; rien de plus.
dhany
merci beaucoup dhany pour ta réponse
mais c'est pas vraiment cela que je recherche enfin merci pour ton aide
mais une chose plus simple enfin si cela est réalisable
amicalement
Bonsoir,
Au Clic, rien de plus simple, si tu as déjà programmé l'action déclenchée par le bouton au clic, tu ajoutes dans la procédure le changement de la propriété BackColor du CommandButton en lui affectant la couleur que tu souhaites (valeur RGB de la couleur).
Pour le survol, c'est toujours BackColor qui est concerné pour la couleur, mais il te faut jouer avec l'évènement MouseMove, ce qui est un peu mois simple... Et il faut surtout savoir dans ce cas ce que tu souhaites faire exactement, si la couleur nouvelle doit rester, si on doit revenir à la couleur d'origine en cessant de survoler, etc.
Tu disposes aussi des évènements MouseUp et MouseDown...
Cordialement.
bonsoir le forum
voila j'avance doucement je change bien la couleur de mon boutons dans userform mais pas quand j'approche avec mon curseur
pouvez vous m'aidé svp
amitié
Hello,
L'event de gestion au-dessus d'un ctrl activex est MouseMove.
Voici un exemple à ajouter dans ton userform, en fonction des différents passage de la souris le bouton passe du jaune au noir :
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If CommandButton1.BackColor = &HFFFF& Then
CommandButton1.BackColor = &H80000012
Else
CommandButton1.BackColor = &HFFFF&
End If
End Subbonsoir merci beaucoup affaire résolus
bonsoir le forum
merci beaucoup tout ma gratitude pour l'intérêt sur mon dossier
cela va très bien je vais étudier ton code
amitié