Addition de plusieurs cellules sous condition avec une boucle

Bonjour

Nouvelle sur ce forum, je fais du VBA débutant (sans formation) j'apprends sur le tas en lisant les forums. Voilà j'ai un fichier extrait de plusieurs sources, je le retravaille par VBA, mais aujourd'hui à ma dernière étape, je dois dans ma colonne 3 regrouper plusieurs lignes (addition avec résultat sur la première ligne) selon une condition colonne 1 identique.

exemple :

a b c

N° pièce montant total

5100003631 256,20 283,50

5100003631 9,56

5100003644 183,91 183,91

Merci pour votre aide

Bonjour anne69,

Si j'ai bien compris :

Option Explicit
Sub test()
Dim r As Range, i As Long, j As Long
    Application.ScreenUpdating = False
    With Sheets("feuil1")
        Set r = .Range("a2", .Cells(.Rows.Count, "a").End(xlUp))
        For i = 1 To r.Count
            j = 1
            Do Until r(i) <> r(i).Cells(j)
                j = j + 1
            Loop
            r(i).Offset(, 2).Value = Application.Sum(.Range(r(i), r(i).Cells(j - 1)).Offset(, 1))
            i = i + j - 2
        Next i
    End With
    Application.ScreenUpdating = True
End Sub

klin89

Genial merci.

Je fais des tests

Est ce que je peux avoir une explication ligne à ligne, s'il vous plait?