changement de couleur d'une textbox en fonction d'une date

[rainbow69006]

Bonjour, je voudrais chnager la couleur de fond d'une textbox en fonction de la comparaison entre la date d'une jour et la date inscrit dans un autre texbox.

Malheureusement cela ne marche pas...

J'ai joint mon essai.

Merci de votre aide

 

[Guest]

Re : changement de couleur d'une textbox en fonction d'une date

Bonjour,

Private Sub UserForm_Initialize()
TextBox3 = Date
If TextBox3.Value > DateValue(TextBox1.Text) Then
TextBox1.BackColor = RGB(255, 0, 0)
Else
TextBox1.BackColor = RGB(255, 255, 255)
End If
End Sub

A+

 

[Guest]

Re : changement de couleur d'une textbox en fonction d'une date

Re,

J'avais pas fait gaffe aux couleurs.
RGB(255, 0, 0) peut être remplacé par VbRed
RGB(255,255,255) par VbWhite

A+

 

[youky(BJ)]

Re : changement de couleur d'une textbox en fonction d'une date

Salut rainboow69006
Voici comment je ferai. . .
Bruno

Private Sub TextBox1_Change()
If Not IsDate(TextBox1) Then Exit Sub
If TextBox3.Value > CDate(TextBox1.Value) Then
TextBox1.BackColor = RGB(255, 0, 0)
Else
TextBox1.BackColor = RGB(255, 255, 255)
End If
End Sub

Private Sub UserForm_Initialize()
TextBox3 = Date
TextBox1 = ""
End Sub