Fond de textbox suivant date

[winieloursonaub]

Bonjour à tous,

Voilà je suis entrain de créer un programme et j'ai des dates d'assurances à entrée seulement je voudrais que mon textbox mette un fond rouge si la date que je rentre est inférieure à au jour, et en vert si cela est ok.

J'espère que je me suis bien fait comprendre.

Je peux pas envoyer le fichier car il est top gros mais si quelqu'un veut bien m'aider je lui enverrai par mail.

MERCI
WINNIE

 

[JYLL]

Re : Fond de textbox suivant date

Bonjour winieloursonaub et le Forum,

Voici un petit classeur qui devrait répondre à ta demande.

Bon test.

 

[Pierrot93]

Re : Fond de textbox suivant date

Bonjour Winnie, Jyll

une autre solution, en utilisant l'évènement Exit du textbox :

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If CDate(TextBox1.Value) < Date Then
        TextBox1.BackColor = RGB(255, 0, 0)
    Else
        TextBox1.BackColor = RGB(0, 255, 0)
    End If
End Sub

bonne soirée
@+