recherche valeur dans une chaine

[PERGEUX24]

Bonjour
je rebondis sur le fil
https://www.excel-downloads.com/threads/recherche-valeur-mais-dans-une-phrase.220838/

effectivement
COLONNE A########################## COLONNE B
ALAIN DUBOIS ALLEMAGNE###################100
DUJARDIN ALAIN ITALIE######################200
DUPOND ALAIN FRANCE######################300

ETC...................................

POUR UNE RECHERCHE

ALAIN la formule de david 84 va servir =INDEX(D$2😀$7;EQUIV("*"&A15&"*";C$2:C$7;0)) a trouver la 1ERE


MAIS PAS TOUTE
SI j ajoute un critere pour faciliter la recherche
exemple

ALAIN ITALIE quelle serait la formule pour qu il me sorte 200
ALAIN DUPOND quelle serait la formule pour qu il me sorte 200

merci a vous

 

[JCGL]

Re : recherche valeur dans une chaine

Bonjour à tous,

Merci de joindre un fichier anonymisé et succinct car nous ne savons à quoi correspondent les # successifs.
As-tu testé la Conversion ?

A+ à tous

 

[PERGEUX24]

Re : recherche valeur dans une chaine

ci joint fichier

 

[PERGEUX24]

Re : recherche valeur dans une chaine

Bonjour

j ai trouvé une solution avec concatener et *

cette solution ne fonctionne que si les mots sont dans le bon sens ( voir fichier )

j 'aimerais trouver cette solution pour quelque soit la position que la personne a mis son MOT

A vos crayon😉

 

[PERGEUX24]

Re : recherche valeur dans une chaine

Bonjour

j ai trouvé une solution avec concatener et *

cette solution ne fonctionne que si les mots sont dans le bon sens ( voir fichier )

j 'aimerais trouver cette solution pour quelque soit la position que la personne a mis son MOT

A vos crayon😉

Après avoir travaillé toute la journee dessus le problème , je ne trouve pas la solution .
50 % du travail rempli 😡
ette solution ne fonctionne que si les mots sont dans le bon sens ( voir fichier )

j 'aimerais trouver cette solution pour quelque soit la position que la personne a mis son MOT

 

[david84]

Re : recherche valeur dans une chaine

Bonjour, salut Jean-Claude,
une fonction personnalisée à tester (enlever les "*"qui ne servent à rien dans le fichier exemple) :

Function RechercherMots(Chaine As String, Matrice As Range) As Long
Dim TabChaine, c As Range
Dim i As Byte, j As Byte
For Each c In Matrice
  j = 0
  TabChaine = Split(Chaine)
  For i = LBound(TabChaine) To UBound(TabChaine)
    If InStr(1, c.Text, TabChaine(i), vbTextCompare) > 0 Then
      j = j + 1
    Else
      Exit For
    End If
  Next i
  If j = UBound(TabChaine) + 1 Then RechercherMots = c.Offset(0, 1): Exit Function
Next c
End Function

Pour l'utiliser :

=RechercherMots(J1;$G$1:$G$5)

A+