Somme selon criteres

jpb388

XLDnaute Accro

• 20 Mai 2013

• #2

Re : Somme selon criteres

Bonsoir le forum

Code:

'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

 

Vote positif 0 Vote négatif

L

Loonax

Guest

• 20 Mai 2013

• #3

Re : Somme selon criteres

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

 

Vote positif 0 Vote négatif

jpb388

XLDnaute Accro

• 20 Mai 2013

• #4

Re : Somme selon criteres

re
mettez votre fichier je vais regarder

 

Vote positif 0 Vote négatif

Misange

XLDnaute Barbatruc

• 21 Mai 2013

• #5

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.

 

Pièces jointes

• loonax.xlsx

  9.2 KB · Affichages: 50
• loonax.xlsx

  9.2 KB · Affichages: 41
• loonax.xlsx

  9.2 KB · Affichages: 36

Vote positif 0 Vote négatif

L

Loonax

Guest

• 21 Mai 2013

• #6

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 🙄

 

Pièces jointes

• Classeur2.xlsx

  10.5 KB · Affichages: 58
• Classeur2.xlsx

  10.5 KB · Affichages: 57
• Classeur2.xlsx

  10.5 KB · Affichages: 55

Vote positif 0 Vote négatif

Misange

XLDnaute Barbatruc

• 21 Mai 2013

• #7

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

 

Pièces jointes

• Copie de Classeur2.xlsx

  11.6 KB · Affichages: 43
• Copie de Classeur2.xlsx

  11.6 KB · Affichages: 48
• Copie de Classeur2.xlsx

  11.6 KB · Affichages: 42

Vote positif 0 Vote négatif

L

Loonax

Guest

• 21 Mai 2013

• #8

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 !😉

 

Vote positif 0 Vote négatif