Regrouper des doublons d'une colonne en les additionnant

[Spacepak]

Bonjour,

Je dispose d'un tableau de deux dimensions (une colonne avec les clients et une colonne avec leur montant associé).

J'aimerai pouvoir regrouper les doublons (clients) et additionner à chaque fois les montants correspondants.
Je vous envois un exemple. J'ai mis en orange ce qu'on devrait obtenir en cliquant sur le bouton.

Pourriez-vous m'aider?

 

[BOISGONTIER]

Re : Regrouper des doublons d'une colonne en les additionnant

Bonjour,

Sub DoublonsTotal()
  Set d = CreateObject("Scripting.Dictionary")
  For Each c In Range("c4:c" & [c65000].End(xlUp).Row)
    d(c.Value) = d(c.Value) + c.Offset(, 1).Value
  Next c
  [f4:g1000].ClearContents
  [f4].Resize(d.Count, 1) = Application.Transpose(d.keys)
  [g4].Resize(d.Count, 1) = Application.Transpose(d.items)
End Sub

JB

 

[JHA]

Re : Regrouper des doublons d'une colonne en les additionnant

Bonjour à tous,

sans bouton

JHA