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

Question

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 ?

cs_lim · Answer

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

miopie · Answer

merci! 

nikel c'etait ca j'avais pas mis la couleur en rgb

merci en plus le prog est plus court

salut

econs · Answer

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&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

Gobillot · Answer

t'es pas oblig&#233; de mettre RGB



Private Sub Command1_Click()

    Command1.BackColor = Command1.BackColor Xor 65535

End Sub


Daniel

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

4 réponses

Discussions similaires