couleur texte ToggleBoutton

[meldja]

Bonjour,
J'aimerais savoir s'il est possible de changer la couleur du texte d'un ToggleBoutton ?
J'ai essayé ce code qui ne marche pas :
If.....Then
ToggleButton1.Font.ColorIndex = 3
Else
ToggleButton1.Font.ColorIndex = 51

J'ai regardé dans les propriétés et je ne vois pas de Font ColorIndex.
Merci d'avance

 

[Excel_lent]

Re : couleur texte ToggleBoutton

Bonjour à tous et aux autres.

Je passerais par :

Private Sub ToggleButton1_Click()
ToggleButton1.ForeColor = IIf(ToggleButton1 And ActiveCell = "B", &HFF&, _
   IIf(ToggleButton1 And ActiveCell = "C", &H4080&, &HFF0000))
End Sub

les 3 nombres (en hexadécimal) étant issus de copier-coller de la propriété de ForeColor du bouton.

Un cumul de IIF permetd'avoir plus de couleurs.

 

[Pierrot93]

Re : couleur texte ToggleBoutton

Bonjour Meldja, Excel_lent

Meldja, d'aprè ce que je comprends de ton code, tu ne passais dans la fonction "iif" uniquement si la valeur du "togglebutton" était vrai, ce qui expliquerait la différence, donc te renvoyait toujours la couleur pour ce cas :

Private Sub ToggleButton1_Click()
If ToggleButton1 ThenToggleButton1.Caption = "Afficher ligne"
ToggleButton1.ForeColor = IIf(Me.ToggleButton1.Value, RGB(61, 97, 63), RGB(233, 7, 1))

bonne journée
@+