bonjour à tous,

voici mon problème:
J'ai une zone de liste (Listbox) dans laquelle plusieurs valeurs numériques sont ajouter.
J'aimerai que grâce à un bouton (Valider), je puisse avoir la somme de toutes les valeurs présentes dans cette liste.

j'ai donc essayé ceci:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Private Sub bout4_Click()
    Dim totprod As Single
    totprod = zn2.ListIndex + 1
    For i = 2 To 59
        totprod = totprod + zn2.ListIndex(i)
        tot.Caption = totprod
    Next
    End Sub
AVEC:
bout4 (VALIDER)
zn2 (La zone de liste contenant les différentes valeurs)
tot.caption (le label dans lequel on dois retrouvé la somme des valeurs