Concatener de "base"

Bonjour,
j'ai un soucis de base sur la fonction CONCATENER que je n'arrive pas à résoudre.

Mon soucis est le suivant. dans un tableau de 50000 lignes(PJ) j'ai 2 colonnes:
colonne 1: Nom
colonne 2: CP

objectifs: en fonction du nom sélectionné en E1: obtenir dans la même celulle tous les CP qui y sont attachés séparé par ";".

Au départ, j'était partie sur une formule du type: =concatener(RECHERCHEV($E$1;B:L;1;"");"; ";"") mais je n'arrive pas à la terminer. toujours est-il qu'elle fonctionne que pour 2 CP.
J'ai lu sur le forum : http://www.developpez.net/forums/d12...leurs-cellule/ qui pourrais répondre à mon besoin sauf que je ne maitrise pas l'écriture en VBA donc la compréhension de ce scripte.

Quelqu'un peut-il m'aider ?

Bonjour,

Ci dessous une fonction qui fera ce que tu souhaites

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Function CP(RgNom As Range, RgSearch As Range) As String   Dim i As Long Dim str As String   For i = 1 To RgSearch.Rows.Count If RgSearch.Cells(i, 1).Value = RgNom.Value Then If str <> "" Then str = str & ";" str = str & RgSearch.Cells(i, 2).Value End If Next i   CP = str   End Function

---

A utiliser comme cela

Code:

---

=cp(G5;A2:B8)

---

merci.

pour les macro, je sais comment la récupérer pour le mettre en route, sauf que là je découvre le "fonction".
comment dois-je faire pour l'exécuter ?

désolé mais je ne maitrise pas du tout.

RE,
merci j'ai trouvé :aie: c'est super efficace :ccool: