Ver originales (Francés)

Cuadro de texto fondo rojo si negativo

Resuelto
surplus Mensajes publicados 673 Fecha de registro   Estado Miembro Última intervención   -  
surplus Mensajes publicados 673 Fecha de registro   Estado Miembro Última intervención   -
Hola,
quiero poner el fondo de un textbox en rojo si el valor es negativo
he intentado esta fórmula sin éxito
sit_compte = Format(sit_compte, "#,##0.00_ ;[Red]-#,##0.00"" €")

¿cómo debo proceder? He estado buscando pero llevo una hora dando vueltas
gracias por tu ayuda
--
Saludos, hasta pronto
Superávit

3 respuestas

  1.
    lynyrd1960 Mensajes publicados 233 Estado Miembro 245
     
    Hola foro, superávit
    Es realizable con un "módulo de clase"
    ¡A+!
    0
    1. surplus Mensajes publicados 673 Fecha de registro   Estado Miembro Última intervención   4
       
      hola
      sí, pero ¿cómo?
      nunca he utilizado un módulo de clase
      ¡chao!
      0
  2. Gyrus Mensajes publicados 3360 Estado Miembro 526
     
    Hola,

    Prueba con este procedimiento de evento 
    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
    ¡Hasta luego!
    0
  3. surplus Mensajes publicados 673 Fecha de registro   Estado Miembro Última intervención   4
     
    hola
    es perfecto
    muchas gracias
    no había pensado en esta solución
    Saludos hasta pronto
    Excedente
    0