Sub Filtre()
Dim TotalIndemnite As Double, TotalKilometre As Double '>>> AJOUT THIERRY
Dim Tbl()
clé = Me.ComboBox1: If clé = "" Then clé = "*"
début = CDate(Me.ComboBox2)
Fin = CDate(Me.ComboBox3)
colDate = 1
n = 0
Totfact = 0
TotalIndemnite = 0 '>>> AJOUT THIERRY (RAZ)
TotalKilometre = 0 '>>> AJOUT THIERRY (RAZ)
Me.TextBox2 = "" '>>> AJOUT THIERRY (RAZ)
Me.TextBox1 = "" '>>> AJOUT THIERRY (RAZ)
For i = LBound(TblBD) To UBound(TblBD)
If TblBD(i, colDate) >= début And TblBD(i, colDate) <= Fin And TblBD(i, 3) Like clé Then
n = n + 1: ReDim Preserve Tbl(1 To NbCol + 1, 1 To n)
c = 0
For Each K In ColVisu
c = c + 1: Tbl(c, n) = TblBD(i, K)
If c = 7 Then Tbl(c, n) = Tbl(c, n) = Format(Tbl(c, n), "## 000 000")
Next K
Totfact = Totfact + TblBD(i, 7)
'>>> AJOUT THIERRY
TotalIndemnite = TotalIndemnite + TblBD(i, 10)
TotalKilometre = TotalKilometre + TblBD(i, 11)
'<<< AJOUT THIERRY
c = c + 1: Tbl(c, n) = Totfact
End If
Next i
'-- totaux
If n > 0 Then
Me.ListBox1.Column = Tbl
Me.Totfactu = Format(Totfact, "0.00 €")
Me.TextBox2 = Format(TotalIndemnite, "0.00 €") '>>> AJOUT THIERRY
Me.TextBox1 = Format(TotalKilometre, "0.00") '>>> AJOUT THIERRY
Else
Me.ListBox1.Clear
Me.Totfactu = 0
End If
End Sub