Couleur du texte d'un option button [RESOLU]

[nrdz83]

Bonjour à tous,
Voila j'utilise ce code pour que le texte ce mette en couleur bleu si l'option button est cochée.

Private Sub OptionButton1_Click()
OptionButton1.ForeColor = &HC00000
End Sub

Je voudrais que le texte revienne en noir si l'option button est décochée.

Comment dois-je modifier ce code?

Par avance merci à tous amitiés.

 

[MJ13]

Re : Couleur du texte d'un option button

Bonjour nrdz

Avec if OptionButton1 = true then ....else, cela ne fonctionne pas?

 

[Staple1600]

Re : Couleur du texte d'un option button

Bonjour à tous


Cela semble fonctionner (en supprimant au préalable la procédure OptionButton1_Click)

Private Sub OptionButton1_Change()
OptionButton1.ForeColor = IIf(OptionButton1, &HC00000, &H80000012)
End Sub

EDITION: Bonjour MJ13

 

[Modeste geedee]

Re : Couleur du texte d'un option button

Bonsour®

Bonjour à tous,
Voila j'utilise ce code pour que le texte ce mette en couleur bleu si l'option button est cochée.

Private Sub OptionButton1_Click()
OptionButton1.ForeColor = &HC00000
End Sub

Je voudrais que le texte revienne en noir si l'option button est décochée.

Private Sub OptionButton21_Change()
OptionButton21.ForeColor = IIf(OptionButton21.Value = True, vbBlue, vbBlack)
End Sub

a noter que le changement d'état d'un optionButton est dépendant et consécutif à l'action sur un autre optionButton

oupsss... bonjour Staple...

 

[Staple1600]

Re : Couleur du texte d'un option button

Bonjour Modeste Geedee

Tu ne m'as pas vu passé ? 😉 (cf message #3)

EDITION: T'éditais pendant que je rédigeais désolé 😉
Mais bon comme j'avais pas précisé qu'il fallait au moins deux optionbutton sur l'userform, nos posts se complètent l'un l'autre 😉

 

[nrdz83]

Re : Couleur du texte d'un option button

Bonjour à tous super merci pour votre aide,
c'est super

amitiés et bonne fin de week end à vous tous.