Existe-t-il un If IsTime ??

Function IsTime(Heure$) As Boolean
'
Dim HeureValide
'
  IsTime = True
  On Error GoTo MauvaiseHeure
  HeureValide = TimeValue(Heure)
  Exit Function
MauvaiseHeure:
  IsTime = False
End Function

Cliquez pour agrandir...

Private Sub TextBoxDateappel_Change()
Dim bytLenValue As Byte

With TextBoxDateappel
  bytLenValue = Len(.Value)
  Select Case bytLenValue
              Case 1, 2, 4, 5, 7, 8
                      If Not IsNumeric(Right(.Value, 1)) Then
                          MsgBox 'Hey là'
                          If bytLenValue > 1 Then
                              .Value = Mid(.Value, 1, bytLenValue - 1)
                          Else
                              .Value = Empty
                          End If
                      Else
                            If bytLenValue = 2 Or bytLenValue = 5 Then .Value = .Value & ':'
                      End If
              Case Is > 8
                      MsgBox 'Le temps n'a pas de fin mais ma patience oui !'
                      .Value = Mid(.Value, 1, bytLenValue - 1)
  End Select

End With

End Sub

Cliquez pour agrandir...