comment additionner les valeur d'une listview

cpeens · 9 Février 2012

bonjour j'utilise cette macro pour alimenter ma listview

Code:

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 · 9 Février 2012

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.

Code:

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 · 9 Février 2012

Re : comment additionner les valeur d'une listview

merci jp14 j'essais cela

cpeens · 9 Février 2012

Re : comment additionner les valeur d'une listview

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

comment additionner les valeur d'une listview

cpeens

XLDnaute Occasionnel

jp14

XLDnaute Barbatruc

creolia

XLDnaute Impliqué

cpeens

XLDnaute Occasionnel

Discussions similaires