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

Julie_18 · 9 Janvier 2023

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 · 9 Janvier 2023

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

Phil69970 · 9 Janvier 2023

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 · 9 Janvier 2023

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 · 9 Janvier 2023

Bonjour à tous,

Une autre fonction sans dictionary (donc compatible Apple) :

VB:

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

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

Julie_18

XLDnaute Nouveau

Phil69970

Phil69970

XLDnaute Barbatruc

Pièces jointes

Julie_18

XLDnaute Nouveau

mapomme

XLDnaute Barbatruc

Discussions similaires