remplir une listview

Réponse acceptée !
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

Réponse acceptée !

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