XL 2013 code textbox

[gardian]

bonsoir le forum
voila mon petit soucis j'ai un userform avec un listbox pour ma feuille base données global
et j'essaye de trouvé comment mettre le total km colonne k et le total indemnitées colonne J dans les deux textbox 1 et textbox 2
avec tout mes remerciments

 

[_Thierry]

Bonsoir @gardian , le Forum

Dans le code du Userform; dans la Sub "Filtre" ajoute ce que j'ai ajouté :

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

Ce devrait le faire

Bonne nuit
@+Thierry

EDITION : J'ai ajouté les RAZ aussi car sinon quand on change les TextBox risquent de garder des valeurs

 

[gardian]

bonsoir Thierry
merci infiniment cela fonctionne très bien
avec tout mes remercîments

 

[_Thierry]

Re Bonsoir

De rien !! Fais attention à mon édition pour les RAZ !
Bonne nuit
@+Thierry