Sommation ,listbox

oussamus -  
lermite222 Messages postés 9042 Statut Contributeur -
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

  1. lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    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+
    1