remplissage d'une listview

Version imprimable

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:

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:

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

Bonjour,

Tu ne peux tout simplement pas ajouter de subitems sans avoir au préalable ajouter l'Item !

Regarde ce que fait ceci (ce n'est qu'un exemple) et comprends-en le mécanisme :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Randomize
    ListView1.ColumnHeaders.Add , , "Nom", ListView1.Width / 3
    ListView1.ColumnHeaders.Add , , "prénom ID", ListView1.Width / 3, lvwColumnCenter
    ListView1.ColumnHeaders.Add , , "date de naissance", ListView1.Width / 3
    ListView1.ColumnHeaders.Add , , "", 0
    Dim itmX As ListItem
    For i = 1 To 10
       Set itmX = ListView1.ListItems.Add(, , Int((9 * Rnd) + 1))
       itmX.SubItems(1) = "a" & Int((9 * Rnd) + 1)
       If i Mod 2 = 0 Then
          itmX.SubItems(2) = "17/02/2000"
           itmX.SubItems(3) = "20000117"
       Else
          itmX.SubItems(2) = "20/03/2002"
          itmX.SubItems(3) = "20020320"
       End If
    Next

ouf ,
j'ai du mal , pas tout compris:?

j'ai rajouter
Code:

1 2 3 4 ListView1.ListItems.Add , , "" ListView1.ListItems(jj).ListSubItems.Add (1), , Sheets("feuil2").Cells(lignedebut, 2).Value
pas tout compris, tout la meme erreur

05/04/2008, 09h52
ucfoutu

je ne vois nulle part où tu constitues ta collection listitem (ce que j'ai appelé itemx) !!!

Elle est indispensable et doit être redéfinie ( Set ...) pour chaque item ajouté !!!

Aucun "bricolage" ne viendra remplacer ce mécanisme inévitable ...;)

merci ucfoutu
je commence à obtenir 2 ou trois truc ...:yaisse2:

je poursuis ;)

voila pour ou j'en suis , ca peut aider
pour initialisation dans la procedure userforminitialize

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
................
With ListView1
With .ColumnHeaders
.Clear
.Add , , "lignefeuil2", 30
.Add , , "N° fiche", 30
.Add , , "type instal", 50
.Add , , "geographie", 80
.Add , , "ETABLISSEMENT OCCUPANT", 30
...........
 
 
End With
 
End With

puis pour le remplissage

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
With ListView1
 
                 .ListItems.Add , , lignedebut
                 .View = lvwReport 'affiche en details
        End With
 
 
           ListView1.ListItems(lig).ListSubItems.Add , , Sheets("feuil2").Cells(lignedebut, 1).Value 'N°fiche  col2
           ListView1.ListItems(lig).ListSubItems.Add , , Sheets("feuil2").Cells(lignedebut, 2).Value 'typeinstall clo3
           ListView1.ListItems(lig).ListSubItems.Add , , Sheets("feuil2").Cells(lignedebut, 4).Value 'geographie col4"
           ListView1.ListItems(lig).ListSubItems.Add , , Sheets("feuil2").Cells(lignedebut, 5).Value 'occupant col5"
           ListView1.ListItems(lig).ListSubItems.Add , , Sheets("feuil2").Cells(lignedebut, 34).Value 'proprio col6"
           ListView1.ListItems(lig).ListSubItems.Add , , Sheets("feuil2").Cells(lignedebut, 20).Value 'n°LC col7"
           ListView1.ListItems(lig).ListSubItems.Add , , 
 
 
 
 lig = lig + 1 'compteur ligne listview

bon c'est pas top , mais cela fonctionne .