Somme 3e colonne listbox

[Cat]

Bonjour à tous

Je souhaiterias faire la somme de la troisième colonne de mon listbox.

Je sais la faire si le listbox ne comporte qu'une colonne mais pas si il en comporte plusieurs.

J'ai fais une recherche sur le forum mais je n'ai pas trouvé ce que je veux...

si quelqu'un pouvait m'aider ce serait sympa

Merci et bon week-end

 

[MichelXld]

bonjour

cet exemple additionne toutes les valeurs contenues dans la 3eme colonne d'une ListBox


Private Sub CommandButton1_Click()
Dim i As Byte
Dim cible As Integer
Dim Resultat As Double

cible = ListBox1.ListCount

For i = 1 To cible
Resultat = Resultat + ListBox1.List(i - 1, 2)
Next

MsgBox Resultat
End Sub


bon apres midi
MichelXld

 

[Cat]

Merci pour la réponse

Ca marche

Merci encore

 

[_Thierry]

=> DEMO Somme d'une Colonne sur ListBoxMultiSelect

Bonjour Cat, Michel, le Forum

Ben moi je ne vois pas à quoi celà peut servir d'aditionner tous les items d'une ListBox, on a déjà cette information sur une Feuille logiquement...

Mais bon, le client est 'Roi' lol, mais moi je me suis amusé à en faire une nouvelle version de ma démo ListBox MultiSelect en MultiColumn avec donc la somme d'une colonne précise... mais ceci en Real Time pendant que l'on fait sa sélection en MultiSelect...

Je vous laisse découvrir....

Bon Samedi et Week End
@+Thierry [file name=USF-ListBox-MultiCol-Calculator_20050312162653.zip size=14882]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/USF-ListBox-MultiCol-Calculator_20050312162653.zip[/file]