Format date dans TextBox

[Worm]

Bonjour à tous et bonnes fêtes!

Question: je souhaiterais pouvoir taper une date au format jj/mm/aa dans une TextBox sans avoir à taper les '/'.
Y a-t-il une possibilité? ou suis-je obligé de faire 3 boîtes différentes?

Merci

Worm

 

[petchy]

Bonsoir le forum
Worm voila le code pour la date

Private Sub TextBox1_Change()
Dim Val As Byte
TextBox1.MaxLength = 10
Val = Len(TextBox14)
If Val = 2 Then TextBox14 = TextBox1 & "/"
If Val = 5 Then TextBox14 = TextBox1 & "/"
End Sub
@plus
petchy

 

[Papirus]

Bonsoir le forum
Worm voila ce que j'utilise

TextBox70 = Format(.Range("i10").Value, "yyyy-mm-dd")

essaie, ça peut être une solution

a+
Papirus

 

[Yeahou]

Bonjour

pour ma part j'utilise une combinaison des événements change et afterupdate. Ce code permet de saisir ou pas avec les /, d'accepter les dates abrégées type 1/1/4 (la, faut saisir les / quand même) et de vérifier le format des données entrées. Un exemple en pièce jointe

Cordialement, A+

Private Sub Datedeb_AfterUpdate()
If Not (IsDate(Datedeb.Value)) Then
MsgBox "Erreur sur la date de début": Datedeb.Value = ""
Else
Datedeb.Value = Format(DateValue(Datedeb.Value), "dd/mm/yyyy")
Me.JourDeb.Value = Format(DateValue(Datedeb.Value), "dddd")
End If
End Sub
Private Sub Datedeb_Change()
If Right(Datedeb.Value, 2) = "//" Then Datedeb.Value = Left(Datedeb.Value, Len(Datedeb.Value) - 1)
Select Case Len(Datedeb.Value)
Case 2
If Not (Right(Datedeb.Value, 1) = "/") Then
Datedeb.Value = Datedeb.Value & "/"
End If
Case 5
If Not (Right(Datedeb.Value, 1) = "/") And Not (Mid(Datedeb.Value, 4, 1) = "/") Then
Datedeb.Value = Datedeb.Value & "/"
End If
Case Else
End Select
End Sub