'Vérification de la cohérence de date saisie au moment de la frappe - date du calcul
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'Cohérence du format
If Not IsDate(TextBox1.Value) Then
MsgBox "Saisissez un format de date correct du type jj/mm/aaaa !", , "Date du Calcul - Format"
' TextBox1 = ""
TextBox1.SetFocus
Cancel = True
' Exit Sub
End If
'Cohérence du mois (si le mois est > à 12) 'Nota : La syntaxe est Mid(Texte, Départ, Nombre de caractères).
If Mid(TextBox1.Value, 4, 2) > 12 Then
MsgBox "Mois incorrect" & Chr(10) & "Saisissez un format de date correct du type jj/mm/aaaa !", , "Date du Calcul - Mois"
' TextBox1.Value = ""
TextBox1.SetFocus
Cancel = True
' Exit Sub
End If
End Sub