Macro textbox format date automatique sans saisi des /

[dubosd33]

J'utilise souvent

DTPicker1.CustomFormat = "dd/MM/yyyy"
DTPicker1.Value = Date

dans mes formulaires.
Aujourd'hui sur demande de collègues j'ai sorti ça

Private Sub TextBox3_Change()
If TextBox3.TextLength = 2 Then
    TextBox3.Text = TextBox3.Text & "/"
ElseIf TextBox3.TextLength = 5 Then
    TextBox3.Text = TextBox3.Text & "/"
End If
End Sub

Range("A1" ) = CDate(TextBox3.Value) // on récupère la date formater comme il faut

pour formater automatiquement la date sans saisie des /

 

[Bebere]

Re : Macro textbox format date automatique sans saisi des /

bonjour Dubo
exemple:01022012,11112012

Private Sub TextBox3_Change()

Me.TextBox3.MaxLength = 10
Select Case Len(Me.TextBox3)
Case 2, 5
Me.TextBox3 = Me.TextBox3 & "/"
End Select

End Sub