Sommer colonne listbox

Chawki -  
gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

J'ai une listbox1 avec colonnes (Date,Désignations,Montant HT,TVAet Montant TTC),je cherche un code qui totalise la colonne Montant TTC et la transférée dans Textbox1.

Dans la mesure du possible SVP
Merci

1 réponse

  1. gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
     
    Bonjour,

    Voici une façon de le faire :
    Dim elm As Long, tot As Double
    tot = 0
    For elm = 0 To Me.ListBox1.ListCount - 1
         tot = tot + Me.ListBox1.List(elm, 4)
    Next elm
    Me.TextBox1.Value = tot
    

    0