ForeColor

[Bernjean]

Bonjour à Tous,

En fonction de la valeur de 2 cellules je désire changer la couleur du texte d'un TextBox et je patine lamentablement(voir PJ ).

Merci de votre aide.

BernJean [file name=ForeColor1.zip size=8682]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ForeColor1.zip[/file]

 

[Eric C]

Bonjour le forum
Bonjour Bernjean

Il faut prendre son temps et bien analyser les cellules sur lesquelles tu travailles. Voici le bon code :

Private Sub UserForm_Initialize()
UserForm1.TE = [A2]
If [A1] < [b1] Then
UserForm1.TE.ForeColor = RGB(255, 0, 0) 'Rouge

ElseIf [A1] > [b1] Then
UserForm1.TE.ForeColor = RGB(0, 0, 255) 'Bleu
End If
End Sub

De plus, évites de coder Range('A1') ou autre cellule par [A1].

Bon Ouikand à toutes & à tous

 

[Bernjean]

Merci Eric C pour ces précieux conseils et Bon week-end à vous tous

Bernjean