Microsoft 365 Si tous les légumes d'une chaîne se trouvent dans une autre chaîne alors on pourra supprimer cette chaîne

[carlos]

Bonjour,
Je cherche à nettoyer une colonne d'excel. Voir PJ.
par exemple si j'ai dans la même colonne :

Ligne 2 --> Pois/Carotte
Ligne 3 --> Pois/Carotte/Tomate
Ligne 4 --> Pois/Carotte/Asperge/Céleri

Ligne 23 --> Pois/Carotte/Tomate/Poireau

Principe : Si tous les légumes d'une chaîne se trouvent dans une autre chaîne alors on pourra supprimer cette chaîne
Donc dans mon exemple on pourra supprimer la ligne 2 et la ligne 3
J’espère avoir été assez clair.
Bonne soirée

 

[mapomme]

Re @job75

Compare les fichiers des posts #5 et #10 => 188 lignes avec les mêmes textes.

Ça c'est OK.

Mais je parle du jeu de test suivant :

a

c

c/d/e

a/b/d/e

d

a/d

b

a/m

e

m

Qui d'après moi devrait donner :

a/b/d/e

a/m

c/d/e

Je dois sans doute merdoyer quelque part dans vos fichiers...

 

[chris]

RE @mapomme

PowerQuery donne bien ton résultat si on ajoute la colonne Nombre à la source
Elle n'est pas utilisée donc on pourrait modifier la requête pour ne pas la conserver...

 

[job75]

Ah d'accord mapomme, je comprends ce que tu veux dire.

Alors il faut utiliser ce fichier (4) où l'on a remplacé :

    If ub > 0 Then
        tri s, 0, ub 'classement alphabétique sur chaque ligne
        x = "/ " & Join(s, " / ") & " /" 'encadrement par des espaces
    End If
    If x <> "" Then d(x) = ""

par :

    If ub > 0 Then
        tri s, 0, ub 'classement alphabétique sur chaque ligne
        x = Join(s, " / ") 'encadrement par des espaces
    End If
    If x <> "" Then x = "/ " & x & " /": d(x) = "" 'espaces sur les bords

 

[mapomme]

Bonjour @chris, @job75,

Merci à vous. Tout colle donc

Je vous souhaite une très bonne journée.

 

[carlos]

Merci à tous pour votre travail et votre implication dans ce projet.
Bonne journée

 

[carlos]

Bonjour,
je reviens vers vous pour mon projet.
J'ai tenté de faire fonctionner le code de Job75 sur ce fichier mais cela ne marche pas et je ne comprends pas vraiment pourquoi car la forme de la base est la même.
Bonne journée

 

[job75]

Bonjour carlos, le forum,

Oui la forme de la base est la même mais maintenant mon code n'est plus dans la feuille des résultats.

Car vous l'exécutez via un bouton au lieu d'une Worksheet_Activate.

Votre fichier corrigé en retour.

A+

 

[carlos]

Super en cliquant sur le bouton "Filtrer" je retrouve les 188 solutions.
Génial et merci beaucoup pour ton travail.
Merci aussi à Chris pour sa proposition que je regarderai un peu plus en profondeur.
Bonne journée
Carlos