h2so4 a écrit :
Bonsoir,
une proposition via une fonction personnalisée.
appel de la fonction
=recherchemultiple(r,cible)
où
r est la cellule dans laquelle on recherche la cible
cible est une liste de chaines de caractères (séparées par une virgule) à rechercher dans r
exemple
=recherchemultiple(A1,"ABCD,EF,GH,IJK")
Function recherchemultiple(r, cible)
Dim t
t = Split(cible, ",")
For Each s In t
If r Like "*" & s & "*" Then recherchemultiple = True: Exit Function
Next
recherchemultiple = False
End Function
Bjr,
Merci pour cette fonction à laquelle je n'avais pas pensé et qui correspond tout à fait à ma recherche.
Cependant, je n'arrive pas à la faire fonctionner.
Si je code avec une VIRGULE, j'ai un message d'erreur de codage.
=recherchemultiple(L2,"ABCD,EF,GH,IJK")
Si je code avec un POINT-VIRGULE,
=recherchemultiple(L2;"ABCD,EF,GH,IJK")
elle me renvoie
#NOM?
Désolé pour le bruit,
Je n'avais pas récupéré le résultat dans une variable.
ça fonctionne parfaitement.
Merci