bonsoir à tous
Je cherche à faire une macro pour contrôler la date d 'un textbox qui doit être égale ou supérieure à la date du jour.
je vous remercie de votre aide
Private Sub TextBox1_AfterUpdate()
If IsDate(Me.TextBox1) Then
If DateValue(Me.TextBox1) < Date Then
MsgBox "La date doit être égale ou supérieure à la date du jour", vbCritical, "OUPS..."
Me.TextBox1.Value = ""
End If
End If
End Sub