Salut,
Voici un exemple pour insérer dans une listview via une base de donnée :
'Mise à jour de la listview1 et création de3 colonnes
ListView1.ListItems.Clear
ListView1.ColumnHeaders.Clear
ListView1.ColumnHeaders.Add , , "Col1", (ListView1.Width * (3 / 8)), lvwColumnLeft
ListView1.ColumnHeaders.Add , , "Col2", (ListView1.Width * (3 / 18)), lvwColumnLeft
ListView1.ColumnHeaders.Add , , "Col3", (ListView1.Width * (3 / 15)), lvwColumnLeft
ListView1.View = lvwReport
'Tri par Ton champ à tier dans ta table
resultatADO.sort = "TonChamp ASC"
'Positionement sur le premier enregistrement de la base
resultatADO.MoveFirst
'Déclare une variable pour ajouter des objets ListItem.
Dim itmx As ListItem
While Not resultatADO.EOF
'Police de départ
ListView1.Font.Size = 12
Set itmx = ListView1.ListItems. _
Add(, , CStr(resultatADO!TonChamp))
If Not IsNull(resultatADO!TonChamp) Then
itmx.SubItems(1) = resultatADO!TonChamp
End If
If Not IsNull(resultatADO!TonChamp) Then
itmx.SubItems(2) = resultatADO!TonChamp
End If
resultatADO.MoveNext ' Passe à l'enregistrement suivant.
Wend
Tout ce qui a en bleu il faut que tu l'adaptes pour toi
A+
Exploreur