Bonjour,
Je souhaite faire une recherche d'un objet en fonction d'une valeur et d'afficher dans une cellule la liste des éléments associés.
Comme cela ne risque pas d'être clair, j'ai joint un fichier exemple
Je souhaite obtenir le résultat indiqué dans la colonne Numéro de la feuille Feuil2 (ici, je l'ai noté en dur)
J'ai utilisé une fonction que j'ai modifié provenant de ce post : https://www.excel-downloads.com/threads/recherchev-mais-plusieurs-resultats-a-afficher.147441/
Cette fonction marche, elle me retourne bien la liste de tous les numéro en fonction du produit recherché.
Voici ma fonction modifiée :
Celle-ci ne fonctionne pas, mais je ne vois pas où se trouve le problème.
Par avance, merci pour votre aide !
[EDIT] : Ajout du fichier exemple au format Excel 2003
[EDIT 2] : Modification du titre (Ajout du préfixe VBA)
Je souhaite faire une recherche d'un objet en fonction d'une valeur et d'afficher dans une cellule la liste des éléments associés.
Comme cela ne risque pas d'être clair, j'ai joint un fichier exemple
Je souhaite obtenir le résultat indiqué dans la colonne Numéro de la feuille Feuil2 (ici, je l'ai noté en dur)
J'ai utilisé une fonction que j'ai modifié provenant de ce post : https://www.excel-downloads.com/threads/recherchev-mais-plusieurs-resultats-a-afficher.147441/
Cette fonction marche, elle me retourne bien la liste de tous les numéro en fonction du produit recherché.
Voici ma fonction modifiée :
Code:
Function RechTousFiltre(Produit, Filtre, ChampRecherche As Range, ChampRetourne As Range)
a = ChampRecherche
temp = ""
For b = 1 To ChampRecherche.Count
If a(b, 1) <> Filtre Then
c = ""
ElseIf a(b, 1) = Produit Then
temp = temp & ChampRetourne(b) & ", "
End If
Next b
RechTousFiltre = Left(temp, Len(temp) - 1)
End Function
Celle-ci ne fonctionne pas, mais je ne vois pas où se trouve le problème.
Par avance, merci pour votre aide !
[EDIT] : Ajout du fichier exemple au format Excel 2003
[EDIT 2] : Modification du titre (Ajout du préfixe VBA)
Pièces jointes
Dernière édition: