Microsoft 365 Couleur TextBox suivant date

[Francky79]

Bonjour,

Comment faire une MFC dans une Textbox suivant une Date ?
Dans Textbox2 mettre en rouge si date inférieure à la date du jour.
Voir fichier joint.

Et encore merci pour votre aide.

 

[Lolote83]

Bonjour @Francky79,
Peut être comme ceci

Private Sub TextBox2_Change()
    If CDate(Me.TextBox2.Value) = DateValue(Date) Then
        Me.TextBox2.BackColor = vbRed
    Else
        Me.TextBox2.BackColor = vbWhite
    End If
End Sub

Avec la ligne If CDate(Me.TextBox2.Value) = DateValue(Date) Then
@+ Lolote83

 

[Francky79]

Merci Lolote83