Macro pour Concatener des lignes

Bonjour,

J'ai besoin de concatener dans une meme cellule plusieurs lignes.

Voici la facon dont se présente le fichier:

Col 1 Col 2

entité 1 Banque 1

entité 1 Banque 2

entité 1 Banque 3

entité 2 Banque 1

Pour obtenir

Col 1 Col 2

entité 1 Banque 1;Banque 2; Banque 3

entité 2 Banque 1;....

Quelqu'un aurait-il quelques conseils ou idées pour m'aider?

Merci

Bonjour,

Envoie une feuille avec sa structure réelle, que l'on puisse tester,

une cinquantaine de ligne suffira

Amicalement

Claude

Voici un extrait du fichier

Merci

re,

Sub Compile()
Dim Lg&, i%, x%
    Application.ScreenUpdating = False
    Lg = Range("a" & Rows.Count).End(xlUp).Row
    Range("c2:c" & Lg) = "x"
    '--- tri colonne A ---
    Range("a2:b" & Lg).Sort _
        Key1:=Range("a2"), Order1:=xlAscending, _
    Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    '---
    For i = 2 To Lg
        If Cells(i + 1, "a") = Cells(i, "a") Then
            x = i
            Do While Cells(x + 1, "a") = Cells(i, "a")
               Cells(i, "b") = Cells(i, "b") & ";" & Cells(x + 1, "b")
               Cells(x + 1, "c").ClearContents
               x = x + 1
            Loop
            i = x
        End If
    Next i
        On Error Resume Next
    Range("c2:c" & Lg).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    Columns("c").ClearContents
End Sub

Amicalement

Claude

Merci beaucoup Claude!!!

N'oublie pas la petite formalité

Bonjour,

J'ai publié ce matin sur le site afin d'avoir de l'aide sur une thématique qui se rapproche de celle ci, je vous mets le lien ci dessous dans le cas où certains voudraient m'aider.

Je vous en remercie.

https://forum.excel-pratique.com/viewtopic.php?f=2&t=136796#top