Discussion :

[Eh_manu]

voila, j'aimerai mettre en couleur le texte d'une zone de texte en fonction d'une valeur !

j'ai rentré ce code la :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Form_Load()
 
If (solde > 0) Then
            solde.ForeColor = vbRed
        Else
            solde.ForeColor = vbGreen
    End If
End Sub

ca marche, mais la couleur est toujours verte !

si vous pouviez eclairer ma lanterne

[kikilevrai]

essaye de mettre des msgbox dans t conditions voir dans lakel il rentre et surtt pour voir sil rentre dans la bonne

[polo(31)]

as tu essayé apré avoir raffraichi l'affichage de ton formulaire?

[random]

me.repaint
do events

[Eh_manu]

as tu essayé apré avoir raffraichi l'affichage de ton formulaire?

oui mais ca ne marche pas !

j'ai aussi essayé avec QBColor comme indiqué dans la FAQ, mais toujours pareil !

Random, je n'ai pas compris ce que tu as dis !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
me.repaint
do events

a quoi correspondrai la 1ere ligne ?

[polo(31)]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

me.solde.repaint

peut-ètre????????

[polo(31)]

tu as essayé ça?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
MaZoneTexte.ForeColor = QBColor(1)  '(Pour le bleu)
MaZoneTexte.ForeColor = QBColor(4)  '(Pour le rouge)

(trouvé dans la FAQ)

[polo(31)]

essaye de mettre des msgbox dans t conditions voir dans lakel il rentre et surtt pour voir sil rentre dans la bonne

il a raison essai aussi (savoir si la condition de ton "If" est correct)

[Trini]

Bonjour,

En gros, places tes lignes de code dans l'événement AfterUpdate du controle qui modifie le Solde.

Salut,

[Eh_manu]

oki, merci ca marche enfin !

merci a vous tous !