Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim heure As Date
With Me.TextBox1
If .Value = "" Then Exit Sub
If Not IsDate(.Value) Then
Cancel = True
.SelStart = 0
.SetFocus
.SelLength = Len(.Text)
Else
heure = .Value
.Value = Format(.Text, "hh:mm")
End If
End With
End Sub
Private Sub TextBox1_Change()
Dim Auto As Boolean
If Auto Then Exit Sub
If Len(Me.TextBox1) > 2 Then
With Me.TextBox1
Chaîne = Replace(.Text, ":", "")
Chaîne = Format(Left(Chaîne, Len(Chaîne) - 2), "00") & ":" & Right(Chaîne, 2)
Auto = True
.Text = Chaîne
Auto = False
End With
End If
End Sub