1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'evenement LostFocus utilisé, ainsi la procédure s'exécute lors
'lors de la perte du focus par le contrôle txtHeure
'cette procédure appelle la fonction check_HourFormat
'si check_HourFormat = VRAI (True), elle formate le txtHeure dans la forme hh:mm
If TextBox1.Value = "" Then Exit Sub
If Not Check_hourFormat(TextBox1.Value) Then
MsgBox "le format de l'heure saisie n'est pas valide", vbExclamation, "Erreur de saisie"
TextBox1.Value = ""
Cancel = True
Else
TextBox1 = Left(TextBox1.Value, 2) & ":" & Right(TextBox1.Value, 2)
End If
End Sub
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Dans le TextBox, autorise uniquement les touches numériques
KeyAscii = AutoriseFrappe(KeyAscii)
End Sub |
Partager