format d'une textbox

Bonjour Darkv, le forum

Voici une proc change et une proc afterupdate clef en main pour la gestion d'une Texbox date. Le format est vérifié, mis en forme, une saisie semi automatique est en place, (les / sont ajoutés quand on tape une date au format jj/mm/yy). les dates type 1/1/5 pour 01/01/2005 sont acceptées et mises en forme

Cordialement, A+

Private Sub Texbox1_AfterUpdate()
With Choix_des_Periodes
If Not (IsDate(.Controls("Texbox1").Value)) Then
MsgBox "Erreur sur la date de début": .Controls("Texbox1").Value = ""
Else
.Controls("Texbox1").Value = Format(DateValue(.Controls("Texbox1").Value), "dd/mm/yyyy")
End If
End With
End Sub

Private Sub Texbox1_Change()
Select Case Len(Texbox1.Value)
Case 2
If Not (Right(Texbox1.Value, 1) = "/") Then
Texbox1.Value = Texbox1.Value & "/"
End If
Case 5
If Not (Right(Texbox1.Value, 1) = "/") And Not (Mid(Texbox1.Value, 4, 1) = "/") Then
Texbox1.Value = Texbox1.Value & "/"
End If
Case Else
End Select
End Sub