XL 2021 Additionner résultats d'une boucle for en vba

JM27 à dit:

bonjour

VB:

Sub BoutonAddition()
    Dim fh As Worksheet, dico As Object
    Dim I&
    Dim Somme As Double
    Set fh = Sheets("Feuil1")
    Set dico = CreateObject("Scripting.Dictionary")
    For I = 2 To fh.Range("A" & Rows.Count).End(xlUp).Row
        If fh.Range("B" & I) = "D231201" Then
            Somme = Somme + fh.Range("F" & I)
        End If
    Next I
    MsgBox Somme
End Sub

Cliquez pour agrandir...

JM27 à dit:

bonjour
2 correspond à la ligne du début de traitement aurait du être 5
fh.Range("A" & Rows.Count).End(xlUp).Row correspond à la ligne de fin de traitement

par contre dans ta procédure il y a des lignes en trop (non utilisé)

VB:

Sub BoutonAddition()
    Dim fh As Worksheet
    Dim I as long
    Dim Somme As Double
    Set fh = Sheets("Feuil1")
    For I = 2 To fh.Range("A" & Rows.Count).End(xlUp).Row
        If fh.Range("B" & I) = "D231201" Then
            Somme = Somme + fh.Range("F" & I)
        End If
    Next I
    MsgBox Somme
End Sub

Comme je vois que tu débutes voici les lignes commentées

VB:

Sub BoutonAddition()
    Dim fh As Worksheet
    Dim I As Long
    Dim Somme As Double
    ' déclaration de la variable feuille
    Set fh = Sheets("Feuil1")
    ' pour la variable I qui commence à la ligne 5 jusqu'a la ligne de fin de donnée  ( ici 12)
    For I = 5 To fh.Range("A" & Rows.Count).End(xlUp).Row
        ' Si la cellule en b et numéo de la ligne en traitement contient "D231201"
        If fh.Range("B" & I) = "D231201" Then
            ' j'ajoute dans la variable somme  la somme déja enregistrée + la valeur de la cellule F et ligne en cours de traitement
            Somme = Somme + fh.Range("F" & I)
        End If
    Next I
    ' j'envoie le message somme
    MsgBox Somme
End Sub

Cliquez pour agrandir...

sylvanu à dit:

Bonjour,
Peut être plus simple :

VB:

Sub BoutonAddition()
Dim Total, Code
    Code = "D231201"
    Total = Application.SumIf([Tableau_AvoirsAcomptes[Réf AV AC]], Code, [Tableau_AvoirsAcomptes[Montant AV AC]])
    MsgBox "Total D231201 : " & Total
End Sub

Ce qui correspond en XL à :

Code:

=SOMME.SI(Tableau_AvoirsAcomptes[Réf AV AC];"D231201";Tableau_AvoirsAcomptes[Montant AV AC])

Cliquez pour agrandir...

sylvanu à dit:

Bonjour,
Peut être plus simple :

VB:

Sub BoutonAddition()
Dim Total, Code
    Code = "D231201"
    Total = Application.SumIf([Tableau_AvoirsAcomptes[Réf AV AC]], Code, [Tableau_AvoirsAcomptes[Montant AV AC]])
    MsgBox "Total D231201 : " & Total
End Sub

Ce qui correspond en XL à :

Code:

=SOMME.SI(Tableau_AvoirsAcomptes[Réf AV AC];"D231201";Tableau_AvoirsAcomptes[Montant AV AC])

Cliquez pour agrandir...

sylvanu à dit:

Avec :

VB:

Qté = Application.CountIf([Tableau_AvoirsAcomptes[Réf AV AC]], Code)

Regarde la pièce jointe 1206701

Cliquez pour agrandir...