somme de 2 colonnes d'une listbox

[GirardSeb]

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

 

[Lolote83]

Salut GirardSeb,
Peut être comme ceci

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]

Bonjour,


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

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

 

[GirardSeb]

Merci beaucoup pour votre réponse si rapide. Je m'étais compliqué la vie. Je viens donc de comprendre mon erreur. Merci à vous. Sébastien