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
--
Slts A bientôt
Surplus

3 réponses

  1. lynyrd1960 Messages postés 233 Statut Membre 245
     
    Bonjour le forum,surplus
    C'est réalisable avec un "module de classe"
    A+
    0
    1. 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
  2. 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
  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