Format hh,mm,ss dans listBox

[mfb]

Bonsoir à tous et toutes bien sur.
Malgrès une multitude de fil sur le sujet format heure je n' ai pas réussi à résoudre le pb de transfert de données exprimées en hh,mm,ss dans la feuille vers la listebox.
Voir le petit fichier joint.
A dispo pour + info
Merci d' avance
Daniel

 

[wilfried_42]

Re : Format hh,mm,ss dans listBox

Bonjour

ajoute les lignes en rouge, ca devrait aller

Private Sub CommandButton1_Click()

Dim dl As Integer
Dim Tablo
With Sheets("feuil1")
di = .Range("E65536").End(xlUp).Row
If di < 1 Then
Else
Tablo = .Range(.Cells(5, 3), .Cells(di, 9))
End If
End With
For i = 5 To di
Tablo(i - 4, 2) = Format(Tablo(i - 4, 2), "hh:mm:ss")
Next i
With UserForm1.ListBox1
.ColumnCount = 6
.ColumnWidths = "30;60;30;30;100;100"
.List = Tablo
End With
End Sub

 

[Banzai64]

Re : Format hh,mm,ss dans listBox

Bonsoir
A voir

 

[mfb]

Re : Format hh,mm,ss dans listBox

Re.....
Les 2 solutions proposées marchent.
Je prendrai la solution de Wilfried 42 qui à l' avantage de ne pas charger la feuille 1 déja bien occupée par ailleurs.
Alors merci à tous et en particulier à Wilfried42 et Banzai64,
et à tous joyeux Noël.
A+
Daniel