Couleur Toggle bouton on/off

[Benjamin.Nappez]

Bonjour à tous,

En VBA, je cherche à savoir où implémenter un code qui ferait qu'un toggle bouton "off" soit rouge et vert quand "on" quand on clic dessus. Et bien entendu, qu'il reprenne sa jolie couleur rouge quand il est re-off et ainsi de suite. Autrement dit comment faire un format conditionnel sur un toggle bouton selon un critère binaire qui ne donne pas un horrible bouton "on" grisé tout moche?

Voici le texte simple du bouton en question, manque le format entre les "off" et "on":

Private Sub ToggleButton1_Click()
If ToggleButton1 Then
Range("J7").Select
ActiveCell.FormulaR1C1 = "1"
Else
Range("J7").Select
Selection.ClearContents
End If
End Sub

L'idéal serait de pouvoir modifier également la bordure du bouton.

Merci par avance.
Ben

 

[ftho]

Re : Couleur Toggle bouton on/off

Bonjour,

Essaie ceci :

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

Je ne pense pas que l'on puisse modifier la bordure

 

[Dull]

Re : Couleur Toggle bouton on/off

Salut Benjamin.Nappez, ftho , le Forum

Une variante

Private Sub ToggleButton1_Click()
ToggleButton1.BackColor = IIf(ToggleButton1 = True, vbGreen, vbRed)
Range("J7").Value = IIf(ToggleButton1 = True, 1, "")
End Sub

Même remarque que ftho pour la bordure

Bonne Journée