comment additionner les valeur d'une listview

[cpeens]

bonjour j'utilise cette macro pour alimenter ma listview

Dim i As Integer
With ListView1
For i = 4 To 7
.ListItems.Add = LabJour.Caption
'.ListItems(.ListItems.Count).ListSubItems.Add = LabJour.Caption
.ListItems(.ListItems.Count).ListSubItems.Add = Me.Controls("M" & i).Text
Next i

End Wit

dans la dernière colonne (4eme item) j'ai des nombres je souhaiterais additionner tous les nombre présent dans la 4 eme colonne de ma listview

comment pourais proceder svp merci

 

[jp14]

Re : comment additionner les valeur d'une listview

Bonjour

Deux solutions
Faire une addition lors de la création de la listview ou après la création ( cf code).
Les données sont du type String, il faut les convertir en utilisant " Val" ou CXXX ( CCUr, CInt) à choisir en fonction de la valeur numérique.

Dim i As Integer
Dim total As Currency
With ListView1
    'Boucle sur toutes les lignes
    For i = 1 To .ListItems.Count
          if isnumeric(.ListItems(i).ListSubItems(3).Text) then
           total = total + Val(.ListItems(i).ListSubItems(3).Text)
          end if
    Next i

A tester

JP

 

[creolia]

Re : comment additionner les valeur d'une listview

merci jp14 j'essais cela

 

[cpeens]

Re : comment additionner les valeur d'une listview

RE Bonjour JP14 ta solution à mon probleme est parfais merci beaucoup à trés bientot