Somme d'une ListBox Résolu

Question

Bonjour,
Voilà, je voudrais pouvoir automatiser le calcul de la somme des valeurs d'une ListeBox, et afficher le résultat dans une ComboBox.
J'ai dû passer pas loin de  heures dessus, je n'en peux plus (suis-je un boulet ?)...
Voici le code de ma sub servant à automatiser le calcul :

Public Sub CalculMontant()
    Dim MontantTot As Integer
    MontantTot = 0
    Dim i As Integer
    If Lst_Mont.ListCount <> 0 Then
        'If Lst_Mont.SelCount = 0 Then
            For i = (Lst_Mont.ListCount - 1) To 0 Step -1
                MontantTot = MontantTot + CInt(Lst_Mont(Lst_Mont.ListIndex(i)))
                MsgBox (Lst_Mont.ListIndex(i))
            Next i
        'End If
    Else
        MsgBox ("Passage par Else If")
    End If
    txt_mont_tot.Text = MontantTot
End Sub

Le message d'erreur est le suivant : "Erreur de compilation : Nombres d'arguments incorrect ou affectation de propriété incorrecte" 
S'il vous plaît, dites-moi comment résoudre ce problème, ou bien indiquez-moi une autre mainère d'obtenir le résultat du calcul de cette ListBox !

Merci

cs_MPi · Accepted Answer

MontantTot = MontantTot + Lst_Mont.List(I)

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA.

cs_ElChauve · Answer

Punaise, mais oui, c'était vraiment débile !
En tout cas merci à toi MPi

bigfish_le vrai · Answer

Salut,

il n'y aurai pas un erreur ici :

MontantTot = MontantTot + CInt(Lst_Mont(Lst_Mont.ListIndex(i))) 

Pourquoi 2 foix Lst_Mont

ce ne serai pas plutot :

MontantTot = MontantTot + CInt(Lst_Mont.ListIndex(i))

en suite  Listindex comme sont non l'indique n'est pas la valeur mais le numeros de la ligne ou ce trouve la valeur donc ce devrait plutot etre :

MontantTot = MontantTot + CInt(Lst_Mont.List(i))

Essayes

A+

bigfish_le vrai · Answer

Pfffff... toujours plus MPi !

Desole

bigfish_le vrai · Answer

je suis vraiment fatigué je voulait dire ;


Toujours plus rapide


A+

cs_MPi · Answer

Les Fêtes ont été dures Bigfish ?  

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA.

Somme d'une ListBox

6 réponses

Votre réponse

Discussions similaires