Calcul d'une somme pour chaque objet

[gibson92]

Bonjour,

Sur le fichier excel ci joint j'aimerai calculer la somme des valeurs pour chaque référence, quelqu'un aurait-il une idée
merci par avance

 

[Guest]

Re : Calcul d'une somme pour chaque objet

Bonjour,

Avec un Tableau croisé dynamique.

Voir fichier.

A+

 

[gibson92]

Re : Calcul d'une somme pour chaque objet

Merci, mais cela est-il possible sans Tableau croisé dynamique?

 

[Guest]

Re : Calcul d'une somme pour chaque objet

Re,

Pourtant le TCD est ce qu'il y a de mieux pour ce genre de choses. Quel est le but final?

A+

 

[Victor21]

Re : Calcul d'une somme pour chaque objet

Bonjour,

En E3 à recopier vers le bas :

=SI(A2=A3;"";SOMME.SI(A$2:A$11;A2;D$2: D$11))

Edit : Bonjour, Hasco

 

[gibson92]

Re : Calcul d'une somme pour chaque objet

Le but est d'exporter mes résultats sous access, je pense que le TCD n'es top pour exporter non?
On m'a parlé de la fonction sommeprod(), mais je ne vois pas comment l'utiliser dans ce cas

 

[Guest]

Re : Calcul d'une somme pour chaque objet

Re,

Si tu mets ton TCD en A1 d'une feuille excel, il apparaîtra comme une table lorsque tu l'importera dans access.

A+

 

[JBOBO]

Re : Calcul d'une somme pour chaque objet

Bonjour,

En E2, à tirer vers le bas :

=SI(NB.SI($A$2:A2;A2)=1;SOMMEPROD(($A$2:$A$11=$A2)*($D$2:$D$11));"")

 

[Robert]

Re : Calcul d'une somme pour chaque objet

Bonjour le fil, bonjour le forum,

Un proposition VBA :

Sub Macro1()
Dim o As Worksheet 'déclare la variable o (Onglet)
Dim pl As Range 'déclare la variable pl (PLage)
Dim cel As Range 'déclare la variable cel (CELlule)
Dim dico As Object 'déclare la variable dico (Dictionary)
Dim sd As Variant 'déclare la variable sd (Sans Doublons)
Dim x As Integer 'déclare la variable x (incrément)
 
Set o = Sheets("Feuil1") 'déninit l'onglet o
Set pl = o.Range("A2:A" & o.Cells(Application.Rows.Count, 1).End(xlUp).Row) 'définit la plage pl
Set dico = CreateObject("Scripting.Dictionary") 'définit la variable dico
o.Range("G1").Value = "Référence" 'titre en G1
o.Range("H1").Value = "Somme" 'titre en H1
For Each cel In pl 'boucle sur toutes les cellules éditées cel de la plge pl
    dico(cel.Value) = "" 'alimente le dictionaire dico
Next cel 'prochaine cellule de la boucle
sd = dico.keys 'récupère les valeurs sans doublon
For x = 0 To UBound(sd, 1) 'boucle : sur toutes les valeurs du tableau sd
    o.Cells(x + 2, 7).Value = sd(x) 'place la référence dans la colonne G
    o.Cells(x + 2, 8).Value = Application.WorksheetFunction.SumIf(pl, sd(x), pl.Offset(0, 3)) 'place la somme dans la colonne H
Next x 'prochaine valeur de la boucle
End Sub

 

[laetitia90]

Re : Calcul d'une somme pour chaque objet

bonjour tous
un autre code vba

Sub es()
Dim m As Object, c As Range
Set m = CreateObject("Scripting.Dictionary")
For Each c In Range("a2", Cells(Rows.Count, "a").End(xlUp))
m(c.Value) = m(c.Value) + 1
m(c.Value) = m(c.Value) + c.Offset(0, 3) - 1
Next c
[e2].Resize(m.Count, 1) = Application.Transpose(m.keys)
[f2].Resize(m.Count, 1) = Application.Transpose(m.items)
End Sub

 

[gibson92]

Re : Calcul d'une somme pour chaque objet

merci à tous pour vos réponses