XL 2016 Comparer le texte contenu dans deux cellules

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 19 Avril 2021

• #2

Bonjour LeGlauque,
Avec un seul exemple, c'est difficile d'apporter une réponse correcte.
En se limitant à votre exemple, on peut faire :

VB:

=NB.SI(B2;"*"&B3&"*")+NB.SI(B3;"*"&B2&"*")

Mais ce ne sera surement pas valable pour un autre ex. Dans cette formule il faut qu'une au moins des cellules ne comporte qu'un mot qu'on retrouve dans la seconde cellule.

 

Pièces jointes

• Classeur3.xlsx

  8.5 KB · Affichages: 18

Vote positif 0 Vote négatif

N

Nairolf

XLDnaute Accro

• 19 Avril 2021

• #3

Salut LeGlauque et sylvanu,

Sur le même principe que sylvanu et avec les mêmes réserves :

Code:

=SI(ET(ESTERREUR(CHERCHE(B2;B3));ESTERREUR(CHERCHE(B3;B2)));0;1)

 

Vote positif 0 Vote négatif

leGlauque

XLDnaute Nouveau

• 19 Avril 2021

• #4

Merci beaucoup pour vos réponses,

Alors effectivement, je me rends bien compte que c'est compliqué...
Le souci avec vos deux propositions, c'est que dès que "Corelienne" n'est plus toute seule dans la 1ère case, la formule renvoie "Faux".

Je peux décliner l'exemple sur quelque chose de + trivial.
Par exemple : repérer entre deux cellule s'il y a un (ou plusieurs) ingrédient(s) identiques.
Potage | Poireaux, Patates, Carottes, Navet
Tartiflette | Patates, Reblochon, Lardons, Oignons
Ca match, car il y a Patates dans les deux cellules → résultat "Vrai" ou "1"

J'espère que c'est un peu + clair.

Encore merci,

l.G.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 19 Avril 2021

• #5

Bonsoir,
sans connaitre la longueur des deux phrases ni le nombre d'éléments, je pense que par formules, cela va être difficile;
En PJ un essai avec une fonction perso :

VB:

Function ChercheP(V1, V2)
    Dim T, i%
    Application.Volatile
    V1 = LCase(V1): V2 = LCase(V2)
    V1 = Replace(V1, " ", ""): T = Split(V1, ",")
    For i = 0 To UBound(T)
        If V2 Like "*" & T(i) & "*" Then ChercheP = 1
    Next i
End Function

 

Pièces jointes

• Classeur1 V2.xlsm

  15.4 KB · Affichages: 5

Dernière édition: 20 Avril 2021

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 20 Avril 2021

• #6

Bonjour @ tous,
sur le fichier du post #5 de l'ami Sylvanu que je salue au passage, une formule matricielle, en D2 :

VB:

=SI(MOD(LIGNES($2:2);2)=1;SIGNE(NB(CHERCHE(FILTRE.XML("<a><b>"&SUBSTITUE(B2;",";"</b><b>")&"</b></a>";"//b");TRANSPOSE(FILTRE.XML("<a><b>"&SUBSTITUE(B3;",";"</b><b>")&"</b></a>";"//b")))));"")

@ valider par Ctrl+Maj+Entrée
@ tirer vers le bas


Cordialement

 

Vote positif 0 Vote négatif

leGlauque

XLDnaute Nouveau

• 23 Avril 2021

• #7

Merci infiniment pour vos réponses !
Vous êtes des génies !

Je me suis permis d'ajouter un petit "SI" avant la formule au cas où les deux cellules sont vides (auquel cas cela renvoyait en toute logique un "1").

Encore 1000 mercis !

l.G.

 

Vote positif 0 Vote négatif

leGlauque

XLDnaute Nouveau

• 23 Avril 2021

• #8

Sur un autre forum, un utilisateur m'a proposé cette formule là :

Function Detecter(Liste_1, Liste_2) As Long
Dim i As Long, j As Long
Chaine_1 = "," & Replace(Liste_1, " ", "", 1) & ","
Chaine_2 = "," & Replace(Liste_2, " ", "", 1) & ","

Liste_1 = Split(Chaine_1, ",")
Liste_2 = Split(Chaine_2, ",")
For i = 1 To UBound(Liste_1)
If Liste_1(i) <> "" Then
For j = 1 To UBound(Liste_2)
If Liste_1(i) = Liste_2(j) Then Nb = Nb + 1
Next j
End If
Next i
Detecter = Nb
End Function

Qu'en pensez-vous ?

Belle journée,

l.G.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 23 Avril 2021

• #9

Bonjour le fil,
Si vous regardez le code du post #5 il fait la même chose en plus optimisé.
Il est inutile de spliter les deux chaines en utilisant la fonction Like.

 

Vote positif 0 Vote négatif

leGlauque

XLDnaute Nouveau

• 23 Avril 2021

• #10

Merci pour ta réponse.
Je n'y connais pas grand chose, mais je vois ce que tu veux dire.

 

Vote positif 0 Vote négatif