somme de 2 colonnes d'une listbox

GirardSeb

XLDnaute Nouveau
Bonjour à tous,
je suis en train de finaliser un userform. Je voudrais additionner les valeurs contenues dans deux colonnes d'une listbox :
- le résultat de la colonne E (km) apparaîtrait dans une textbox1
- le résultat de la colonne F (frais parking) apparaîtrait dans la textbox2
Ce forum m'a bien aidé pour faire l'addition d'une colonne mais je n'arrive pas à trouver le code pour les deux additions (ci-dessus).
Je vous remercie pour l'aide que vous m'apporterez.
Bien à vous,
Sébastien
 

Pièces jointes

  • km et frais parking.xlsm
    29.5 KB · Affichages: 9

Lolote83

XLDnaute Barbatruc
Salut GirardSeb,
Peut être comme ceci
VB:
Private Sub ComboBox1_click()
  ColRecherche = 1
  clé = Me.ComboBox1: n = 0
  Dim Tbl()
  ttal = 0
 
  For i = 1 To UBound(TblBD)
    If TblBD(i, ColRecherche) Like clé Then
        n = n + 1: ReDim Preserve Tbl(1 To UBound(TblBD, 2), 1 To n)
        For k = 1 To UBound(TblBD, 2): Tbl(k, n) = TblBD(i, k): Next k
        ttal = ttal + TblBD(i, 5)
        ttol = ttol + TblBD(i, 6)
     End If
  Next i
 
  Me.TextBox1 = ttal
  Me.TextBox2 = ttol
 
  If n > 0 Then Me.ListBox1.Column = Tbl Else Me.ListBox1.Clear
End Sub
Ligne rajoutée dans le code ci-dessus :
ttol = ttol + TblBD(i, 6)
Me.TextBox2 = ttol


En espérant avoir bien ciblé ta demande
@+ Lolote83
 

BOISGONTIER

XLDnaute Barbatruc
Repose en paix
Bonjour,


Me.TextBox1 = Application.Sum(Application.Index(Me.ListBox1.List, , 5))
Me.TextBox2 = Application.Sum(Application.Index(Me.ListBox1.List, , 6))



Code:
Private Sub ComboBox1_click()
  ColRecherche = 1
  clé = Me.ComboBox1: n = 0
  Dim Tbl()
  For I = 1 To UBound(TblBD)
    If TblBD(I, ColRecherche) Like clé Then
        n = n + 1: ReDim Preserve Tbl(1 To UBound(TblBD, 2), 1 To n)
        For k = 1 To UBound(TblBD, 2): Tbl(k, n) = TblBD(I, k): Next k
     End If
  Next I
  If n > 0 Then
    Me.ListBox1.Column = Tbl
    Me.TextBox1 = Application.Sum(Application.Index(Me.ListBox1.List, , 5))
    Me.TextBox2 = Application.Sum(Application.Index(Me.ListBox1.List, , 6))
  Else
     Me.ListBox1.Clear
  End If
End Sub
Boisgontier
 

Pièces jointes

  • Copie de km et frais parking-1.xlsm
    36.2 KB · Affichages: 13
Dernière édition:

Discussions similaires

Réponses
18
Affichages
505
Réponses
6
Affichages
341

Statistiques des forums

Discussions
311 711
Messages
2 081 799
Membres
101 818
dernier inscrit
tiftouf5757