Trier additionner

Salut le Forum

En J3 (Formule matricielle) à recopier vers le bas

=SOMME(SI(stat_vente=I3;stat_quant)) 

Mytå

Merci de donner suite à votre question, nous ne sommes pas des robots...
« Si le déboguage est l'art d'enlever les bogues, alors la programmation doit être l'art de les créer. »

Bonjour,

Pour établir la liste des pièces sans doublons, tu utilises un filtre avancé.
La plage de critères et la plage de données déclarées dans ce filtre doivent inclurent les étiquettes de colonne.
De plus, les libellés de ces étiquettes doivent être identiques ("Ref Piéces").
Avec le code ci-dessous, la mise en place de la formule pour calculer le nombre des ventes est réalisée par la procédure.

Sub Extraction()
Dim DerLig As Long
    Application.ScreenUpdating = False
    With Sheets("Mouv_ventes")
        DerLig = .Range("A" & Rows.Count).End(xlUp).Row
        .Range(.Range("I3:J3"), .Range("I3:J3").End(xlDown)).ClearContents
        .Range("A2:A" & DerLig).AdvancedFilter Action:=xlFilterCopy _
            , CopyToRange:=Range("I2"), Unique:=True
        .Range("J3").Formula = "=SUMPRODUCT(($A$3:$A$" & DerLig & "=I3)*($C$3:$C$" & DerLig & "))"
        .Range("J3").AutoFill Destination:=.Range("J3:J" & .Range("I3").End(xlDown).Row), Type:=xlFillDefault
    End With
End Sub

A+