Operation Sur Listview Somme conditionnelle

bjr le forum

Encore avec la listview
je pose mon problème j'ai une listview de 7 colonne

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

With ListView1 With .ColumnHeaders .Clear 'Supprime les anciens entêtes   .Add , , "Article", 80, lvwColumnLeft .Add , , "Libellé", 150, lvwColumnLeft .Add , , "SEQ", 30, lvwColumnLeft .Add , , "Composant", 90, lvwColumnLeft 'lvwColumnCenter .Add , , "Désignation", 150, lvwColumnLeft .Add , , "Unité", 30, lvwColumnLeft .Add , , "QTE UN", 55, lvwColumnCenter     End With

---

j'aimerai faire une somme de la colonne QTE UN selon une condition de la colonne de composant ,
c'est a dire que j'aimerai par exemple faire la somme des lignes de la 6eme colonne "QTE UN" de l'article "MP4000" de la 3eme colonne "Composant".

j'ai essayé ce code mais il ne fait pas la somme ou la boucle ne marche pas. il me donne la dernière valeur de la dernière ligne de l'article "MP4000"

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Dim Cristal As Double Dim k As Long   With Me.ListView1   For k = 1 To .ListItems.Count   If .ListItems(k).ListSubItems(3) = "MP4000" Then Cristal = Cristal + .ListItems(k).ListSubItems(6)   End If Next k   msgbox Cristal   End With

---

et merci d'avance

Bonjour

Code:

---

1 2 3

If .ListItems(k).ListSubItems(3) = "MP4000" Then Cristal = Cristal + .ListItems(k).ListSubItems(6)

---

===>>

Code:

---

1 2 3

If .ListItems(k).SubItems(3) = "MP4000" Then Cristal = Cristal + .ListItems(k).SubItems(6)

---

:D merci ça marche bien