XL 2010 Forcer le format horaire 00:00

Myst

XLDnaute Occasionnel
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
VB:
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

XLDnaute Occasionnel
Bonjour,

À tester...
Code:
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
 

Discussions similaires

Réponses
19
Affichages
2 K

Statistiques des forums

Discussions
312 875
Messages
2 093 144
Membres
105 638
dernier inscrit
cordier