Discussion :

[beubeu89]

Bonjour,
j'ai un tableau excel, comme ci-dessous:
a 1
a 2
b 3
b 4
a 5
b 6

Je souhaite obtenir un filtre avec la somme de ce tri, c'est à dire:
a 8
b 13

J'utilise un scripting.dictionary pour mettre toutes les valeurs dans un dictionnaire mais je n'arrive pas à extraire ces valeurs pour en faire la somme.

Il existe peut-être une meilleur façon d'effectuer ce tri qu'en passant par le dictionnaire.

Pouvez-vous m'éclaircir? ci-dessous le code pour mettre dans le dictionnaire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub Tri()
Dim valeurs As Object
Dim Cel As Range, Plag As Range
With Sheets("Feuil2")
    Set Plag = Union(.Range(.[A1], .[A65000].End(xlUp)), .Range(.[B1], .[B65000].End(xlUp)))
    Set valeurs = CreateObject("Scripting.Dictionary")
    For Each Cel In Plag
        If Cel.Value <> "" Then valeurs(Cel.Value) = Cel.Value
    Next Cel
End With

Merci

[beubeu89]

Avec un vba de tableau croisé dynamique, ça fonctionne bien finalement.