XL 2019 RECHERCHEV la source peut ne comporter qu'une partie de la plage

[TRANKILL]

Bonjour,
Je n'arrive pas à mes fins sur une chose simple à première vue.
Je fait une recherche d'une source A pour renvoyer la valeur C de la colonne B (B étant respectivement la colonne 1 et 2 de ma plage de donnée)
Le hic c'est que ma source (A) peut contenir plus d'info que la valeur C.

Je vous fournis le tableau c'est toujours plus explicite que de grande explications.

PS:
J'ai réussi à faire l'inverse de ce que je veux avec =RECHERCHEV("*"&C7&"*";Feuil2!$B$4:$C$26; 2;0) à la place de =RECHERCHEV(C7;Feuil2!$B$4:$C$26; 2;0)

Vous remerciant pour votre aide,

 

[sylvanu]

Bonjour Trankill,
Pas bien compris votre problématique. Vous dites :

J'ai réussi à faire l'inverse de ce que je veux avec

Or si on test avec C7 ou "*"&C7&"*" on obtient les mêmes résultats hormis si la sources est vide :

ENTRÉE A	Recherche sur
	C7	"*"&C7&"*"
AZE	POMME	POMME
RGT	POIRE	POIRE
RGT	POIRE	POIRE
AZE	POMME	POMME
FGH	FRAISE	FRAISE
ERT	POMME	POMME
111AZE111	#N/A​	#N/A​
dfvdfAZEZfdvdfs	#N/A​	#N/A​
111RGT111	#N/A​	#N/A​
dfvdfRGTfdvdfs	#N/A​	#N/A​
	#N/A​	POMME​
	#N/A​	POMME​
	#N/A​	POMME​

Pourriez vous mettre l'attendu dans la feuille 1 pour être plus explicite.

 

[TRANKILL]

Bonjour Sylvanu,
Ci-dessous le résultat souhaité:

Je voudrais que le résultat s'affiche à partir du moment ou l'on trouve "AZE" dans la source (uniquement ou partiellment)

 

[sylvanu]

Re,
Un essai en PJ avec la fonction perso :

Function Rechercher(C$, Plage)
    Dim T, i%
    Rechercher = "": If C = "" Then Exit Function
    T = Plage
    For i = 1 To UBound(T)
        If T(i, 1) <> "" And C Like "*" & T(i, 1) & "*" Then Rechercher = T(i, 2): Exit Function
    Next i
End Function

Les macros doivent être activées.
La syntaxe est =Rechercher(Entrée A;TableauBC)

 

[TRANKILL]

Merci beaucoup ca fonctionne.
Je ne comprend pas le code de ta macro mais j'ai réussi à l'adapter à mon fichier et le résultat est top !

Merci pour l'aide et vive ce forum

 

[sylvanu]

Re, avec quelques commentaires :

Function Rechercher(C$, Plage)
    Dim T, i%
    Rechercher = "": If C = "" Then Exit Function ' Si la valeur renvoyée est nulle on sort
    T = Plage   ' On tranfert le tableau d'équivalence dans un tableau VBA, plus rapide
    For i = 1 To UBound(T) ' Pour toute es lignes de ce tableau
        ' Si la chaine contient un des éléments du tableau, alors on renvoie la valur correspondante, et on sort.
        If T(i, 1) <> "" And C Like "*" & T(i, 1) & "*" Then Rechercher = T(i, 2): Exit Function
    Next i
End Function