Couleur de police

Lamoriciere

XLDnaute Nouveau
Bonjour au forum,
Dans un USF avec plusierus TextBox et deux OptionButton;
après validation de USF, comment parvenir à changer la couleur de la police sur la feuille du classeur si l'on coche par exemple OptionButton1?


Merci
Lamoricière
 

Hervé

XLDnaute Barbatruc
Bonjour lamoricière, le forum

Essaye comme ceci :

Private Sub OptionButton1_Click()
Range('a1').Font.ColorIndex = 3
End Sub
'______________________________________
Private Sub OptionButton2_Click()
Range('a1').Font.ColorIndex = 4
End Sub


EDITION :

je viens de lire le mot validation dans ta demande.

si tu veux lancer le coloriage via un bouton :

Private Sub CommandButton1_Click()
If OptionButton1 = True Then Range('a1').Font.ColorIndex = 3
If OptionButton2 = True Then Range('a1').Font.ColorIndex = 4
End Sub

salut

Message édité par: Hervé, à: 30/09/2005 01:34
 

Lamoriciere

XLDnaute Nouveau
Bonjour,
Hervé, ta réponse est excellente mais mon USF sert pour une base de données dans laquelle les lignes s'écrivent les unes en dessous des autres.
Donc, je recherche le moyen de colorer la police en fonction d'un critère arbitraire (c'est moi qui décide que telle ligne de données sera en rouge, par ex.) en cochant l'OptionButton1.
L'OptionButton2 laisse la police normale.
Je ne sais pas valider l'USF sans cocher l'un ou l'autre OptionButton.
Merci

Lamoricière
 
Haut Bas