Validation Heure dans TextBox

Private Sub CommandButton11_Click()
Dim h As Integer, m As Integer

With UserForm1
h = .ListBox1.ListIndex
If .ListBox4.ListIndex > -1 Then
m = .ListBox4.ListIndex + 40
ElseIf .ListBox3.ListIndex > -1 Then
m = .ListBox3.ListIndex + 20
Else
m = .ListBox2.ListIndex
End If
End With

TextBox1.Value = TimeSerial(CInt(h), CInt(m), 0)
clearAll
End Sub

Cliquez pour agrandir...