Discussion :

[gui-llaume]

Salut,

j'ai deux listes,

- d'un coté, une liste de commandes avec pour chaque ligne , le nom du client.
- de l'autre coté, une liste de noms de clients spécifique

je cherche à identifier dans ma premiere liste, les clients qui sont dans la 2eme liste.
Probleme, les noms peuvent parfois correspondre exactement, parfois a peu pres, parfois éloignés.

quelle fonction pourrais je utiliser ?

[Daniel.C]

Bonjour,

Probleme, les noms peuvent parfois correspondre exactement, parfois a peu pres, parfois éloignés.

Ce n'est pas dit que tu puisses. Peux-tu donner quelques exemples, dans les "éloignés" de préférence.

[gui-llaume]

ce sont des noms de clients , saisis de 2 manieres.

par exemple, pour la socièté AGF, je pourrais avoir A.G.F ou A G F ou AGF France...

pour les plus éloignés (je ne me fais pas trop d'illusion) , on aurait d'un coté GIE Est, et de l'autre Groupement d'Intéret Gal France Est.


y aurait pas moyen de régler le parametre valeur proche d'une recherchev ?

[Philippe Tulliez]

Bonjour,
Dans ton cas, faire une recherche à l'aide de la formule RECHERCHEV avec comme option Valeur proche, te renverra sans aussi des valeurs non souhaitées
Exemple. Sachant que pour utiliser la valeur proche, la liste doit être triée voilà l'ordre de tri de 5 noms
Donc en tapant AGF, tu aurais AG Assurance
A G F France
A.G.F
AG
AG Assurance
AGF

[patricktoulon]

bonjour

en ce momment je trouve qu'il y a beaucoup de questions interssantes

voila un petit exemple
mais cela implique que tu doive faire la recherche par les initiales
ce qui est un moindre mal
je vais l'agrémenté de plus de possibilités mais en attendant regarde ca

met ca en colonne a a partir de la ligne 2 dans un sheets
comme tu peut le voir j'ai envisagé pas mal de possibilités

a g f
ogf
a.G.F
o g f
gaf
a,g,f
i s f
fga
rof
agota
ufgoti
agence general francaise

met ca dans un module standard

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
Function recherche(mot As String)
    Dim newmot As String, i, e, liste
    liste = liste & "POSSIBILITé" & vbCrLf
 
 
    'plage de recherche
    fin = Range("a" & Rows.Count).End(xlUp).Row
 
    For Each cell In Range("a2:a" & fin)
 
        'condition sur l'ortographe identique
        If cell = mot Then
            liste = liste & cell & " enligne  " & cell.Row & vbCrLf
            GoTo suite
        End If
 
        'condition sur l'espacement entre les lettre
        If Replace(cell, " ", "") = mot Then
            liste = liste & cell & " enligne  " & cell.Row & vbCrLf
            GoTo suite
        End If
 
        'condition sur l'espacement par des point entre les lettres
        If LCase(Replace(cell, ".", "")) = mot Then
            liste = liste & cell & " enligne  " & cell.Row & vbCrLf
            GoTo suite
        End If
 
        'condition sur l'espacement par des virgules entre les lettres
        If Replace(cell, ",", "") = mot Then
            liste = liste & cell & " enligne  " & cell.Row & vbCrLf
            GoTo suite
        End If
 
        'condition par les espace et la 1 ere lettre des mots qui composent le nom dans la cellule
 
        If InStr(cell, " ") > 0 Then    'And Len(cell) > Len(mot) Then
            multimot = Split(cell, " ")
            For e = 0 To UBound(multimot)
                newmot = newmot & Left(multimot(e), 1)
            Next e
 
            If newmot = mot Then liste = liste & cell & " enligne  " & cell.Row & vbCrLf
        End If
suite:
        newmot = ""
    Next
 
    recherche = liste
End Function
Sub test_de_recherche()
    MsgBox recherche("agf")
End Sub

c'est pas beau la vie

au plaisir

[gui-llaume]

merci et chapeau l'artiste, je regarde ce que ca donne et je vous en dit des nouvelles