Bonjour à tous,

Voila je voudrais en controler la date

en 1 faire les barres d'espacement automatiquement (ça marche!!)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
Private Sub TextBox2_Change()
 
 
TextBox2.MaxLength = 10
Valeur = Len(TextBox2)
 
If Valeur = 2 Or Valeur = 5 Then TextBox2 = TextBox2 & "/"
If Len(TextBox2) = 10 And Not IsDate(TextBox2) Then TextBox2 = ""
en 2 :contrôler si je suis bien en format date, par contre ça ne marche pas!!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox2.Value) = Format(mydate, "dd/mm/yyyy") Then GoTo fin1
 
If Len(TextBox2.Value) <> Format(mydate, "dd/mm/yyyy") Then
 
MsgBox "Entrer la date dans ce format jj/mm/aa"
End If
fin1:
End Sub
de plus je voudrais que lorsque je ne suis pas dans le bon format, il faudrait retourner sur le textbox2

en 3: comment faire pour contrôler une date se trouvant par exemple entre le 01/10/07 et 30/09/08

merci de votre renseignement