Discussion :

[leyjah]

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

[SfJ5Rpw8]

tu as relus ton code ?

c'est quoi totProd? pourquoi l'initialiser avec la valeur de l'index +1 ?

d'où vient ton 2 et ton 59 ?

[leyjah]

59 représente le nombre de valeur qui peuvent être inscrit.
et totProd ==> dimmensionnement

[SfJ5Rpw8]

on reprends .. ligne par ligne :

cela sert à quoi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 totprod = zn2.ListIndex + 1

[leyjah]

totprod ==> à la première valeur de la liste

en gros je veux faire sa: (voir image)

[SfJ5Rpw8]

utilise l'aide en ligne et regarde ce que retourne listindex...