Salut Gisma,
Toujours avec tes Listviews !!!
Amuse-toi bien...
Essai de comprendre ce code...
(création d'un listview1 dans une forme vierge)
Private Sub Form_Load()
Static a As Integer
Static Total1 As Integer
Static Total2
ListView1.ColumnHeaders.Add , , " Ref: ", ListView1.Width / 3
ListView1.ColumnHeaders.Add , , "Quantité", ListView1.Width / 3
ListView1.ColumnHeaders.Add , , "Prix", ListView1.Width / 3
For a = 1 To 10
' Colonne 1
ListView1.ListItems.Add a, "REC" & a, "Hello " & a
' Colonne 2
ListView1.ListItems.Item(a).SubItems(1) = a
' Colonne 3
ListView1.ListItems.Item(a).SubItems(2) = (6.55 * a) / 3
Next
ListView1.View = lvwReport ' Set View property to Report.
Total1 = 0 'colonne 2
Total2 = 0 'colonne 3
For Each itm In ListView1.ListItems
Total1 = Total1 + itm.ListSubItems(1).Text
Total2 = Total2 + itm.ListSubItems(2).Text
Next
' Création d'une ligne supplémentaire pour afficher le total par colonne.
ListView1.ListItems.Add ListView1.ListItems.Count + 1, "TOTAL", "Totaux:"
ListView1.ListItems.Item(ListView1.ListItems.Count).SubItems(1) = Total1
ListView1.ListItems.Item(ListView1.ListItems.Count).SubItems(2) = Total2
End Sub