Cumul sur autre feuille

[sonskriverez]

Bonjour le forum,

En feuil1 j'ai une liste de nom et des chiffres d'affaires correspondant, je voudrais cumuler en feuil2 la somme des chiffres d'affaires par nom.

En VBA svp

merci de votre aide

 

[ERIC S]

Re : Cumul sur autre feuille

Bonjour

en B3 feuil2

=SOMME.SI(Feuil1!$A:$A;A3;Feuil1!$B:$B)

 

[sonskriverez]

Re : Cumul sur autre feuille

Merci Eric, aurais-tu l'équivalente en VBA

 

[Compte Supprimé 979]

Re : Cumul sur autre feuille

Salut Sonskriverez,

Eric S t'a donné la solution, pourquoi veux-tu du VBA, je ne vois pas l'intérêt 😕

Peux-tu nous expliquer la finalité de ta demande ?

A+

 

[bqtr]

Re : Cumul sur autre feuille

Bonjour sonskriverez, Eric, Bruno

En VBA, une façon de faire:

Sub Total()

Dim plg As Range, cell As Range
Dim col As New Collection, i As Integer, TT As Long

'défini la plage de la feuille 1
Set plg = Sheets("Feuil1").Range("A3:A" & Sheets("Feuil1").Range("A65536").End(xlUp).Row)

'récupère les noms sans doublon
For Each cell In plg
    On Error Resume Next
    col.Add cell, CStr(cell)
    On Error GoTo 0
Next cell

' pour chaque nom, calcul le total
For i = 1 To col.Count
    For Each cell In plg
        If cell.Value = col.Item(i) Then
           TT = TT + cell.Offset(0, 1).Value
           Sheets("Feuil2").Range("A" & i + 2).Value = col.Item(i)
           Sheets("Feuil2").Range("B" & i + 2).Value = TT
        End If
    Next
    TT = 0
Next i

End Sub

Bonne journée

 

[sonskriverez]

Re : Cumul sur autre feuille

bonjour à tous,

Bruno c'est simple, cette macro doit faire partie d'un ensemble de prcedures, voila pourquoi j'ai demandé en VBA, par contre c'est interressant d'avoir les 2 versions c'est bon pour ma culture 🙂

bqtr, merci pour cette macro