listbox et somme des valeurs selectionnées

[Cathe697]

Bonjour à tous,

Je vous expose mon soucis :

J'ai un listbox multiselect (ne contenant que des nombres), je voudrais dans un label inscrire la somme des selections faites dans mon listbox...

J'ai essayé plusieurs méthodes mais je n'y arrive pas

Merci de bien vouloir m'aider

 

[Hervé]

Bonjour

As-tu essayer ceci :

Private Sub ListBox1_Change()
For i = 0 To Me.ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
total = total + Me.ListBox1.List(i)
Label1.Caption = total
End If

Next i


End Sub

salut
Hervé