Faire synthèse d'un tableau à deux colonnes

Bonjour

Je dispose d'un tableau à deux colonnes, dans la première colonne est indiqué un nom et dans la seconde un quartier? J'ai ainsi pour chaque personne le quartier où elle vit, je souhaite obtenir l'inverse et ainsi savoir dans chaque quartier quelles sont les personnes qui y vivent.

Je vois un fichier qui présente ce que j'ai et souhaite obtenir.

Merci

Bonjour,

J'ai bien une solution avec fonction, mais avec les colonnes A & B à inverser

Merci de votre réponse qui correspond à ce que je cherche, toutefois quand j'essaye de l'appliquer à mon tableau Excel me renvoie erreur "#NOM?".

Re,

Mets ton tableau en PJ pour tester

Bonjour,

si bcp de données et qu'elles peuvent être triés avant:

Sub Lister()
  Set d1 = CreateObject("Scripting.Dictionary")
  Set Rng = Range("A4:B" & [B65000].End(xlUp).Row)
  Rng.Sort Key1:=Range("B5"), Order1:=xlAscending, Header:=xlGuess, _
               OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
  For Each c In Range("b5", [B65000].End(xlUp))
    If Not d1.exists(c.Value) Then
      d1(c.Value) = d1(c.Value) & " " & c.Offset(, -1)
    Else
      d1(c.Value) = d1(c.Value) & ";" & c.Offset(, -1)
    End If
  Next c
  [E5].Resize(d1.Count, 1) = Application.Transpose(d1.keys)
  [F5].Resize(d1.Count, 1) = Application.Trim(Application.Transpose(d1.items))
End Sub

P.