Remplir une listview [Résolu]

Question

Sujet Précédent Sujet Suivant

Remplir une listview [Résolu]

Signaler

lhonolulu

Messages postés: 26
Date d'inscription: jeudi 4 mars 2004
Statut: Membre
Dernière intervention: 14 février 2008

- 6 juil. 2005 à 17:17
lhonolulu

Messages postés: 26
Date d'inscription: jeudi 4 mars 2004
Statut: Membre
Dernière intervention: 14 février 2008

- 7 juil. 2005 à 10:03

Bonjour,

J'ai des données qui sont dans un tableau de dimension (3,3).
Je voudrais mettre le contenu de ce tableau dans une listview qui aura donc 3 colonnes.

Dim tableau As Variant
Dim itemx As ListItem

'crée les colonnes, enfin je suppose...
ListView1.ColumnHeaders.Add , , "essai1"
ListView1.ColumnHeaders.Add , , "essai2"
ListView1.ColumnHeaders.Add , , "essai3"
'etape1
'boucle sur mes nombres de colonnes
For j = 0 To 2
Set itemx = ListView1.ListItems.Add(, , tableau(0, j))
'etape2
'boucle sur mes lignes
For i = 1 To 3
itemx.SubItems(i) = tableau(i, j)
Next i
Next j

pb : etape2 ne fait rien...snif
et je n'arrive pas a m'en sortir
merci d'avance
rq : je ne veux pas le faire avec une listox

A voir également:

Listview vba
Vba listview - Meilleures réponses
Remplir une listview vba excel - Meilleures réponses
Clear listview vba ✓ - Forum - Visual Basic
Listview vba excel exemples - Guide
Listview vba access ✓ - Forum - Visual Basic 6
Listview bdd access ✓ - Forum - VB.NET
Remplir une listview vba excel ✓ - Forum - Visual Basic 6

2 réponses

Réponse 2 / 2

lhonolulu

Messages postés: 26
Date d'inscription: jeudi 4 mars 2004
Statut: Membre
Dernière intervention: 14 février 2008

1
7 juil. 2005 à 10:03

Dans ton code, à quoi sert itemx ? car en gros on a peu près la meme chose.

ListView1.ColumnHeaders.Add , , "Colonne1", ListView1.Width * 0.4, lvwColumnLeft
ListView1.ColumnHeaders.Add , , "Colonne2", ListView1.Width * 0.3, lvwColumnLeft
ListView1.ColumnHeaders.Add , , "Colonne3", ListView1.Width * 0.3, lvwColumnRight

'Suppression des éléments de la liste
ListView1.ListItems.Clear
For i = 0 To 2
'Alimentation des éléments de la liste
ListView1.ListItems.Add i + 1, , tableau(i, 0)
For j = 1 To 2
ListView1.ListItems(i + 1).SubItems(j) = tableau(i, 1)
'ListView1.ListItems(i + 1).SubItems(2) = tableau(i, 2)
Next j
Next i

Posez votre question

jpleroisse · Accepted Answer · 2005-07-06T23:12:01+0200

Bonsoir,

Je n'y connais pratiquement rien sur les ListView, mais en modifiant
ton code, je suis parvenu à écrire dans cette ListView. Peut-être que
celà t'aideras?? Mets Option Explicit avat ta procédure, celà oblige à
déclarer les variables et donne des indications sur les erreurs.

Option Explicit

Private Sub Command1_Click()

Dim tableau()

Dim itemx As ListItem

Dim i, j

ReDim tableau(0 To 2)

tableau(0) = "1er essai"

tableau(1) = "2ème essai"

tableau(2) = "3ème essai"

'crée les colonnes, enfin je suppose...

ListView1.ColumnHeaders.Add , , "essai1"

ListView1.ColumnHeaders.Add , , "essai2"

ListView1.ColumnHeaders.Add , , "essai3"

'etape1

'boucle sur mes nombres de colonnes

For j = 0 To 2

Set itemx = ListView1.ListItems.Add(, , tableau(j))

'etape2

'boucle sur mes lignes

For i = 0 To 2

itemx.SubItems(1) = CStr(tableau(j))

itemx.SubItems(2) = CStr(tableau(j))

Next i

Next j

End Sub

jpleroisse

Votre réponse