Changer la couleur de police d'une checkbox

Bonjour,

Dans un tableau, je suis les documents nécessaires à l'exécution de travaux. Les valeurs possibles sont : "Oui" (le document a été fourni), "Non" (le document n'est pas nécessaire) et "A prévoir" (le document est nécessaire mais n'est pas encore fourni).

J'effectue la revue des travaux via un formulaire et pour chaque document, j'ai une checkbox. (par exemple, CBX_Plans pour les plans).

J'aimerai qu'à chaque valeur ci-dessus (Oui, Non, A prévoir), le comportement soit le suivant :

• Oui : checkbox cochée police en vert italique RGB(0, 128, 0)
• Non : checkbox non cochée police en bleu italique RGB(0, 0, 13)
• A prévoir : checkbox non cochée mais police en rouge gras italique RGB(255, 0, 0)

Le code employé est le suivant, mais il ne fonctionne pas.

Select Case Sheets("Suivi").Range("AA" & LigneAction).Text
    Case "Oui"
        CBX_Plans.Value = True
        CBX_Plans.Font.ForeColor.RGB = RGB(0, 128, 0)
    Case "Non"
        CBX_Plans.Value = True
        CBX_Plans.Font.ForeColor.RGB = RGB(0, 0, 13)
    Case "A prévoir"
        CBX_Plans.Value = False
        CBX_Plans.Font.ForeColor.RGB = RGB(255, 0, 0)
End Select

J'ai tenté en remplaçant Font par Caption, en mettant Caption.Font, etc. mais je n'ai pas trouvé !

Quelqu'un pourrait-il m'aguiller ? Merci d'avance.

Bonjour

Un fichier est TOUJOURS le bienvenu

CBX_Plans.ForeColor = RGB(255, 0, 0)

A+ François

Bonjour.

Merci beaucoup : ça marche !!!