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

XLDnaute Impliqué
Supporter XLD
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
 

Pièces jointes

  • Nettoyer les plus petites chaines.xlsx
    138.9 KB · Affichages: 21

job75

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

carlos

XLDnaute Impliqué
Supporter XLD
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

job75

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

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 925
Membres
101 841
dernier inscrit
ferid87