Vba bouton comande changement couleur au clic

Résolu/Fermé
pseudomi
Messages postés
4
Date d'inscription
jeudi 1 décembre 2011
Statut
Membre
Dernière intervention
7 décembre 2011
- 1 déc. 2011 à 10:21
 gueye - 30 oct. 2014 à 11:17
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


4 réponses

michel_m
Messages postés
16570
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
26 mai 2022
3 280
1 déc. 2011 à 10:55
bonjour

Private Sub CommandButton1_Click()
If CommandButton1.BackColor = &HFF00& Then
     CommandButton1.BackColor = &HC0C0C0
Else
     CommandButton1.BackColor = &HFF00&
End If
End Sub
4
pseudomi
Messages postés
4
Date d'inscription
jeudi 1 décembre 2011
Statut
Membre
Dernière intervention
7 décembre 2011

1 déc. 2011 à 11:37
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
0
pseudomi
Messages postés
4
Date d'inscription
jeudi 1 décembre 2011
Statut
Membre
Dernière intervention
7 décembre 2011

1 déc. 2011 à 11:43
Oups...
en fait ça marche Michel..
merci :-) et bonne journée
0
Bouton1.Backcolor=RGB(O,255,0)
-1