Posez votre question Signaler

Remplir une listview [Résolu]

Messages postés
26
Date d'inscription
jeudi 4 mars 2004
Dernière intervention
14 février 2008
 - - Dernière réponse : lhonolulu
Messages postés
26
Date d'inscription
jeudi 4 mars 2004
Dernière intervention
14 février 2008
 - 7 juil. 2005 à 10:03
Visual Basic Posez votre question Signaler
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
Afficher la suite 

2 réponses

Meilleure réponse
Signaler Commenter la réponse de jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Dernière intervention
11 mars 2006
 25
3
Merci
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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 117 internautes nous ont dit merci ce mois-ci

Signaler Commenter la réponse de lhonolulu
Messages postés
26
Date d'inscription
jeudi 4 mars 2004
Dernière intervention
14 février 2008
 1
3
Merci
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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 117 internautes nous ont dit merci ce mois-ci

Posez votre question
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.