Regrouper des doublons d'une colonne en les additionnant

Spacepak · 20 Janvier 2013

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 · 20 Janvier 2013

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

Bonjour,

Code:

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 · 20 Janvier 2013

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

Bonjour à tous,

sans bouton

JHA

Regrouper des doublons d'une colonne en les additionnant

Spacepak

XLDnaute Junior

Pièces jointes

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

JHA

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Regrouper des doublons d'une colonne en les additionnant

Spacepak

XLDnaute Junior

Pièces jointes

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

JHA

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency