bonjour
je decouvre les listviews.

actuellement je cherche à remplir une listview
j'ai intialise ma listview (3 colonnes et noms d'entete N°fiche,installation,sitegeo respectivement de la largeur 80.30 et 80

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
with listview1.ColumnHeaders
.clear
.Add , , "N°fiche", 80
.Add , , "installation", 30
.Add , , "sitegeo", 80
end with


maintenant je cherche à remplir

apres un test
j'ai


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
............
derniereligne = Sheets("feuil2").Range("A4").End(xlDown).Row 'derniere ligne occupee dans colonne A
 
For lignedebut = 4 To derniereligne 'on test le contenu des combobox   
............................................
.................................................
if test+test....... then 
ListView1.ListItems(lignedebut).ListSubItems.Add(1) , ,Sheets("feuil2").Cells(lignedebut, 1).Value
ListView1.ListItems(lignedebut).ListSubItems.Add(2) , ,Sheets("feuil2").Cells(lignedebut, 2).Value
 
etc....


j'ai un retour erreur index hors limite


comme on le devine, je recupere le contenu dans la feuil2 en colon1 qui correspondra à la colonne une de ma listview
merci