Textbox fond rouge si negatif

Résolu/Fermé
surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 - 4 juin 2014 à 23:49
surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 - 5 juin 2014 à 13:17
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

lynyrd1960 Messages postés 207 Date d'inscription jeudi 26 janvier 2012 Statut Membre Dernière intervention 30 juin 2023 244
5 juin 2014 à 01:18
Bonjour le forum,surplus
C'est réalisable avec un "module de classe"
A+
0
surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 4
5 juin 2014 à 06:42
bonjour
oui mais comment ?
j ai jamais utilisé un module de classe
a +
0
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
5 juin 2014 à 07:05
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
surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 4
5 juin 2014 à 13:17
bonjour
c'est parfait
merci beaucoup
j' avais pas pensé a cette solution
Slts A bientôt
Surplus
0