Bonsoir le forum

Je sollicite votre aide pour intégrer une nouvelle condition dans le code ci-dessous:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Dim Valeur As String
TextBox11.MaxLength = 10 'nb caractères maxi autorisé dans le textbox
Valeur = Len(TextBox11)
If Valeur = 2 Or Valeur = 5 Then
TextBox11 = TextBox11 & "."
ElseIf Valeur = 10 Then
If Not IsDate(Format(Replace(TextBox11, ".", "/"), "yyyy/mm/dd")) Then
MsgBox "Format incorrect"
TextBox11 = ""
Exit Sub
End If
End If
Dans le textbox11, je saisis la date de naissance de mes clients.
Je souhaite que si la date de naissance saisie est inférieure à 18ans, que le champ soit bloquant pour permettre la correction de la date avant de pouvoir quitter. Le message d'erreur pourra être " Merci de Vérifier la date de naissance saisie".
Merci