Discussion :

[sempire]

Bonjour,

J'ai un champs LASTNAME (dans table1) que je souhaiterais comparer à un champs LASTNAME2 (dans table2).
Dans cette comparaison :
- Il doit me ressortir tous les champs LASTNAME dont le contenu ne contient aucun mot du champs LASTNAME2.
- Le mot comparé doit être différent de Cinéma

Exemples :
valeurs de LASTNAME : Le palace - Le Cinéma Carpaccio
valeur de LASTNAME2 : Le Palace - Le Cinéma Appolo
La valeur "Le paace" ne ressortira pas car le mot Palace est contenu dans les deux champs.
La valeur "Le Cinéma Carpaccio" ressortira car le mot Cinéma ne doit pas faire l'objet de comparaison.


Je vous remercie d'avance pour tout aide.

[Jean-Philippe André]

salut,
j'ai un doute sur ma compréhension de ta problématique :
- aucun mot de ton deuxième champs
=> si j'ai "A B C" dans le 1 et "A B D" dans le 2 pour moi c'est faux
=> si j'ai "A B C" dans le 1 et "D E F" dans le 2 là c'est vrai...

est-ce bien cela, parce que ton exemple n'est pas compréhensible

[sempire]

Merci.
C'est exactement celà.

Salim

[Jean-Philippe André]

la méthodologie la plus simple serait de créer une fonction qui prend en paramètre les deux valeurs et retourne un booléen.

L'idée est de traiter mot à mot chaque champ :

à valider dans certains cas mais l'idée est là

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Function Aucun_Mot_Commun(StrChamp1 As String, strChamp2 As String) As Boolean
dim var1 As Variant
dim var2 As Variant
dim i as integer
dim j as integer
dim tmpresult as Boolean
var1 = Split(strChamp1," ")
var2 = Split(strChamp2," ")
 
for i = 1 to Ubound(var1)
tmpresult= False
for j = 1 to Ubound(var2)
If var1(i) = var2(j) Then 
tmpresult = True
End if
Next j
if tmpresult = True Then 
'le mot i du champ1 existe dans le champ2
'on a bien au moins un mot en commun
Aucun_Mot_Commun = False
Exit Function
End if
Next i
Aucun_Mot_Commun = True
End Function