Discussion :

[BENNASR]

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

[casefayere]

Bonjour le forum, BENNASR

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é

rien que pour cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

, essayes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If .ListItems(k).ListSubItems(1).Text Like "Av*"  Then

, pour la suite, il faut comprendre

[BENNASR]

Merci MR DON
toujours t'es disponible...merci pour la volonté
J'ai trouver l'erreur...bonne journée à toutes et à tous