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