Textbox en format heure

[majnoune]

Bonjour,

j'ai une textbox en format : 00:00

dont le programme en vba est :

Private Sub TextBox2_Change()
Dim txt As Byte
TextBox2.MaxLength = 5
txt = Len(TextBox2)
If txt = 2 Then
TextBox2 = TextBox2 & ":"
End If
End Sub

cela facilite la saisie des champs, le problème c'est que je veux controler le champs :
c a d :
pour les 2 premièrs caractère et les 2 derniers ils doivent etre numeric !
le 1 caractère ne doit pas depasser le chiffre 3 (pour respecter le format heure (AM)

merci

 

[wilfried_42]

Re : Textbox en format heure

Bonjour

Pour Controler si c'est une bonne heure :

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Dim sai_h As Date
    On Error GoTo erreur
    sai_h = CDate(TextBox1.Value) ' Si ce n'est pas une heure : provoque une erreur
    On Error GoTo 0
    Exit Sub
erreur:
    MsgBox "L'heure : " & TextBox1 & " Est invalide"
    On Error GoTo 0
    Cancel = True
End Sub