Bonjour Jpmalb, bonjour le forum,
On peut aisément demander le rajout de ":" après le deuxième caractère édité. Mais on arrive vite a une usine à gaz si on veut traiter tous les cas de figure.
If Len(Me.TextBox1) = 2 Then Me.TextBox1.Value = Me.TextBox1.Value & ":"
L'utilisateur tape 82 au lieu de 0802. il obtient 82:00 (82 heures) au lieu de 08:02 (8 heures et 2 minutes), Et pour 08:20 ?... Bref, tu vois c'est pas simple...
Tu peux aussi utiliser deux TextBoxes dont le nombre de caractères est limité à deux. La première pour les heures et la seconde pour les minutes mais il faudra coder pour que ça devienne une valeur au format hh:mm.
Private Sub TextBox2_AfterUpdate()
Dim H As Date
H = TimeSerial(Me.TextBox1.Value, Me.TextBox2.Value, 0)
MsgBox H
End Sub