Ce code que j'ai récupérer ici fonctionne bien, mais les mois et les jours peuvent excéder les valeurs permises soit plus de 12 mois ou plus de 31 jours sans compter les erreurs sur les mois de 30 jours et moins. Comment pourrais-je résoudre ce problème et quelle méthode utilisé avec le code ci dessus.
Merci à l'avance
Daniel
CODE=rich]Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Dim VT As Integer
TextBox1.MaxLength = 10
Select Case KeyAscii
Case 46, 48 To 57
VT = Len(TextBox1)
If VT = 2 Or VT = 5 Then TextBox1 = TextBox1 & "/"
Case Else
KeyAscii = 0
MsgBox "CARACTERE NON AUTORISE"
End Select
End Sub[/CODE]
cordialement galougalou
ps je poste en meme temps que sylvanu( je post ou je post pas............ allez........je post! et je rajoute bonjour sylvanu
[/QUOTE]
Ce code fonctionne bien, mais les mois et les jours peuvent excéder les valeurs permises soit plus de 12 mois ou plus de 31 jours sans compter les erreurs sur les mois de 30 jours et moins. Comment pourrais-je résoudre ce problème et quelle méthode utilisé avec le code ci dessus.
Merci
Merci à l'avance
Daniel
CODE=rich]Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Dim VT As Integer
TextBox1.MaxLength = 10
Select Case KeyAscii
Case 46, 48 To 57
VT = Len(TextBox1)
If VT = 2 Or VT = 5 Then TextBox1 = TextBox1 & "/"
Case Else
KeyAscii = 0
MsgBox "CARACTERE NON AUTORISE"
End Select
End Sub[/CODE]
cordialement galougalou
ps je poste en meme temps que sylvanu( je post ou je post pas............ allez........je post! et je rajoute bonjour sylvanu
[/QUOTE]
Ce code fonctionne bien, mais les mois et les jours peuvent excéder les valeurs permises soit plus de 12 mois ou plus de 31 jours sans compter les erreurs sur les mois de 30 jours et moins. Comment pourrais-je résoudre ce problème et quelle méthode utilisé avec le code ci dessus.
Merci