Discussion :

[skynet]

Bonjour,
Après de longues heures de recherche, je m'en remets à vous.
Je veux faire une somme de valeurs moyennes.
Comme vous pouvez le voir sur cette capture, pour chaque produit, client et année j'ai une valeur moyenne : Produit1, Client1, la valeur moyenne est de 15, pour le client 2, de 22.
Si je veux faire un total du produit 1 sur l'année 2009, je me retrouve avec 52 qui correspondant à la somme des lignes de détails au lieu des 37 attendus.

J'ai déjà fait ce genre de chose sur des tableaux en utilisant du custom code mais je n'arrive pas à transposer ce cas avec une matrice (j'ai essayé d'utiliser une structure qui stockerait une valeur pour chaque produit et chaque année mais ça ne marche pas).

Merci d'avance de votre aide.

[skynet]

Je m'auto-réponds.
J'ai enfin trouvé une solution qui fonctionne.
Je crée une structure qui va stocker la somme des moyennes pour un produit et une année données.
Cette structure est alimentée grâce à la fonction SumAvg appelée sur chaque cellule du niveau Client.

Voilà pour ceux que ça intéresse :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
 
Public Class OneCell
    Public year As Integer
    Public product As Integer
    Public value As Integer
 
    Public Sub New(ByVal y As Integer, ByVal p As Integer, ByVal v As Integer)
        year = y
        product = p
        value = v
    End Sub
End Class
 
 
Public Class MyStructure
    Public listOfValues As System.Collections.ArrayList
 
    Public Sub New()
        listOfValues = New System.Collections.ArrayList
    End Sub
 
    Public Function getValue(ByVal y As Integer, ByVal p As Integer) As Integer
        For Each c As OneCell In listOfValues
            If c.year = y And c.product = p Then
                Return c.value
            End If
        Next
        Return -1
    End Function
 
 
    Public Sub setValue(ByVal y As Integer, ByVal p As Integer, ByVal v As Integer)
        Dim found As Boolean = False
        For Each c As OneCell In listOfValues
            If c.year = y And c.product = p Then
                found = True
                c.value = c.value + v
            End If
        Next
 
        If found = False Then
            Dim c As OneCell = New OneCell(y, p, v)
            listOfValues.Add(c)
        End If
    End Sub
End Class
 
Dim _list as MyStructure=new MyStructure()
 
Public Function SumAvg(Value as Integer, Year as Integer,Product as Integer)
	_list.setValue(Year,product,value)
End Function 
 
Public Function RetureSum(Year as Integer,Product as Integer) as Integer
	Return _list.getValue(Year,Product)
End Function