Excel 365 : Comment créer un bouton qui change de couleur au survol de la souris dans un formulaire en moins de 15 min.

PROBLEME

Est-il possible, lors du survol sur un bouton de changer la couleur de celui-ci ?

SOLUTIONS

Concernant le survol ou Rollover il y certain exemple simple ICI voir ici

Pour un formulaire, oui il existe plusieurs solutions, en voici une :

Les étapes (Brièvement) :

  1. Faire des formes similaires, que se soit Smiley ou forme type Bouton
  2. Faire le Userform
  3. propriété du Userform
  4. Créer zone image et faire un copier/Coller de votre bouton dessiné dans la zone champs de la propriété image
  5. Rendre visible ou non visible suivant le Bouton choisit
  6. Sur le Userform, Rendre visible ou non visible suivant votre choix
  7. Faire le bouton Unload Userform, et sur l’onglet le Bouton de Userform.show

Excel 365 : Comment créer un bouton qui change de couleur au survol de la souris dans un formulaire en moins de 15 min.
Excel 365 : Comment créer un bouton qui change de couleur au survol de la souris dans un formulaire en moins de 15 min.
Excel 365 : Comment créer un bouton qui change de couleur version 1
Excel 365 : Comment créer un bouton qui change de couleur version 1

Autre exemple :

Excel 365 : Comment créer un bouton qui change de couleur version 2
Excel 365 : Comment créer un bouton qui change de couleur version 2

Code source VBA :

Private Sub AJOUT_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
AJOUT.Visible = False
SUPP.Visible = True
End Sub
Private Sub SUPP_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
SUPP.Visible = False
AJOUT.Visible = True
End Sub

Private Sub RIRE_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
RIRE.Visible = False
TRISTE.Visible = True
End Sub
Private Sub TRISTE_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TRISTE.Visible = False
RIRE.Visible = True
End Sub
Private Sub TRISTE_click()
TextBox1 = ""
End Sub
Private Sub SUPP_click()
TextBox1 = ""
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
SUPP.Visible = False
AJOUT.Visible = True
TRISTE.Visible = False
RIRE.Visible = True
End Sub

TUTO:

VERSION YOUTUBE :

Recevoir la newsletter

Inscrivez-vous maintenant et recevez un e-mail les fois où je publie du contenu.

I agree to have my personal information transfered to AWeber ( more information )

Je hais les spams. Vous pouvez vous désinscrire à tout moment.

Taggé .Mettre en favori le Permaliens.

Laisser un commentaire

Votre adresse e-mail ne sera pas publiée. Les champs obligatoires sont indiqués avec *