[Résolu] Somme de valeur de celulle sur une plage avec condition => boucle infinie

[lokomass]

Bonjour,

J'espère que le titre n'est pas trop compliqué, en fait mon problème est tout simple.
J'ai un tableau excel pour faire mes comptes bancaires
J'ai une colonne B ou j'ai tous les types de dépenses faites sur un mois (CB, chèque, etc). Deux colonnes plus loins j'ai la valeur des dépenses. J'aimerai tout simplement que sur la plage de la colonne B, je fasse la somme de toutes les cellules lorsque le type de dépense est CB.
Voici ce que j'ai fait, mais j'ai une boucle infinie.

Sub CB()
Dim Somme As Integer
Somme = 0
For i = 3 To 157
    If Cells(i, 2).Value = "CB" Then
        Somme = Somme + Cells(i, 4).Value
        i = i + 1
    End If
    Cells(160, 2).Value = Somme
Next i
End Sub

 

[Victor21]

Re : Somme de valeur de celulle sur une plage avec condition => boucle infinie

Bonjour, lokomass.

Pourquoi une boucle ?

Range("B160").FormulaR1C1 = "=SUMIF(R[-157]C:R[-3]C,""cb"",R[-157]C[2]:R[-3]C[2])"

devrait suffire

 

[lokomass]

Re : Somme de valeur de celulle sur une plage avec condition => boucle infinie

Super, efficace simple et rapide !
Un grand merci à toi.