Formule ou macro

[fabricebaker]

Bonjour à tous
Quelqu'un peut m'aider sur cette formule ou macro.
Merci à vous.

 

[JLR67]

Bonjour,
Ci joint une 1ère proposition. Je ne sais pas si cela répond à votre besoin.
Cordialement

 

[sylvanu]

Bonjour Fabricebaker, et bienvenu sur XLD, bonjour JLR,
Un essai en PJ, avec que des formules :

Liste produits sans doublons :
=SIERREUR(INDEX(Liste;PETITE.VALEUR(SI(FREQUENCE(SI(Liste<>"";EQUIV(Liste;Liste;0)); LIGNE(Liste)-LIGNE($B$1)+1);LIGNE(Liste)-LIGNE($B$1)+1);LIGNES(B$1:B1)));"")
( à valider par Maj+Ctrl+Entrée sur anciennes versions XL )
Domaine    : =SIERREUR(INDEX(A:A;EQUIV(H2;B:B;0));"")
Unité      : =SIERREUR(INDEX(C:C;EQUIV(H2;B:B;0));"")
Quantité   : =SOMME.SI.ENS(D:D;B:B;H2)
Prix total : =SOMME.SI.ENS(E:E;B:B;H2)

 

[sylvanu]

Re,
Ou si vous aimez le VBA, il suffit de sélectionner la Feuil2 pour exécution automatique :

Sub Worksheet_Activate()
Application.ScreenUpdating = False: [A:E].Clear
With Sheets("Feuil1")                                               ' Feuil1 à adapter dans toute la macro
    DL = .Cells(Cells.Rows.Count, "A").End(xlUp).Row                ' Dernière ligne
    Range("A1:E" & DL) = .Range("A1:E" & DL).Value                  ' Transfert tableau
End With
[A:E].RemoveDuplicates Columns:=2, Header:=xlYes                    ' Suppression doublons
DL = Cells(Cells.Rows.Count, "A").End(xlUp).Row                     ' Dernière ligne
Range("D2:D" & DL).Formula = "=SUMIF(Feuil1!B:B,B2,Feuil1!D:D)"     ' Calcul somme Qté par articles
Range("D2:D" & DL).Formula = "=SUMIF(Feuil1!B:B,B2,Feuil1!E:E)"     ' Calcul somme Prix par articles
Columns.AutoFit                                                     ' Largeur colonne automatique
Range("A1:E" & DL).Borders.Weight = xlContinuous                    ' Quadrillage
End Sub