Alimenter textbox avec color en condition des dates

BONJOUR

J'ai un petit souci que je n'arrive pas à résoudre .

J'essaie de faire une condition avec des dates qui alimenter les textbox qui sont trouvent ds userform a colonne(limite F_ment et Date vp).

limite F_ment:

TextBox2,TextBox5,TextBox8 TextBox11 TextBox14 TextBox17 TextBox20 TextBox30 .......

date vp :

TextBox3 TextBox6 TextBox9 TextBox12 TextBox15 TextBox18 TextBox21 TextBox24 ..........

Condition:

If TextBox2 >= Now() + 10 Then

TextBox2.BackColor = vbGreen ' VERT

ElseIf TextBox2 > Now() And TextBox2 < Now() + 10 Then

TextBox2.BackColor = vbMagenta 'Gold

Else: TextBox2.BackColor = vbRed 'Red

End If

If TextBox5 >= Now() + 10 Then

TextBox5.BackColor = vbMagenta '= RGB(50, 250, 50) ' VERT

ElseIf TextBox5 > Now() And TextBox5 < Now() + 10 Then

TextBox5.BackColor = vbMagenta 'Gold

Else: TextBox5.BackColor = vbRed 'Red

End If

+++

merci

28userform.xlsm (59.87 Ko)

Bonsoir

Regardes si cela te convient

bonjour

merci bien

Rechercher des sujets similaires à "alimenter textbox color condition dates"