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

Autre exemple :

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 :

Gratuit – Je passe à l'action plus rapidement en achetant le fichier ici Commander Ajouté au panier