Format dans une ListView

1 réponse
Avatar
Brat'ac
Bonsoir,

Dans une ListView que je remplie de la sorte
(partie du code qui fonctionne bien)
-------------------------------------------------------------
For Each c In Range("A2:A" & [A65000].End(xlUp).Row)
.ListItems.Add , , c
.ListItems(Ligne).ListSubItems.Add , , c.Offset(, 1)
.ListItems(Ligne).ListSubItems.Add , , c.Offset(, 2)
.ListItems(Ligne).ListSubItems.Add , , c.Offset(, 3)
.ListItems(Ligne).ListSubItems.Add , , c.Offset(, 4)
Ligne = Ligne + 1
Next c
------------------------------------------------------------
j'essaie en vain de mettre un format sur la colonne 4 comme cela:
plus divers essais tous infructueux.
------------------------------------------------------------
.ListItems(Ligne).ListSubItems.Add , , c.Offset(, 4) = Format(Time,
"hh:mm:ss")
---------------------------------------------------------
Mais j'obtiens comme résultat des "0" dans la colonne

Je pense que mon "Format" est mal placé, mais ou et comment le placer ?

Merci

1 réponse

Avatar
Brat'ac
Brat'ac a formulé ce dimanche :


Bon, j'ai trouvé.

.ListItems(Ligne).ListSubItems.Add , , Format(c.Offset(, 4),
"hh:mm:ss"), c.Offset(, 4)