XL 2016 RECHERCHEV et concaténer plusieurs résultats

dshz

XLDnaute Nouveau
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.
 

Pièces jointes

  • TRY.xlsm
    8.1 KB · Affichages: 6

job75

XLDnaute Barbatruc
Bonjour dshz,

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

Si vous l'avez bien entrez en E1 cette formule matricielle :
Code:
=JOINDRE.TEXTE(",";VRAI;SI(A$1:A$9=D1;B$1:B$9;""))
à valider par Ctrl+Maj+Entrée.

A+
 

Pièces jointes

  • TRY(1).xlsx
    8.9 KB · Affichages: 6

job75

XLDnaute Barbatruc
Si JOINDRE.TEXTE n'existe pas on peut utiliser cette fonction VBA :
VB:
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.
 

Pièces jointes

  • TRY VBA(1).xlsm
    15.8 KB · Affichages: 22

Discussions similaires

Réponses
17
Affichages
928

Statistiques des forums

Discussions
311 737
Messages
2 082 036
Membres
101 878
dernier inscrit
1475214