Les Allergies
Alimentaires
Posez votre question Signaler

Vba bouton comande changement couleur au clic [Résolu]

pseudomi 4Messages postés 1 décembre 2011Date d'inscription 7 décembre 2011Dernière intervention - Dernière réponse le 1 déc. 2011 à 11:43
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
Lire la suite 

Vba bouton comande changement couleur au clic »

3 réponses
Réponse
+0
moins plus
bonjour

Private Sub CommandButton1_Click()
If CommandButton1.BackColor = &HFF00& Then
     CommandButton1.BackColor = &HC0C0C0
Else
     CommandButton1.BackColor = &HFF00&
End If
End Sub
Ajouter un commentaire
Réponse
+0
moins plus
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
Ajouter un commentaire
Réponse
+0
moins plus
Oups...
en fait ça marche Michel..
merci :-) et bonne journée
Ajouter un commentaire
Ce document intitulé « vba bouton comande changement couleur au clic » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Dossier à la une
Passage au tout numérique : quel coût pour les particuliers ?