Bonjour le Forum
Je viens vers vous pour de l'aide, Avec l'aide du forum, j'essai de construire une listview grâce aux différents exemples que je trouve à droite et à gauche.
J'ai un tableau de A3:Y et dans les colonnes K,L,M,N,O,P se trouve des heures en format 18:30
Ce que j'essai de faire est de remettre en format hh:mm ces colonnes dans la ListView mais je n'y arrive pas.
Pas sur de l'endroit de mon code et sa construction. Repéré par CODE EN ESSAI
Voici le code :
Private Sub UserForm_Initialize()
Set f = Sheets("Dépassement hr et Vol supp")
Set d = CreateObject("scripting.dictionary")
Tbl = f.Range("A3:Y" & f.[A65000].End(xlUp).Row).Value
Ncol = UBound(Tbl, 2)
For i = LBound(Tbl) To UBound(Tbl)
If Tbl(i, 8) <> "" Then d(Tbl(i, 8)) = ""
Next i
temp = d.keys
Call Tri(temp, LBound(temp), UBound(temp))
Me.ComboBox1.List = temp
'---listview
With Me.ListView1
With .ColumnHeaders
.Clear
For k = 1 To Ncol
.Add , , f.Cells(2, k), f.Columns(k).Width * 0.9
Next k
End With
.Gridlines = True
.View = lvwReport
ligne = 1
For i = 1 To UBound(Tbl)
.ListItems.Add , , Tbl(i, 1)
'.ListItems(ligne).ListSubItems.Add , , Cells.Offset(i, 9) '<---- CODE EN ESSAI
For k = 2 To Ncol
Next k
ligne = ligne + 1
Next i
End With
End Sub
Merci à vous par avance
Cordialement