Bonjour le forum
Bonjour NRZVba & Robert
Très fine ta subtilité Robert. Je joint le code que j'utilise et dont le papa n'est autre que l'EXCELlent Ti que je salue au passage (Pour l'année saisir par ex 04 pour obtenir ==> 2004). NRZVba pourra l'améliorer pour interdire les valeurs non autorisées.
Private Sub TextDate_Change()
Dim Texte As String
Texte = TextDate.Text
Select Case Len(Texte)
Case 2, 5
Texte = Texte & "/"
End Select
TextDate.Text = Texte
End Sub
Private Sub TextDate_Enter()
TextDate.Text = ""
End Sub
Private Sub TextDate_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsDate(TextDate.Text) Then
TextDate.Text = Format(TextDate.Text, "dd/mm/yyyy")
Else
TextDate.Text = ""
End If
End Sub
Bon dimanche
@ ++ Eric C