Somme selon criteres

[Loonax]

Bonsoir
Je souhaite faire un calcul de poids dans un tableau qui comporte des milliers de lignes donc un calcul automatique est nécessaire.
Il me faudrait avoir le poids total par numéro de commande.
Pour etre plus clair :
COL A des numéros de commande
COL B : références comprise dans chaque numéro de commande (1 à plusierus lignes)
COL C : poids de la référence

Je voudrais donc en D avoir le poids total par numéro de commande : parfois 1 seule cellule, parfois 2 ...etc

Qq1 à 1 idée ?

Merci

 

[jpb388]

Re : Somme selon criteres

Bonsoir le forum

'nécessite Microsoft Scripting Runtime
Sub test()
Dim dico As Dictionary, Lg&, Ctl As Range, Sh As Worksheet
Set Sh = Sheets("Feuil1")
Set dico = CreateObject("Scripting.dictionary")
Lg = Sh.Range("A" & Rows.Count).End(xlUp).Row
For Each Ctl In Sh.Range("A2:A" & Lg)
    If dico.Exists(Ctl.Text) = True Then
        dico.Item(Ctl.Text) = CDbl(dico.Item(Ctl.Text)) + CDbl(Ctl.Offset(0, 2))
    Else
        dico.Add Ctl.Text, Ctl.Offset(0, 2)
    End If
Next Ctl
[D2].Resize(dico.Count) = Application.Transpose(dico.Keys)
[E2].Resize(dico.Count) = Application.Transpose(dico.Items)
End Sub

 

[Loonax]

Re : Somme selon criteres

je n'y arrive pas avec ce code..😱

 

[jpb388]

Re : Somme selon criteres

re
mettez votre fichier je vais regarder

 

[Misange]

Re : Somme selon criteres

Bonjour

mets nous un petit bout de fichier pour qu'on voie comment sont tes données. C'est quand même plus sympa que d'obliger le répondeur à le faire à ta place non ?
Mets les sous forme de tableau excel (onglet accueil/style/mettre sous forme de tableau) pour que les formules soient dynamiques.

Un petit coup de somme.si et ça roule, pas besoin de macro pour ça.

 

[Loonax]

Re : Somme selon criteres

Salut à tous
Merci tout d'abord de vous pencher sur mon problème.

Misange je suis ton conseil en vous mettant un modèle simplifié du tableau dont je vous parle.

Un petit coup de somme.si et ça roule, pas besoin de macro pour ça.[/QUOTE]

Je crois que la formule somme si ne peut pas marcher car le critère à mettre serait le n° de commande or il y en a des centaines donc je voudrais que ce soit automatique sans l'entrée d'un critère manuel.

En fait pour moi je voudrais qu'Excel fasse:
quand A1=A2=A3... faire somme C1+C2+C3 et mettre le résultat en D3
SI A1<>A2 notez en D1 valeur de C1
Enfin vous m'avez compris je pense 🙄

 

[Misange]

Re : Somme selon criteres

DEux possiblités :
1)Tu copies la colonne A en F2, données/supprimer les doublons et tu mets en G2
=SOMME.SI(Tableau1[n° commande];F2;Tableau1[poids])
2) tu utilises en F2 cette formule à valider en matricielle (ctrl+maj + entrée et pas seulement entrée) puis tu tires vers le bas :
=SIERREUR(INDEX(Tableau1[n° commande];EQUIV(0;SI(ESTVIDE(Tableau1[n° commande]);"";NB.SI(F$1:F1;Tableau1[n° commande]));0));"")
et en G2 la même formule que plus haut

 

[Loonax]

Re : Somme selon criteres

Misange...
Excuse moi je suis un peu longue à comprendre...
Je n'avais pas penser au copier.coller sup le doublon...

Merci beaucoup de ta patience et ton savoir !😉