UserForm couleur bouton

Bonjour,

J'aimerai realiser une interface en Userforum où serait representé des moteurs qu'on peut allumer ou eteindre (vert ou rouge), représentés par des boutons changeant de couleur lorsqu'on les clique.

Je pense utiliser qqch de comme ça.

Private Sub CmdMoteur_Click()
CommandButton1.BackColor = 8677365
End Sub

Est ce possible de créer un bouton qui soit, soit vert soit rouge (i.e qu'il change de couleur à chaque fois qu'on le clique) ??

Merci d'avance,

Thibaut.

un exemple:

Private Sub CommandButton1_Click()
If Me.CommandButton1.BackColor = vbGreen Then
    Me.CommandButton1.BackColor = vbRed
ElseIf Me.CommandButton1.BackColor = vbRed Then
    Me.CommandButton1.BackColor = vbGreen
End If
End Sub

Private Sub UserForm_Initialize()
Me.CommandButton1.BackColor = vbRed
End Sub

à l'initialisation de l'userform je met mon bouton en rouge.

lors d'un clic il passe vert.

puis rouge si on reclic

j'ai fais avec ça entre temps :

Private Sub ToggleButton1_Click()
    With ToggleButton1
        Select Case .Value
            Case True
                .BackColor = RGB(0, 255, 0) 'Vert
                Range("J7") = 1
            Case False
                .BackColor = RGB(255, 0, 0) 'Rouge
                Range("J7") = ""
        End Select
    End With
End Sub

Du pareil au meme non ?

Bonjour,

Tu peux également utiliser un bouton bascule (ToggleButton)

Private Sub ToggleButton1_Click()
    With ToggleButton1
        If .Value = True Then
            .BackColor = RGB(0, 255, 0) 'Vert
            .Caption = "MARCHE"
        ElseIf .Value = False Then
            .BackColor = RGB(255, 0, 0) 'Rouge
            .Caption = "ARRÊT"
        End If
    End With
End Sub

A+

Post croisé avec Frangy je crois bien ...

Je vais prendre un Toggle Button je crois. Ca me semble plus en phase avec ce que je recherche.

C'est possible de le modifier (bordure, forme) ou je suis obligé de le garder moche mon toggle button ?