Sommation ,listbox

Bonjour,
mon petit problem, c'est que je veut faire la sommation "n" élèments d'une listbox de type double et de faire l'affichage de cette somme dans un textbox ou label.
merci d'avoir lire mon message.
Configuration: Windows XP
Internet Explorer 6.0

1 réponse

  • Votes
  • Date
  • Date décroissante
  1. Contributeur
    Bonjour,
    Peut-être avec ceci...
    Sub TotalColonneList()
    Dim Tot As String
    Dim NumColonne As Integer
    NumColonne = 0 ' à changer si pas dans première colonne
        For i = 0 To ListBox1.ListCount - 1
            Tot = Tot + Val(ListBox1.List(i, NumColonne))
        Next i
        Label1.Caption = Tot
        
    End Sub

    A+