XL 2016 RECHERCHEV et concaténer plusieurs résultats

[dshz]

Bonjour à tous,

J'ai besoin de votre aide.

Je cherche à concatener un résultat d'une rcherchev avec plusieurs réponses et le nombre de résultats est variable comme dans le fichier ci-joint.

Peut-être qu'une macro est possible ...mais je n'y arrive pas

D'avance un grand merci.

 

[job75]

Bonjour dshz,

Normalement sur Excel 2016 il existe la fonction JOINDRE.TEXTE.

Si vous l'avez bien entrez en E1 cette formule matricielle :

=JOINDRE.TEXTE(",";VRAI;SI(A$1:A$9=D1;B$1:B$9;""))

à valider par Ctrl+Maj+Entrée.

A+

 

[job75]

Si JOINDRE.TEXTE n'existe pas on peut utiliser cette fonction VBA :

Function ConcatRecherche$(cible As Range, P As Range, sep$)
Dim x$, tablo, c As Range
x = CStr(cible)
Set P = Intersect(P, P.Parent.UsedRange)
If x = "" Or P Is Nothing Then Exit Function
For Each c In P.Columns().Cells
    If CStr(c) = x Then ConcatRecherche = ConcatRecherche & sep & CStr(c(1, 2))
Next
ConcatRecherche = Mid(ConcatRecherche, Len(sep) + 1)
End Function

Le code doit être placé impérativement dans un module standard.

 

[dshz]

Bonjour Job75, un grand merci pour vos réponses et votre rapidité. C'est parfait dans les 2 cas. Je ne connaissais pas cette fonction .

 

[job75]

Bonjour le forum,

Je repasse par ici pour corriger une coquille, il manquait un 1 :

For Each c In P.Columns(1).Cells

A+