Discussion :

[salhix]

bjr le forum

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

Code :

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

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 :

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
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

[unparia]

Bonjour

Code :

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

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

===>>

Code :

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

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

[salhix]

merci ça marche bien