Problème de fusion des informations

[Tom la bulle]

Bonjour à tout le forum,

je cherche des conseils pour régler un problème qui m'empêche d'avancer sur un travail.
Je dois supprimer des doublons dans une liste en sommant suivant un champ, mais en gardant la "valeur" d'un autre champ.😱
Je mets l'exemple en fichier attacher pour celles et ceux qui voudrait bien m'aider.
Salutations
Tom

 

[BOISGONTIER]

Re : Problème de fusion des informations

Bonjour,

En C22:

=SI(MIN(SI(NB.SI(C$21:C21;réf)=0;LIGNE(INDIRECT("1:"&LIGNES(réf)))))>0;INDEX(réf;MIN(SI(NB.SI(C$21:C21;réf)=0;LIGNE(INDIRECT("1:"&LIGNES(réf))))));"")
Valider avecMaj+ctrl+entrée

JB

 

[jp14]

Re : Problème de fusion des informations

Bonsoir

Ci joint une solution par macro

A tester

JP

 

[BOISGONTIER]

Re : Problème de fusion des informations

Solution VBA:

  Set mondico = CreateObject("Scripting.Dictionary")
  Set ref = Range("C4", [C4].End(xlDown))
  Set emplacement = Range("B4", [B4].End(xlDown))
  Set qte = Range("D4", [D4].End(xlDown))
  For Each c In ref
     If Not mondico.Exists(c.Value) Then mondico.Add c.Value, c.Value
  Next c
  [C22].Resize(mondico.Count) = Application.Transpose(mondico.items)
  For Each c In Range("C22", [C22].End(xlDown))
    c.Offset(0, -1) = Application.Index(emplacement, Application.Match(c, ref, 0))
    c.Offset(0, 1) = Application.SumIf(ref, c, qte)
  Next c

JB
Formation Excel VBA JB

 

[Tom la bulle]

Re : Problème de fusion des informations

Bonjour à tous

je vous remercie de m'avoir aider...et aussi rapidement!!
J'ai opté pour la solution VBA, parce qu'elle me permet de traîter plus de donner en un seul coup. ¨Par contre si BOISGONTIER pourrai m'expliquer plus en détail sa contrainte de cellule en C22 ça me permettra de faire de beaux progrès...;-)

Merci à tous
bonne journée
Tom

 

[BOISGONTIER]

Re : Problème de fusion des informations

Bonjour,

Voir PJ

JB