Concatener plusieurs résultats dans une macro

Bonjour,

J'ai trouvé en ligne la macro suivante qui crée la fonction "chercheDansTab", qui permet d'effectuer une recherche dans un tableau et d'y associer l'information présente dans une colonne donnée pour la ligne correspondante à la recherche.

Function chercheDansTab(texteCh As String, tabCh As Range, colRes As Range)
Application.Volatile
Dim leTab As Variant
Dim i As Byte: Dim j As Byte

leTab = tabCh

For i = LBound(leTab) To UBound(leTab)
    For j = LBound(leTab, 2) To UBound(leTab, 2)
        If tabCh(i, j) = texteCh Then chercheDansTab = colRes(i) & ", " & colRes(i)

    Next j

Next i

End Function

Exemple : dans le tableau ci-joint. Lorsque je cherche la lettre d, la fonction me permet de récupérer l'information correspondante, dans la colonne E (= Rome).

Je rencontre cependant un problème lorsque la valeur recherchée et présente sur plusieurs lignes (ex: la lettre d). Dans ce cas, la fonction ne fait apparaître qu'un résultat. Or, j'aimerais qu'elle affiche tous les résultats trouvés, séparés d'une virgule et d'un espace.

Exemple : si je tape "d" dans la cellule A8, j'aimerais que la cellule B8 (qui contient la formule) = Paris, Londres.

Et non pas uniquement "Paris" comme c'est le cas avec la macro actuelle :

Savez-vous ce que je peux rajouter à la macro pour arriver à ce résultat ?

Merci beaucoup !

Bonjour,

Il y a le signe ✓ à côté du nom du sujet indiquant qu'il est résolu, est-ce le cas ou la question est toujours d'actualité ?

Bonsoir à tous !

Doux Rêveur a écrit :

Il y a le signe ✓ à côté du nom du sujet indiquant qu'il est résolu, est-ce le cas ou la question est toujours d'actualité ?

Peut-être que notre amie a décidé de tenir compte des réponses "formules" apportées à sa même demande dans un sujet différent......