Format dans une ListView
Le
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
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
Bon, j'ai trouvé.
.ListItems(Ligne).ListSubItems.Add , , Format(c.Offset(, 4),
"hh:mm:ss"), c.Offset(, 4)