Textbox fond rouge si negatif

Résolu
surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   -  
surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
je voudrais mettre le fond d'un textbox en rouge si la valeur est négative
j'ai essayé cette formule sans succés
sit_compte = Format(sit_compte, "#,##0.00_ ;[Red]-#,##0.00"" €")

comment dois je m'y prendre j'ai bien essayé de rechercher mais ça fait une h que je tourne en rond
merci de votre aide

3 réponses

Réponse 1 / 3
lynyrd1960 Messages postés 233 Statut Membre 245
 
Bonjour le forum,surplus
C'est réalisable avec un "module de classe"
A+
0
surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   4
 
bonjour
oui mais comment ?
j ai jamais utilisé un module de classe
a +
0
Réponse 2 / 3
Gyrus Messages postés 3360 Statut Membre 526
 
Bonjour,

Essaie avec cette procédure évènementielle 
Private Sub TextBox1_Change()
    If TextBox1.Value < 0 Then
        TextBox1.BackColor = RGB(255, 0, 0)
    Else
        TextBox1.BackColor = RGB(255, 255, 255)
    End If
End Sub
A+
0
Réponse 3 / 3
surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   4
 
bonjour
c'est parfait
merci beaucoup
j' avais pas pensé a cette solution
Slts A bientôt
Surplus
0

Discussions similaires

PIX
plart -
jordane45 -

1 réponse
Réglage télécommande Freebox pop
Jacques -
Idir -

5 réponses
Freeplugs reste au rouge
lISA -
tecom -

1 réponse
Voyant rouge de ma freebox clignote
nanou -
Pierr10 -

2 réponses
Problème télécommande Freebox mini 4K reste rouge
Bernardo -
bazfile -

1 réponse