Date

Bonjour à tous,

Me voila avec un soucis sur une date

Je souhaiterai bloqué le chiffre des dizaines du mois

exemple si ma date est 31/1

je ne veux pas pouvoir mettre autre chose qu'un 0 ou 1 ou 2

mais je veux que si ma date est 31/0 je puisse mettre tout les chiffres.

Pour l'instant j'ai sa comme code mais je n'arrive pas a bloquer le chiffre des dizaines ou si je le bloque je n'ai plus accès au 09 08 07 ect ....

Private Sub T1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

Dim touche_autorisée As String

touche_autorisée = "[01234567989/]"

If Not ChrW(KeyAscii) Like touche_autorisée Then KeyAscii = 0

  If Len(T1) = 10 Then KeyAscii = 0: Exit Sub

   If Len(T1) = 0 And Not ChrW(KeyAscii) Like "[0-1-2-3]" Then KeyAscii = 0

     If Len(T1) = 1 And T1.Value = 3 And Not ChrW(KeyAscii) Like "[0-1]" Then KeyAscii = 0

        If Len(T1) = 3 And Not ChrW(KeyAscii) Like "[0-1]" Then KeyAscii = 0

        If Len(T1) = 4 And T1.Value = T1 & 1 And Not ChrW(KeyAscii) Like "[0-1-2]" Then KeyAscii = 0

End Sub

Merci de votre aide

Salut,

Ceci devrait convenir :

If Len(T1) = 4 And Val(Right(T1, 2)) > 12 Then KeyAscii = 0

A+

H

Bonjour,

Désolé ta solution en marche pas dans ma textbox je peux toujours écrire 31/17/2017

Alors ça :

If Len(T1) = 4 And Val(Right(T1, 1) & Chr(KeyAscii)) > 12 Then KeyAscii = 0

Merci beaucoup

cela fonctionne