Txtbox et sub exit by val

[janus]

Bonjour au Forum

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é.....

 

[Eric C]

Bonjour le forum
Bonjour Janus

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

Bon ouikand à toutes & à tous
@ ++ Eric C

 

[janus]

Merci pour ta réponse ; j'étudie ton code ce dimanche
Bon week end

 

[myDearFriend]

Bonjour Janus, Eric_C,


A toutes fins utiles, un petit exemple de contrôle de saisie des dates dans un TextBox.


Cordialement,
Didier_mDF