Txtbox date - Ajout format lettre

Bonsoir à tous,

J'aimerais pouvoir ajouter l'option du N/D soit, non disponible, dans ma txtbox date. Qui peut me dire ce que je dois ajouter dans mon code que voici :

Private Sub oemcdate_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 If Len(oemcdate.Text) <> 10 Or Not IsDate(oemcdate.Text) Then
   MsgBox "Veuillez entrer la date dans le bon format 'aaaa-mm-jj' !"
   oemcdate.Text = ""
   oemcdate.SetFocus
   If Len(Me.oemcdate) = 0 Then
     Me.oemcdate.SetFocus
     Exit Sub
   End If
 End If
End Sub

Merci !

Bonjour Anniem

Voici le code modifié

Private Sub oemcdate_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  If Len(oemcdate.Text) <> 10 And Not IsDate(oemcdate.Text) And oemcdate <> "N/D" Then
    Cancel = True ' Empêche la sortie du textbox
    oemcdate.Text = ""
    MsgBox "Veuillez entrer la date dans le bon format 'aaaa-mm-jj' ou indiquez N/D !"
  End If
End Sub

Nota : SetFocus ne sert à rien, car il ne peut fonctionner, il faut utiliser Cancel

A+

D'abord merci pour ce conseil ainsi que pour le code. Je comprends tout à fait. C'est nickel !

Une belle journée !

anniem