Papynou
XLDnaute Occasionnel
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
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