Calcule cumule de 3 colonne

Bonjour,

J'ai une petite demande s'il vous plait, j'ai un algorithme qui calcule le cumul ça veux dire il prends la valeur de la colonne A1 et il dépose dans B1 après il fait le calcule A2 + B1 et il dépose dans la B2 l'algorithme est le suivant et il fonctionne très bien, par contre je voulais qu'il fasse la somme de A1+B1+C1 et il dépse dans D1 après il prends A2+B2+C2+D1 = D2 suivant A3+B3+C3+D2 = D3 etc...

Sub calculatCumuleScrap()
On Error Resume Next
Dim ws As Worksheet
Dim VisRng As Range, c As Range
Dim StartRow As Long
Dim LastRow As Long

Set ws = Sheet4
With ws
    LastRow = .Cells(.Rows.Count, "AF").End(xlUp).Row '<-- get last row with data in Column K

    StartRow = 9 '<-- init value
     ' set visible range to only filtered cells in Column G
    Set VisRng = .Range(Range("AF" & StartRow), Range("AF" & LastRow)).SpecialCells(xlCellTypeVisible)
    StartRow = VisRng.Item(1).Row '<-- update first row in visible range

    For Each c In VisRng
        If c.Row = StartRow Then
            .Range("AG" & c.Row) = .Range("AF" & c.Row).Value
        Else
            .Range("AG" & c.Row).Formula = "=SUBTOTAL(9,AF" & StartRow & ":AF" & c.Row & ")"
        End If
    Next c

End With
On Error GoTo 0

End Sub

Bonjour,

Inutile de passer par un MP.

Commence par joindre un fichier à ta demande, pour recevoir une aide adaptée.

Cdlt.

Bonjour,

Désoler voila le fichier