Validation Heure dans TextBox

[MuscatMimi]

Bonjour a tous

Dans le Code ci-dessous( pris dans le Fichier Calendrier Isa, sur le site F Sigonneau)

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

J'obtiens 10:00:00,
mais je désire avoir 10:00

Merci a l'avance de vos réponses
Bonne journée
Cordialement

j'ai essayé ,mais je n'y suis pas arrivé

 

[Pierrot93]

Re : Validation Heure dans TextBox

Bonjour Christian

essaye peut être comme ceci :

TextBox1.Value = Format(TimeSerial(CInt(h), CInt(m), 0), "hh:nn")

bonne journée
@+

 

[MuscatMimi]

Re : Validation Heure dans TextBox

Bonsoir Pierrot, et le Forum

Super ça fonctione nickel
Grand merci a toi,pour ce tte modif de procédure

a bientôt
Bonne fin de journée