recherche partielle Fermé

Question

Bonjour, 
voici mon problème sur excel. 
J'ai deux fichier assez volumineux contenant des titres de produits. 
Les deux fichier n'utilisent pas les même noms de produits exact mais en réalité ce sont les même produits. 
Par exemple ; Fichier 1 : pâte à dent à la menthe poivré. Fichier 2 : Dentifrice à la menthe. 
Mon but est de faire un ménage pour uniformiser le tout. Cependant je ne peux pas faire de rechercheV et si je regarde les doublons mot par mot cela me prendrait une éternité.
Il y a t'il un moyen de faire des recherches partielles sans avoir de mots clés spécifique. Je veux simplement qui retrouve des mots similaires dans les deux tables. 
Merci. 
Configuration: Windows / Firefox 45.0

eriiic · Accepted Answer

Bonjour,
tu as l'addin fuzzy logic qui fait ça : http://www.emarketeur.fr/ressources/productivite/comparaison-listes-excel-fuzzy-logic-donne-coup-de-vieux-vlookup/
eric

ThauTheme · Answer

Bonjour Oly, bonjour le forum,
Avec le peu d'infos que tu daignes fournir, sans les fichiers, voici ce que je te propose :
Dans un des deux fichiers (au choix), tu crées une UserFom nommée Userform1 avec :
- 1TextBox nommée TextBox1
- 2 Labels nomées Label1 et Label2
- 2 ListBoxes nommées ListBox1 et ListBox2

Tu y copies le code ci-dessous en adaptant les noms (classeur2, onglet1 et onglet2). Le fichier devra être enregistrer sous avec l'extension .xlsm pour conserver le code...
Private C1 As Workbook 'déclare la variable C1 (Classeur 1)
Private C2 As Workbook 'déclare la variable C1 (Classeur 1)
Private O1 As Worksheet 'déclare la variable O1 (Onglet 1)
Private O2 As Worksheet 'déclare la variable O2 (Onglet 2)
Private TV1 As Variant 'déclare la variable TV1 (Tableau des Valeurs de l'onglet 1)
Private TV2 As Variant 'déclare la variable TV2 (Tableau des Valeurs de l'onglet 2)
Private I1 As Long 'déclare la variable I1 (Incrément 1)
Private I2 As Long 'déclare la variable I2 (Incrément 2)
Private J1 As Integer 'déclare la variable J1 (incrément 1)
Private J2 As Integer 'déclare la variable J2 (incrément 2)

Private Sub UserForm_Initialize() 'à l'initialisation de l'UserForm
Set C1 = ThisWorkbook 'définit le classeur C1
Set C2 = Workbooks("second_classeur.xlsm") 'définit le classeur C2 (à adapter à ton cas)
Set O1 = C1.Sheets("Feuil1") 'définit l'onglet O1 (à adapter à ton cas)
Set O2 = C2.Sheets("Feuil2") 'définit l'onglet O2 (à adapter à ton cas)
Me.Caption = "RECHERCHE" 'définit le titre de l'UserForm
Me.Label1.Caption = C1.Name & " - " & O1.Name 'renvoie dans l'étiquette Label1 le nom du classeur C1 et le nom de l'onglet O1
Me.Label1.Caption = C2.Name & " - " & O2.Name 'renvoie dans l'étiquette Label2 le nom du classeur C2 et le nom de l'onglet O2
TV1 = O1.Range("A1").CurrentRegion 'définit le tableau des valeurs TV1
TV2 = O2.Range("A1").CurrentRegion 'définit le tableau des valeurs TV2
End Sub

Private Sub TextBox1_Change() 'au changement dans la TextBox1
Me.ListBox1.Clear 'vide la ListBox1
Me.ListBox2.Clear 'vide la ListBox2
If Me.TextBox1.Value = "" Then Exit Sub 'si la Textbox1 est effacée, sort de la procédure

For I1 = 1 To UBound(TV1, 1) 'boucle 1 : sur toutes les lignes I1 du tableau des valeurs TV1
    For J1 = 1 To UBound(TV1, 2) 'boucle 2 : sur toutes les colonnes J1 du tableau des valeurs TV1
        'condition : si le texte édité dans la TextBox1 est contenu dans la donnée ligne I1 colonne J1 du tableau des valeurs TV1
        If InStr(1, TV1(I1, J1), Me.TextBox1.Value, vbTextCompare) > 0 Then
            'ajoute la donnée à la ListBox1 en mentionnant sa ligne et sa colonne
            Me.ListBox1.AddItem "Ligne " & I1 & " / Colonne" & J1 & " - " & TV1(I1, J1)
        End If 'fin de la condition
    Next J1 'prochaine colonne de la boucle 2
Next I1 'prochaine ligne de la boucle 1

For I2 = 1 To UBound(TV2, 1) 'boucle 1 : sur toutes les lignes I2 du tableau des valeurs TV2
    For J2 = 1 To UBound(TV2, 2) 'boucle 2 : sur toutes les colonnes J2 du tableau des valeurs TV2
        'condition : si le texte édité dans la TextBox1 est contenu dans la donnée ligne I2 colonne J2 du tableau des valeurs TV2
        If InStr(1, TV2(I2, J2), Me.TextBox1.Value, vbTextCompare) > 0 Then
            'ajoute la donnée à la ListBox2 en mentionnant sa ligne et sa colonne
            Me.ListBox2.AddItem "Ligne " & I2 & " / Colonne" & J2 & " - " & TV2(I2, J2)
        End If 'fin de la condition
    Next J1 'prochaine colonne de la boucle 2
Next I1 'prochaine ligne de la boucle 1
End Sub
Il faut que les deux classeurs soient ouverts. 
Tu lances l'UserForm1 (soit tu crées bouton soit une macro avec le code : UserForm1.Show).
Tu tapes le texte recherché et au fur et à mesure que tu édites les caractères les deux ListBoxes se remplissent t'indiquant l'emplacement du mot dans les deux fichiers...
Si tu n'y arrives pas, envoie les deux fichiers...

yg_be · Answer

bonjour, peux-tu approfondir ton exemple?  que souhaites-tu obtenir avec "pâte à dent à la menthe poivré" et "Dentifrice à la menthe"?

gbinforme · Answer

Bonjour, 
J'ai peut-être une idée pour t'aider dans ton souci mais j'aimerais pour la tester que tu nous donnes une vingtaine de noms (non personnels) de chacun de tes classeurs comme les 2 que tu as mis. Cela éviterai de créer un jeu d'essai bidon nécessairement inadapté à ton cas.

Recherche partielle

4 réponses

Discussions similaires