Bonjour tous le monde
1/Tout d'abord j'ai essayé de simplifier le code et au lieu de saisir Av 10% , Av 15% .... j'ai mis = "Av*" mais ca n'a pas fonctionné
Ce code totalise la somme de la colonne 2 du listview mais j'arrive pas a faire la soustraction
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
With ListView1
 
  For k = 1 To .ListItems.Count
  If .ListItems(k).ListSubItems(1).Text = "Av 10%" Or .ListItems(k).ListSubItems(1).Text = "Av 15%" Or .ListItems(k).ListSubItems(1).Text = "Av 15%" Or .ListItems(k).ListSubItems(1).Text = "Av 15%" Or .ListItems(k).ListSubItems(1).Text = "Av 20%" Or .ListItems(k).ListSubItems(1).Text = "Av 25%" Then
  x = x + CDbl(.ListItems(k).ListSubItems(3).Text)
  If .ListItems(k).ListSubItems(1) = "Terme" Then y = y + CDbl(.ListItems(k).ListSubItems(5))
  End If
  Next
  sa.Value = x - y
 
 
 
  If sa.Value <> "" Then
  sa.Value = CDbl(Format(x, "# ##0.000"))
  End If
End With