XL 2010 Forcer le format horaire 00:00

[Myst]

Bonsoir le forum
J'ai un textbox5 dans lequel je saisie un format " heure " , le code ci-dessous active les ":" automatiquement après la saisie des 2 premiers chiffres et je voudrais ajouter "00" si rien n'est saisie après, autrement dit ,éviter d'avoir un format heure comme ça "10:"
merci

Private Sub TextBox5_Change()
Dim Valeur As Byte
TextBox5.MaxLength = 5 'nb caractères maxi autorisé dans le textbox
Valeur = Len(TextBox5)
If Valeur = 2 Or Valeur = 2 Then TextBox5 = TextBox5 & ":" 'afficher ":" aprés la saisie des 2 premiers chiffres
End Sub

 

[jecherche]

Bonjour,

À tester...

Private Sub TextBox5_Change()
Dim Valeur As Byte
TextBox5.MaxLength = 5 'nb caractères maxi autorisé dans le textbox
Valeur = Len(TextBox5)
If Valeur = 2 Or Valeur = 2 Then TextBox5 = TextBox5 & ":" 'afficher ":" aprés la saisie des 2 premiers chiffres
End Sub

Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Valeur = Len(TextBox5)
If Valeur = 3 Or Valeur = 3 Then TextBox5 = TextBox5 & "00"
End Sub

Jecherche

 

[Myst]

Bonjour jecherche
Parfait, un grand merci