XL 2010 Adition du contenu d'un list box.

[MAN]

Bonjour le forum. bonjour a tous.
j'ai recupéré un fichier de mon cher Boisgontier. mais je voudrai le modifier comme ici. chaque fois que l'on retire un élément du list box, le résultat du text box se fait automatiquement. merci d'avance.

 

[Paf]

Bonjour,

Si j'ai bien compris, modifier la Sub Filtre() comme ceci :

Sub Filtre()
    Dim Tbl(), Total As Long
    début = CDate(Me.TextBox1)
    fin = CDate(Me.TextBox2)
    ColDate = 1
    NbCol = UBound(TblBD, 2)
    n = 0
    For i = LBound(TblBD) To UBound(TblBD)
      If Int(TblBD(i, ColDate)) >= début And Int(TblBD(i, ColDate)) <= fin Then
        n = n + 1: ReDim Preserve Tbl(1 To NbCol + 1, 1 To n)
        For k = 1 To NbCol: Tbl(k, n) = TblBD(i, k): Next k
        Total = Total + TblBD(i, 5)
       End If
     Next i
     If n > 0 Then Me.ListBox1.Column = Tbl Else Me.ListBox1.Clear
     TextBox3 = Total
End Sub

A+

 

[MAN]

Merci Baucoup Paf ça marche
merci le forum