Bonjour,
Je souhaite alimenter une listview par les différentes valeurs d'une colonne d'une feuille de calcul.
Ainsi, si j'ai:
A
A
B
Je souhaite que ma listview affiche
A
B
J'ai repris le code existant dans les différents forums, par contre, je ne sais pas comment savoir si mon occurence est déjà présénte dans ma listview.
Mon code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30 Dim Rg As Range, C As Range Set Rg = Workbooks("ab.xls").Worksheets("test").Range("E4:E" & ActiveSheet.Range("E65536").End(xlUp).Row) With ListView1 'Définit le nombre de colonnes et Entêtes With .ColumnHeaders 'Supprime les anciens entêtes .Clear 'Ajoute 1 colonnes en spécifiant le nom de l'entête 'et la largeur des colonnes .Add , , "Ressources", 200 End With 'Remplissage de la 1ere colonne For Each C In Rg With .ListItems .Add , , C.Value End With Next End With 'Spécifie l'affichage en mode "Détails" ListView1.View = lvwReport ListView1.HideColumnHeaders = True
Partager