XL 2016 verification date

[Bruce68]

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

 

[Compte Supprimé 979]

Bonjour Bruce68

Tu peux utiliser

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

Ou l'événement "Change"

@+

 

[Bruce68]

Bonjour BrunoM45 t le forum
Merci pour la macro cela fonctionne bien.
Bonne journée à tous