Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Julie_18

XLDnaute Nouveau
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 !
 

mapomme

XLDnaute Barbatruc
Supporter XLD
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…