cs_ElChauve
Messages postés7Date d'inscriptionsamedi 10 novembre 2007StatutMembreDernière intervention14 juin 2008
-
2 janv. 2008 à 18:05
cs_MPi
Messages postés3877Date d'inscriptionmardi 19 mars 2002StatutMembreDernière intervention17 août 2018
-
2 janv. 2008 à 18:46
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 !