Bonsoir,
Mon code marche, mais il doit y avoir plus simple non?
Je veux mon total sous ma colonne, y a t il pas autre chose a faire car c'est un peu lourd
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18 Dim b As Long Dim liMyListItem As ListItem For i = 1 To ListView1.ListItems.Count - 1 a = ListView1.ListItems(i).ListSubItems(8).Text b = b + a Next i Text1.Text = b Set liMyListItem = ListView1.ListItems.Add(, , "") liMyListItem.ListSubItems.Add(1) = "" liMyListItem.ListSubItems.Add(2) = "" liMyListItem.ListSubItems.Add(3) = "" liMyListItem.ListSubItems.Add(4) = "" liMyListItem.ListSubItems.Add(5) = "" liMyListItem.ListSubItems.Add(6) = "" liMyListItem.ListSubItems.Add(7) = "" liMyListItem.ListSubItems.Add(8) = b
Merci.
Partager