Bonjour à toutes et à tous,
Dans mon application j'ai supprimé la ComboBox (ceux qui me suivent comprendront - https://excel-downloads.com/threads...omboBox à 3 colonnes avec les données d'un TS ) et je l'ai remplacé par une ListBox.
La ListBox est bien alimentée selon le code ci-joint, cependant je souhaiterai que la 4ème colonne soit au format [h]:mm.
Avec le code ci-joint, la 4ème colonne donne le résultat ":12".
Qu'ai-je fais qui ne convienne pas ?
Merci par avance pour votre aide
Dans mon application j'ai supprimé la ComboBox (ceux qui me suivent comprendront - https://excel-downloads.com/threads...omboBox à 3 colonnes avec les données d'un TS ) et je l'ai remplacé par une ListBox.
La ListBox est bien alimentée selon le code ci-joint, cependant je souhaiterai que la 4ème colonne soit au format [h]:mm.
Avec le code ci-joint, la 4ème colonne donne le résultat ":12".
Qu'ai-je fais qui ne convienne pas ?
Merci par avance pour votre aide
VB:
Sub RempliListBox()
Dim Ws As Worksheet
Dim Tbl As ListObject
Dim I As Long, Col As Long
Dim Data As Variant
'Définir la feuille de calcul et le tableau structuré
Set Ws = Sheets("Liste_agents")
Set Tbl = Ws.ListObjects("t_Noms")
'On récupére les données du TS
Data = Tbl.DataBodyRange.Value
With UfGestTemps.MultiPage1.Pages(0)
'On définie le nbre de colonnes de la ListBox
.Lst_Employ.ColumnCount = 4
'On remplit la ListeBox avec les données du TS
For I = 1 To UBound(Data, 1)
.Lst_Employ.AddItem
For Col = 1 To 4
'On formate la 4ème colonne au format "[h]:mm"
If Col = 4 Then
.Lst_Employ.List(I - 1, Col - 1) = Format(Data(I, Col), "[h]:mm")
Else
.Lst_Employ.List(I - 1, Col - 1) = Data(I, Col)
End If
Next Col
Next I
End With
End Sub
Dernière édition: