Trouver les caractères que deux cellules ont en commun

Version imprimable

10/12/2013, 16h45
Accessifiante

Trouver les caractères que deux cellules ont en commun

Bonjour forum bien-aimé,

Question à 10 balles :

Est-il possible de bidouiller une formule qui comparerait ceci, par exemple :

en B1 : "Tour sud : Ascenseurs 10 et 16 en panne"
en C1 : "Panne des ascenseurs 10 et 16 dans la tour sud"

Est-ce que je peux savoir ce que les deux cellules ont en commun : mes ascenseurs 10 et 16, OU la panne...

(En fait, je dois comparer deux tableaux listant des incidents à différentes dates. Une fois les dates triées, je veux pouvoir vérifier si on parle bien de la même chose, dans la colonne "Description de l'incident", à la même date.)

Si ça se peut, je préciserais que la chaîne de caractères en commun doit être supérieure à 3 car je vais récolter tous les "de" "en", etc. sauf si les caractères communs sont numériques.

Peut-être que c'est infaisable... mais qui n'demande rien n'a rien ! :D

Merci à l'avance !

1 pièce(s) jointe(s)

Bonsoir,

Voir exemple en PJ

Fonction qui donne la liste des mots communs à 2 cellules

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Function Communs(cel1 As Range, cel2 As Range)
 Set d1 = CreateObject("Scripting.Dictionary")
 a = Split(cel1, " ")
 b = Split(cel2, " ")
 For Each c In a
   d1(c) = ""
 Next c
 Set d2 = CreateObject("Scripting.Dictionary")
  For Each c In b
    If c <> "" And d1.Exists(c) Then d2(c) = ""
  Next c
  Communs = Join(d2.keys, " ")
End Function

Jacques Boisgontier

10/12/2013, 20h13
Accessifiante

Bonsoir Jacques,

Tout d'abord merci de votre aide.

Faut-il que je recopie le code intégral du fichier joint en exemple ou seulement celui que vous donnez entre balises ?

Parce qu'en recopiant seulement celui entre balises, dans un module de ma feuille de calcul, avec des données de A2 à B11 pour faire le test, j'obtiens #VALEUR! en écrivant la formule suivante en C2 :

Citation:

=Communs(B2;$A$2:$A$11)

1 pièce(s) jointe(s)

Bonjour,

Mots communs entre 2 cellules

-Alt+F11
-Insertion/Module

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Function Communs(cel1 As Range, cel2 As Range)
 Set d1 = CreateObject("Scripting.Dictionary")
 a = Split(cel1, " ")
 b = Split(cel2, " ")
 For Each c In a
   d1(UCase(c)) = ""
 Next c
 Set d2 = CreateObject("Scripting.Dictionary")
  For Each c In b
    If c <> "" And d1.Exists(UCase(c)) Then d2(c) = ""
  Next c
  Communs = Join(d2.keys, " ")
End Function

=communs(A2;B2)

Jacques Boisgontier

11/12/2013, 15h29
Accessifiante

Merci Jacques !

J'aime les deux exemples et je les garde !

Bonne journée à vous.