dans un textbox , je voudrais par une private sub exit , empecher la saisie de // . (afin d'empecher une date erronée).
Comment rédiger cette condition?
Merci , et bravo à tous pour votre compétence et votre disponibilité.....
Voici le code de Maître Ti qui est placé dans tous mes progs. Il détecte si une date erronée est insérée.
Private Sub TextBox1_Change()
Dim Texte As String
Texte = TextBox1.Text
Select Case Len(Texte)
Case 2, 5
Texte = Texte & "/"
End Select
TextBox1.Text = Texte
End Sub
Private Sub TextBox1_Enter()
TextBox1.Text = ""
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Text = Format(TextBox1.Text, "dd/mm/yyyy")
End Sub