Fonction Excel "contient"

Bonjour,

J'ai encore besoin d'aide pour exploiter des fichiers xls qui continent du texte.

Je cherche un moyen de faire une fonction excel qui recherche si des mots sont présents (la liste de mots doit être modifiable et se trouve dans la cellule B1) dans une cellule, si un des mots est présent la fonction doit renvoyer 1 sinon 0.

C'est pour exploiter un fichiers xls avec de nombreux commentaires

ci-joint un fichier xls pour exemple

Merci

Jodo279

Bonjour,

Fonction personnalisée

'mots correspond à la valeur de B1, texto à la valeur de A2 dans ton exemple

C'est pas terrible comme solution mais ça marche !!

Function tester_mots(mots As Range, texto As Range)
Pattern = Split(mots.Value, "; ")
For cptr = 0 To UBound(Pattern)
   test = Application.Search(Pattern(cptr), texto.Value)
   If Not IsError(test) Then
      tester_mots = 1
      Exit Function
  End If
Next
tester_mots = 0
End Function

important:

ne pas mettre les guillemets en début et fin dans B1 et bien respecter la séparation pointvirgule- espace

Bonjour,

Le code fonctionne très bien

Merci beaucoup Michel m