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

rainbow69006 · 5 Juillet 2010

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 · 5 Juillet 2010

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

Bonjour,

Code:

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 · 5 Juillet 2010

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) · 5 Juillet 2010

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

Salut rainboow69006
Voici comment je ferai. . .
Bruno

Code:

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

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

rainbow69006

XLDnaute Occasionnel

Pièces jointes

Guest

Guest

Guest

Guest

youky(BJ)

XLDnaute Barbatruc

Discussions similaires

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

rainbow69006

XLDnaute Occasionnel

Pièces jointes

Guest

Guest

Guest

Guest

youky(BJ)

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency