Somme d'un champs dans une liste box [Résolu]

[Nitsuja]

Bonjour,

J'ai suivi le tuto de caféine sur la recherche multicitère cependant je voudrais faire la somme d'une des colonnes de la liste box et l'afficher en bas du formulaire. J'ai beau chercher et magouiller comme je peux mais je n'y arrive pas.


Une idée ?

Merci d'avance !

[tarnx]

Bonjour,

Ce bout code devrait faire l'affaire.

Code :

1
2
3
4
5
6
Dim somme As Integer
Dim cpt As Integer
somme = 0
For cpt = 0 To Me.TaListe.ListCount - 1 
    somme = somme + Me.TaListe.Column(TaColonne,cpt)
Next cpt

[Nitsuja]

Merci pour ta réponse.

En fait je pensais qu'on pouvait le faire sans VBA.
Mais bon le princpal c'est que ça marche !

Je test et je te dit ;-)

[Nitsuja]

Ok en bidouillant un peu j'ai réussi à faire fonctionner la fonctionnalité de mon appli comme je le souhaitais.

Encore merci tarnx