Format d'une colonne dans ListView

[Papynou]

Bonjour le forum,

J'utilise le code ci-dessous pour remplir un ListView à 4 colonnes. Son papa, que je remercie encore, le reconnaitra.

Il fonctionne très bien et me donne entière satisfaction.


With ThisWorkbook.Worksheets("Archives")
Ligne = .Cells(65536, colonne).End(xlUp).Row
For Each c In .Range(.Cells(2, colonne), .Cells(Ligne, colonne))
If c = CDbl(Txt_No) Then
x = x + 1
Me.Lsv_Archives.ListItems.Add , , .Cells(c.Row, 1)
For i = 2 To 4
Me.Lsv_Archives.ListItems(x).ListSubItems.Add , , .Cells(c.Row, i)
Next i
End If
Next c
End With


C'est vraiment un gentil garçon mais il est têtu, n'en fait qu'à sa tête et moi je suis incapable de lui apprendre à mettre la 3ème colonne sous le format ("### ### ###")

D'avance merci aux magiciens qui vont trouver la solution

 

[Hervé]

Re : Format d'une colonne dans ListView

re papynou

sans avoir testé, as tu essayé un truc comme ca :

With ThisWorkbook.Worksheets("Archives")
Ligne = .Cells(65536, colonne).End(xlUp).Row
For Each c In .Range(.Cells(2, colonne), .Cells(Ligne, colonne))
If c = CDbl(Txt_No) Then
x = x + 1
Me.Lsv_Archives.ListItems.Add , , .Cells(c.Row, 1)
For i = 2 To 4
Select Case i
Case 3
Me.Lsv_Archives.ListItems(x).ListSubItems.Add , , Format(.Cells(c.Row, i), "### ### ###")
Case Else
Me.Lsv_Archives.ListItems(x).ListSubItems.Add , , .Cells(c.Row, i)
End Select
Next i
End If
Next c
End With

salut

 

[Papynou]

Re : Format d'une colonne dans ListView

re Hervé

sans avoir testé, as tu essayé un truc comme ca :

Oui, bien sur que j'avais essayé un truc comme ça

La seule différence c'est que le tien, même pas testé, il fonctionne

Encore un grand merci Hervé