[Résolu] Listview et imagelist

L'argument [Image] spécifie le chemin du fichier à charger ou le conteneur d'image (voir les exemples du chapitre III-B).

Cliquez pour agrandir...

Private Sub UserForm_Initialize()



With Me
With .ListView1
'Supprime toutes les images de la liste
Me.ImageList1.ListImages.Clear

'Définit la dimension des images
Me.ImageList1.ImageHeight = 17 'Hauteur
Me.ImageList1.ImageWidth = 31 'Largeur


Me.ImageList1.ListImages.Add , "Coche", Me.Image1.Picture
Me.ImageList1.ListImages.Add , "NonCoche", Me.Image2.Picture
'Associe les images à la ListView
Set Me.ListView1.SmallIcons = Me.ImageList1
Set Me.ListView1.Icons = Me.ImageList1

.View = 3
.Gridlines = True
.FullRowSelect = True
.HideColumnHeaders = False
.LabelEdit = 1


With .ColumnHeaders
.Clear
.Add , , "Date", 80, lvwColumnLeft
.Add , , "Mode", 87
.Add , , "Tiers", 88
.Add , , "Groupe", 70
.Add , , "Catégorie", 88
.Add , , "Débit", 70, lvwColumnRight
.Add , , "Crédit", 70, lvwColumnRight
.Add , , "P", 25, lvwColumnCenter
End With
NoLgn = Range("C65536").End(xlUp).Row
For c = 9 To NoLgn
' Remplir la première colonne
ListView1.ListItems.Add , , Cells(c, 3)
'Remplissage colonnes 2 à 8
ListView1.ListItems(n + 1).ListSubItems.Add , , Cells(c, 4)
ListView1.ListItems(n + 1).ListSubItems.Add , , Cells(c, 6)
ListView1.ListItems(n + 1).ListSubItems.Add , , Cells(c, 7)
ListView1.ListItems(n + 1).ListSubItems.Add , , Cells(c, 8)
ListView1.ListItems(n + 1).ListSubItems.Add , , Format(Cells(c, 10), "#,##0.00 €")
ListView1.ListItems(n + 1).ListSubItems.Add , , Format(Cells(c, 11), "#,##0.00 €")
If Cells(c, 9).Value = "o" Then
ListView1.ListItems(n + 1).ListSubItems.Add , , , "NonCoche"
Else
ListView1.ListItems(n + 1).ListSubItems.Add , , , "Coche"
End If
n = n + 1
Next c



End With
End With

Cliquez pour agrandir...

13GIBE59 à dit:

Bonjour Si...

Le filtre ne marche plus, ou je me trompe ?

JB

Cliquez pour agrandir...