Discussion :

[lulux80]

Bonjour je voudrai faire une addition d'une listbox appelé "tot"...Le total sera dans un textbox appelé "Ttot"...Le résultat sera affiché à l'aide d'un bouton Total

[Delbeke]

Une petite boucle de lecture des elements du combo devrait faire l'affaire

Code :

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

1
2
3
4
5
6
7
8
Private Function AdditionneCombo(Cmb as ComboBox) as Double
  Dim iPnt as integer
  Dim Total as Double
  For iPnt = 0 to Cmb.ListCount-1
    Total = Total + cdbl(Cmb.list(iPnt))
  Next
  AdditionneCombo = Total
End Function