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...

[leyjah]

j'ai déjà essayé plusieurs chose mais je ne trouve pas la solution.
Il y a un moment j'ai fait:

Code :

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

1
2
3
4
5
6
Private Sub bout4_Click()
Dim totprod As Single
totprod = 0
    totprod = totprod + zn2.Value
    tot.Caption = totprod
End Sub

mais ça ne prend en compte que la valeur sélectionné (forcément vu que c'est ".Value"

merci de m'aider si vous le pouvez.

CDLT

[SfJ5Rpw8]

Tu as corrigé la ligne d'initialisation de toprod... mais pourquoi supprimer ta boucle ?

[leyjah]

et comment je fais pour mettre la boucle sachant que j'utilise un .value?

[SfJ5Rpw8]

Voir :
http://silkyroad.developpez.com/VBA/...serForm/#LII-G

Boucler sur toutes les données d'une ListBox.