recherche intelligente avec VBA excel

Version imprimable

bonjour,
je voudrais savoir si quelqu'un savait comment effectuer une rechercheb approché de caractère (string) c'est a dire deux string identique a 70%
(en conservant l'ordre ds mots)
j'ai deux feuilles excel la première composée de 3 colonnes (ID1 PRICE NAME1 ) et la deuxième en possède 2 (ID2,NAME2 )
le but étant de génerer une nouvelle feuille (NAME1 ID1 PRICE [ID2 possible])
le coeur du problème est la différence d'ecriture entre NAME1 et NAME2
les noms de NAME1 sont parfois en partie composé d'abbrévaition exemple
Final fantasy TA dans NAME1 Final fantasy tactics advance dans NAME2
DBZ tenkaichi dans NAME 1 drangonball Z tenkaichi dans NAME2

j'ai effectuer une macro qui compare une string a une valeur d'un tableau placant les reponse possible a cote du nom slectionné grace a instr
mon idée etait de retirer un caractère(ou mots) d'un coté ou l'autre de ma chaine de base afin de retrouver celui qui en est le plus proche

pour une chaine (comparaison et recuperation des donnes id2 placer apres NAME2
Code:

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 Sub doc() 'mot en D1 Call Lilsearch(Range("D1"), Range("D1").Value) End Sub Sub Lilsearch(A As Range, S As String) Dim R As Range Set R = Range("A3:A11") A.Select Dim L As Integer Dim i As Integer Dim J As String L = 0 i = 0 For Each C In R J = C.Offset(0, 1).Value If Not InStr(1, C.Value, S) = 0 Then A.End(xlToRight).Offset(0, 1).Select Selection.Value = J End If Next End Sub

Sinon une proposition je ne sais pas si cela te conviendra
J'utilise la fonction split
Cela me permet de comparer chaque mot
Après tu peux essayer de travailler par cacractère mais là c'est plus difficile
pour la manipulation des chaine de carctère si cela te donne des idées la faq

Code:

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
      Dim Tableau1() As String
    Dim Tableau2() As String
    Dim i As Integer, j As Integer
   Dim nbconcordance As String
    dim nom1 as string
    dim nom2 as string
 
    nom1="Bob le chien chinois"
   nom2="Bob le calamar chinois géant"
'on converti en majuscule
    nom1=StrConv(nom1, vbUpperCase)
    nom2=StrConv(nom2, vbUpperCase)
' on découpe les nom
    Tableau1 = Split(nom1, " ")
    Tableau2 = Split(nom2, " ")
    nbconcordance = 0
'on compare les mot
    For i = 0 To UBound(Tableau1)
        For j = 0 To UBound(Tableau1)
              If Tableau1(i) = Tableau2(j) Then
                    nbconcordance = nbconcordance + 1
                    Exit For
              End If
       Next j
   Next i

Après pour rendre ton code lisible merci d'utilise les balise CODE

16/04/2009, 00h56
ucfoutu

Bonsoir,

Mission impossible (à moins d'arriver à du n'importe quoi dans de très nombreux cas), sans plusieurs dictionnaires et plusieurs thésaurus (et encore...)
Tiens : voilà deux textes :
Texte1 : "Jean DUPOND, maire à LYON, a recruté au pair une paire d'étudiantes"
Texte2 : "Sean DUPONT va faire raire près de RYON un cerf corné de vair."

C'est déjà bien complexe (très très très complexe) en utilisant des phonèmes .... (tu devrais commencer par là, d'ailleurs...), mais là, avec des lettres que tu essayes de "rapprocher intelligemment" !!!!... ===>> ouille !
16/04/2009, 12h33
EvaristeGaloisBis

il me semble qu'il existe le moyen de calculer la distance entre deux mots. Mais comme le dit ucfoutu, c'est un peu sioux a faire.
Pour info, la distance entre deux mots c'est la distance de Leveinshtein.