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
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