XL 2019 Vérifier si 2 cellules ont un mot en commun

[Julie_18]

Bonjour à tous,

Je cherche à coder une macro Excel qui permette de vérifier si deux cellules différentes ont un mot en commun.

Je m'explique, mes cellules contiennent en moyenne 5 mots et je voudrais pouvoir vérifier si la cellule A1 et la cellule A2 contiennent toutes les deux un même mot.
S'agissant de listes de noms, je ne sais pas d'avance quel pourrait être le mot commun aux cellules...
Ensuite, après comparaison, je souhaiterai que la cellule A3 contienne 1 s'il y a un mot en commun, 0 sinon.

J'espère être suffisamment claire dans ma demande. Je débute ici...
Merci d'avance pour l'aide que vous pourrez m'apporter !

 

[Phil69970]

Bonjour @Julie_18 et bienvenu sur XLD

En l’absence de ton fichier je te propose ce fichier du regretté JB
J'ai mis à jour le lien de son site sur le fichier

Merci de ton retour

@Phil69970

 

[Julie_18]

Bonjour @Phil69970

Merci beaucoup pour ton aide et ta réponse très rapide, c'est exactement ce dont j'avais besoin !!

Bonne journée

 

[mapomme]

Bonjour à tous,

Une autre fonction sans dictionary (donc compatible Apple) :

Function MotsCommuns(ByVal x As String, ByVal y As String) As String
Dim xm, m, s$, r$
   xm = Split(Application.Trim(LCase(x))): y = " " & Application.Trim(LCase(y)) & " "
   For Each m In xm
      If InStr(r, " " & m & " ") = 0 And InStr(y, " " & m & " ") > 0 Then r = r & " " & m & " "
   Next m
   MotsCommuns = Application.Trim(r)
End Function