Format date dans zone de texte

salut,
il faut écrire deux procédures évènementielles :
une pour _Change et une pour _KeyPress
par exemple pour une zone de texte ctrlDate
Public fl As Boolean
Private Sub ctrlDate_Change()
'format date à 8 caractères nn/nn/nn
Dim l As Integer
l = Len(Me.ctrlDate.Value)
If fl Then
fl = False
If l = 2 Or l = 5 Then
Me.ctrlDate.Value = Me.ctrlDate.Value & "/"
End If
End If
End Sub

Private Sub ctrlDate_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii <> Asc("/") And KeyAscii > 47 And KeyAscii < 58 And
Len(Me.ctrlDate.Value) < 9 Then
fl = True
Else
KeyAscii = 0
End If
End Sub



--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel

--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"HA" <ha@free.fr> a écrit dans le message de news:
#d59URjxDHA.3468@TK2MSFTNGP11.phx.gbl...

Bjr

Comment dans une zone de texte, pouvoir saisir uniquement des formats date
(ex : 02/12/2003)