Vérification de saisie TextBox

Version imprimable

Bonjour à tous et à toutes et comme il est encore temps « BONNE ET HEUREUSE ANNEE 2014 ».
Ma demande aujourd’hui est sur la vérification du format de saisie dans un TextBox.
Sur mon userform j’ai un TextBox ou l’on doit saisir l’heure d’enregistrement au format HH:MM (exemple 10:00).
J’ai un code qui à la sortie du TextBox vérifie le format de saisie.
Code:

1 2 3 4 5 6 7 8 9 Private Sub TextBox44HEUREBIS_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Not IsDate(TextBox44HEUREBIS) Then MsgBox "Saisir l'heure au format HH:MM !!!" Me.TextBox44HEUREBIS.Value = "" Me.TextBox44HEUREBIS.SetFocus Exit Sub End If End Sub
Mais ce dernier autorise deux formats
10:00
10/00
Comment faire pour laisser passer que le seul format 10:00 (HH:MM)
Merci pour votre aide.

bonjour,

Code:

1
2
3
4
5
6
7
8
9
Private Sub valider_Click()
Debug.Print IsTime(Me.TextBox1)
End Sub
Function IsTime(T As String) As Boolean
If Len(T) <> 5 Then Exit Function
If InStr(T, ":") = 0 Then Exit Function
If IsDate(T) = False Then Exit Function
IsTime = True
End Function

Bonjour rdurupt et merci pour ton aide,
J'ai inséré ta solution dans mes macros comme ci-dessous :
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub TextBox44HEUREBIS_Exit(ByVal Cancel As MSForms.ReturnBoolean) Debug.Print IsTime(Me.TextBox44HEUREBIS) End Sub Function IsTime(T As String) As Boolean If Len(T) <> 5 Then Exit Function If InStr(T, ":") = 0 Then Exit Function If IsNumeric(T) = True Then Exit Function If IsDate(T) = False Then Exit Function IsTime = True End Function
A la place de :
Private Sub valider_Click()
j'ai mis :
Private Sub TextBox44HEUREBIS_Exit(ByVal Cancel As MSForms.ReturnBoolean)

et à la place de :
Debug.Print IsTime(Me.TextBox1)
j'ai mis :
Debug.Print IsTime(Me.TextBox44HEUREBIS)

J'ai lancé mon userform et j'ai saisi dans ma TextBox44HEUREBIS une heure avec un mauvais format du style 11h02 à la sortie du TextBox44HEUREBIS pas de blocage ma saisie semble etre acceptée alors quelle ne correspond pas au format !
Après plusieurs essais avec différents formats rien n'est refusé.
Ou est mon erreur ?
Merci

debug.print affiche le résultat dans la fenêtre d'exécution [Ctrl] + [G]

Code:

1
2
3
4
5
6
7
8
9
Private Sub TextBox44HEUREBIS_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsTime(TextBox44HEUREBIS) Then
        MsgBox "Saisir l'heure au format HH:MM !!!"
          Me.TextBox44HEUREBIS.Value = ""
            Me.TextBox44HEUREBIS.SetFocus
  Exit Sub
 End If
 
End Sub

Istime est une fonction que j'ai créé pour que tu la substitue à Isdate!

bonjour rdurupt,
Je reprends le cours de la discussion après une demi-journée d'obligations.
J'ai compris ta dernière explication et donc j'ai placé le code de la manière suivante :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Function IsTime(T As String) As Boolean If Len(T) <> 5 Then Exit Function If InStr(T, ":") = 0 Then Exit Function If IsNumeric(T) = True Then Exit Function If IsDate(T) = False Then Exit Function IsTime = True End Function 'XOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOX Private Sub TextBox44HEUREBIS_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Not IsTime(TextBox44HEUREBIS) Then MsgBox "Saisir l'heure au format HH:MM !!!" Me.TextBox44HEUREBIS.Value = "" Me.TextBox44HEUREBIS.SetFocus Exit Sub End If End Sub
Après le lancement de l'Userform et la saisie d'une heure au mauvais format ton code fonctionne à merveille.
Donc je viens te remercier pour ton aide rapide et efficace.:merci:
Merci et bon WE