Discussion :

[roidurif]

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

[roidurif]

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 :

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
 
 
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