Double RechercheMultiples

Bonjour

Hier, grâce au forum j'ai pu résoudre un de mes problèmes via l'utilisation d'une formule type RechercheMultiples. Cette formule me permet d'afficher dans une seule cellule plusieurs données correspondants à une même référence.

Toutefois, je désirerai complexifier le process. En effet, je souhaiterai afficher dans la cellule uniquement les données commençant par ???.

Ci-joint un exemple pour comprendre plus aisément mon problème :

https://www.excel-pratique.com/~files/doc/EXEMPLE2.xls

Merci d'avance,

Cordialement,

Luboyoyo

Bonjour

En passant par une colonne intermédiaire

Cordialement,

Amadéus

https://www.excel-pratique.com/~files/doc/EoVFtEXEMPLE2.xls

Merci pour ton aide Amadèus

Cordialement,

Luboyoyo

Salut Luboyoy0, modérateur Amadéus et le forum

Pourquoi mettre une colonne supplémentaire, la fonction modifiée, par l'ajout d'un test

If ValeurCherchée = c And Left(MatriceTrouve(i), Len(Egale)) = Egale then

Function RechercheMultiples(ValeurCherchée As String, MatriceCherche, MatriceTrouve, Egale As String, Optional Seprator As String) As String
Dim c, i As Long
If Separator = "" Then Separator = " "
For Each c In MatriceCherche
i = i + 1
If ValeurCherchée = c And Left(MatriceTrouve(i), Len(Egale)) = Egale Then
If RechercheMultiples = "" Then
RechercheMultiples = MatriceTrouve(i)
Else
RechercheMultiples = RechercheMultiples & Separator & MatriceTrouve(i)
End If
End If
Next c
End Function

Mytå

Salut le forum

La Function est de Soft sur le lien suivant https://www.excel-pratique.com/forum/viewtopic.php?t=1656

et a été donnée par Amadéus et adapté par moi-même.

Dur, dur de vous suivre par bout

Mytå

Salut le forum

Une autre façon sans le respect de la case et la position du texte

If ValeurCherchée = c And InStr(1, MatriceTrouve(i), Egale, 1) <> 0 Then

Function RechercheMultiples(ValeurCherchée As String, MatriceCherche, MatriceTrouve, Egale As String, Optional Seprator As String) As String
Dim c, i As Long
If Separator = "" Then Separator = " "
For Each c In MatriceCherche
i = i + 1
If ValeurCherchée = c And InStr(1, MatriceTrouve(i), Egale, 1) <> 0 Then
If RechercheMultiples = "" Then
RechercheMultiples = MatriceTrouve(i)
Else
RechercheMultiples = RechercheMultiples & Separator & MatriceTrouve(i)
End If
End If
Next c
End Function

Mytå