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

mapomme

XLDnaute Barbatruc

Supporter XLD

• 11 Août 2020

• #16

Re @job75

job75 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 11 Août 2020

• #17

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 11 Août 2020

• #18

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

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

VB:

    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 :

Code:

    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

 

Pièces jointes

• Nettoyer les plus petites chaines(4).xlsm

  104.1 KB · Affichages: 7

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 12 Août 2020

• #19

Bonjour @chris, @job75,

Merci à vous. Tout colle donc 😉

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

 

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

• 14 Août 2020

• #20

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

 

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

• 19 Août 2020

• #21

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

 

Pièces jointes

• Associer les plantes Job75 et Dranreb V1.xlsm

  113.4 KB · Affichages: 3

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Août 2020

• #22

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+

 

Pièces jointes

• Associer les plantes Job75 et Dranreb V1.xlsm

  112.4 KB · Affichages: 5

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

• 19 Août 2020

• #23

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

 

Vote positif 0 Vote négatif