Regrouper des données monétaires en supprimant les doublons

Bonjour à vous tous,

je suis nouveau sur ce forum, et je vous souhaite à tous le bon jour!

Je suis stagiaire dans une entreprise de courtage en assurances et j'ai un petit problème avec une feuille exccel:

En colonne: j'ai plusieurs "produits" qui contiennent plusieurs "fonds d'investissement"

En ligne: j'ai les "fonds" qui composent les "produits", chaque "fond" à une valeure différente pour chaque produit

PROBLEME: En copiant produit par produit et en triant par nom de "fond", j'ai des doublons (en ligne) des fonds (normal!)

QUESTION: comment supprimer les NOMS des fonds en doublons en regroupant sur une même ligne leurs différentes valeures pour chaque produit? (j'ai plus de 1000lignes)

Merci d'avance, je vous souhaite une bonne soirée

Bonjour et bienvenue

Merci de nous faire parvenir un extrait de ton fichier (avec des noms bidons)

Amicalement

Nad

https://www.excel-pratique.com/~files/doc2/IryLEClasseur1.xlsx

Merci beaucoup de t'intérresser à mon Post!

J'espère qu'une seule et même fonction sur toute la page pourrait suffir!

Bonsoir à tous,

Sub Regroupe()
''Macros par Claude Dubois pour "bigbestman" E-P le 28 Oct 09
Dim Lg As Integer, i As Byte, Y As Byte, Cl As Byte
    Application.ScreenUpdating = False
    Lg = Range("A65536").End(xlUp).Row
        For i = 5 To Lg
            If Cells(i, 2) = Cells(i + 1, 2) Then
                Do While Cells(i, 2) = Cells(i + 1, 2)
                    Cl = Cells(i + 1, 2).End(xlToRight).Column
                    Cells(i + 1, Cl).Cut Destination:=Cells(i - Y, Cl)
                    Cells(i + 1, 1).ClearContents
                    Y = Y + 1
                    i = i + 1
                Loop
                    Y = 0
            End If
        Next i
    Range("a5:a" & Lg).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Fichier:

https://www.excel-pratique.com/~files/doc2/bigbestman.xls

Amicalement

Claude.