Bonjour à tous,
Hé oui c'est encore moi. Cette fois ci pour un problème de version !
J'essai d'additionner le contenu d'une listeview pour ensuite en faire une moyenne. Pour la version 2007 : nos problemo ! mais pour la 2003 : ça bug
Mon code pour 2007 :
Merci d'avance pour vos réponse.
Hé oui c'est encore moi. Cette fois ci pour un problème de version !
J'essai d'additionner le contenu d'une listeview pour ensuite en faire une moyenne. Pour la version 2007 : nos problemo ! mais pour la 2003 : ça bug
Mon code pour 2007 :
Code:
For a = 1 To Planning.ListView1.ListItems.Count 'boucle sur la listview
If Planning.ListView1.ListItems(a).ListSubItems(1).Text = "" Then ' si la 2ème colone de la ligne = ""
For y = 1 To Planning.ListView1.ListItems.Count 'boucle sur la listview
If ListView1.ListItems(y).ListSubItems(9).Text = ListView1.ListItems(a).ListSubItems(9).Text Then ' si la valeur de la colonne 9 est égale à la valeur de la boucle "a" colonne 9
ListView1.ListItems(a).ListSubItems(8).Text = Application.WorksheetFunction.Sum(Val(ListView1.ListItems(a).ListSubItems(8)), Val(ListView1.ListItems(y).ListSubItems(8))) 'la ça va pas pour la version 2003 - on additionne toutes les valeurs correspondante dans la boucle a
Nbr = Nbr + 1
End If
Next y
ListView1.ListItems(a).ListSubItems(8).Text = ListView1.ListItems(a).ListSubItems(8) / 100 / Nbr 'somme du résultat divisé par 100 et par le nombre de valeur
ListView1.ListItems(a).ListSubItems(8).Text = Format(ListView1.ListItems(a).ListSubItems(8), "0.00%")' format pourcentage
next a
end if
Merci d'avance pour vos réponse.