Bonsoir,
Mon code marche, mais il doit y avoir plus simple non?

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
Je veux mon total sous ma colonne, y a t il pas autre chose a faire car c'est un peu lourd
Merci.