Changer la couleur d'un bouton lorsque l'on click dessus

Signaler
Messages postés
2
Date d'inscription
vendredi 1 juillet 2005
Statut
Membre
Dernière intervention
1 juillet 2005
-
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
-
bonjour


je souhaiterai sous excel en vba faire un bouton qui passe a la couleur verte lorsque l'on clic dessus puis qui passe au rouge lorsque l'on reclic dessus et qui repasse au vert quand on rereclic dessus et ainsi de suite!
cela me permetterai de validez ou devalider une etape d'un processus.
voila deja le debut de prog que j'ai fait mais qui ne marche pas


Private Sub CButton1_Click()
If CButton1.BackColor = &HFF& Then
GoTo color
Else
GoTo color1
End If
color:
CButton1.BackColor = &HFF00&
color1:
CButton1.BackColor = &HFF&
End Sub


quelqu'un peut m'aidez ?

4 réponses

Messages postés
329
Date d'inscription
jeudi 20 novembre 2003
Statut
Membre
Dernière intervention
10 mai 2014
4
Salut
'Si mon bouton est rouge
If CommandButton1.BackColor = RGB(255, 0, 0) Then
'il devient vert
CommandButton1.BackColor = RGB(0, 2550, 0)
Else
'Sinon il est vert et il devient rouge
CommandButton1.BackColor = RGB(255, 0, 0)
End If

@+
LIM
Messages postés
2
Date d'inscription
vendredi 1 juillet 2005
Statut
Membre
Dernière intervention
1 juillet 2005

merci!

nikel c'etait ca j'avais pas mis la couleur en rgb

merci en plus le prog est plus court

salut
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
22
Sans aller jusqu'aux RGB ...








If CommandButton1.BackColor = vbRed Then

'il devient vert

CommandButton1.BackColor = vbGreen

Else

'Sinon il est vert et il devient rouge

CommandButton1.BackColor = vbRed

End If




Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
29
t'es pas obligé de mettre RGB



Private Sub Command1_Click()

Command1.BackColor = Command1.BackColor Xor 65535

End Sub


Daniel