Re bonjour
On ne le dira jamais assez. Avec un exemple, c'est quand même plus facile à comprendre! Donc, pour ceux qui liront ce message, soyez sympas, mettez un exemple..
Pour le sujet:
Petit détournement d'une fonction personnalisée de Recherches multiples:
Fonction personnalisée (Code de Soft pour excel-pratique)
Code dans un module:
Function RechercheMultiples(ValeurCherchée As String, MatriceCherche, MatriceTrouve, 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 Then
If RechercheMultiples = "" Then
RechercheMultiples = MatriceTrouve(i)
Else
RechercheMultiples = RechercheMultiples & Separator & MatriceTrouve(i)
End If
End If
Next c
End Function
Ensuite, cette fonction est utilisée comme une fonction Excel, mais avec les arguments correspondants :
=RechercheMultiples(ValeurCherchée;MatriceCherche;MatriceTrouve; "")
Dans l'exemple Les équipes sont en A2:A10
Les commentaires en B2;B10
En D4, tu tapes Equipe
En D5 tu choisis un No (1 par exemple)
La Fonction personnalisée renvoie les résultats multiples de la recherche verticale.
Le séparateur choisi dans le code est " " (un espace). Le résultat est l'affichage des commentaires séparés par un espace, donc identique à unr formule de Concaténation.
=RechercheMultiples($D$5;$A$2:$A$10;$B$2:$B$10;"")ou pour concaténer avec Equipe et 1 au début
=D4&" "&D5&" "&RechercheMultiples($D$5;$A$2:$A$10;$B$2:$B$10;"")
L'exemple est sur le fichier en retour
Cordialement,
Amadéus
https://www.excel-pratique.com/~files/doc/Yf2nOexemple1.xls