Macro : Comparaison 2 liste

Bonjour,

J’ai deux listes à comparer en colonne A. A partir de la liste 2, je souhaite identifier les produits de la liste 1 dans le fichier.

En comparaison, je peux avoir les mêmes descriptions article dans les deux liste, dans ce cas aucun problème pour trouver le produit, par contre ce qui me pose problème, quand la description est légèrement différente, le matching ne se fait pas.
Comment à partir d’une MACRO faire en sorte que lorsque l’on a 95% des mots rechercher dans la cellule trouvée, alors mettre « Donnée en cellule A2 »

Exemple :
Liste 1 : ACIDE CHLORHYDRIQUE 34 % SYNTH 10 T =< VRAC< 15 T, QUALITÉ : EAU POTABLE
Liste 2 : ACIDE CHLORHYDRIQUE 34% SYNTH 10T < VRAC< 15 TONNE

Ces données sont identiques. Je vous joins des données d'exemple

Bonjour,

J'ai commencé à préparer un code qui permet de splitter une chaine de caractère et rechercher un par un les mots du texte splitté.

Simplement, je ne sais pas comment exprimer dans ma macro en code VBA, si les mots splittés recherchés se trouvent à la même adresse, alors je mets une croix par exemple en face le cellule recherchée.

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 28 29 30 31 32

Sub Chercher()   Dim Plage As Range Dim Cel_1 As Range Dim Mot1 As String Dim f As String   'mots recherchés For x = 1 To 82 Mot1 = Sheets("Feuil3").Range("B" & x)     eclatement = Split(Sheets("Feuil3").Range("B" & x).Value, " ") For n = 0 To UBound(eclatement) f = eclatement(n)     'plage à adpater Set Plage = Sheets("Feuil1").Range("A1:A1000")   'recherche les mots dans les chaînes contenues dans les cellules Set Cel_1 = Plage.Find(f, , xlValues, xlPart) If Cel_1 <> Null Then End If     Next n Next x   end sub

---

Merci de votre aide