vba bouton comande changement couleur au clic Résolu/Fermé

Question

Bonjour,
c'est la première fois que je fais appel à vous...
Je suis novice en VBA , et cela fait deja plusieurs jours que je cherche une solution.
Je suis en train de faire un formulaire avec des boutons de commande.
J'aimerai que lorsque l'on clic sur le bouton de commande, celui ci devienne vert,
mais que si on reclic sur ce bouton ; il reprenne sa couleur d'origine : gris.
En fait je veux que l utilisateur puisse sélectionner ou non les boutons car ceux selectionnés serviront ensuite à créer une feuille selon les options choisies.

vous trouverez ci dessous les codes que j'ai déjà intégrés 
le gris passe bien au vert lorsqu on clic, mais je ne sais pas comment rechanger la couleur.

Merci pour votre aide

Private Sub CBT1_CLICK()
CBT1.BackColor = &HFF00&

End Sub
Private Sub cbt1_DOUBLECLICK()

CBT1.BackColor = &HC0C0C0

End Sub


Configuration: Windows XP / Internet Explorer 7.0

michel_m · Accepted Answer

bonjour

Private Sub CommandButton1_Click()
If CommandButton1.BackColor = &HFF00& Then
     CommandButton1.BackColor = &HC0C0C0
Else
     CommandButton1.BackColor = &HFF00&
End If
End Sub

pseudomi · Answer

Bonjour Michel,

et merci pour votre réactivité.
Je viens d 'essayer votre code, cela ne fonctionne pas, pas de msg d erreur mais le bouton ne change pas de couleur au clic

pourriez vous m'aider svp ?

Merci d 'avance

pseudomi · Answer

Oups...
en fait ça marche Michel..
merci :-) et bonne journée

gueye · Answer

Bouton1.Backcolor=RGB(O,255,0)

Vba bouton comande changement couleur au clic

4 réponses

Discussions similaires