XL 2019 Recherche mots dans cellule et résultat dans cellule avec séparateur

jurassic pork à dit:

Hello,
... on peut aussi facilement prendre en compte plusieurs types de séparateurs ( espace, virgule, point-virgule, point) en remplaçant dans sa requête PowerQuery T_Final le Text.Split par un Splitter.SplitTextByAnyDelimiter
Exemple :

PowerQuery:

Intersect = Table.AddColumn(TypeText, "Mots_Cles",
                each List.Intersect({Splitter.SplitTextByAnyDelimiter({" ",",",";","."})([nombre]),
                T_Liste[Liste]})),

Ami calmant, J.P

Cliquez pour agrandir...

1. Mot est le mot au sein duquel on recherche les catégories
2. rangeDico est la plage où se trouvent les codes. C'est un range. Cette plage peut contenir des cellules vides ou avec seulement des espaces. De telles cellules seront ignorées.
3. sansDoublon est un paramètre optionnel. Si cet argument est absent alors la liste résultat peut contenir des doublons. Si cet argument est présent alors la liste résultat ne comprendra pas les doublons.

• on trouve un bouton pour remplir en une seule fois la colonne T avec possibilité de choisir avec ou sans doublon
• une formule en colonne U pour une liste avec doublon
• une formule en colonne V pour une liste sans doublon

Function ListeCat(ByVal Mot, rangeDico As Range, Optional sansDoublon)
Const separ = " !""#$€%&'()*+,-./:;<=>?@[\]{|}¤"
Dim cat, lencat&, i&, x, r
   ListeCat = Empty: Mot = " " & Mot & " "
   For Each cat In rangeDico.Value
      If Len(Trim(cat)) > 0 Then
         lencat = Len(Trim(cat))
         For i = 2 To Len(Mot) - 1
            x = Mid(Mot, i, lencat)
            If x = cat Then
               If InStr(separ, Mid(Mot, i - 1, 1)) * InStr(separ, Mid(Mot, i + lencat, 1)) <> 0 Then
                  r = r & "|" & cat
                  If Not IsMissing(sansDoublon) Then Exit For
                  i = i + lencat
               End If
            End If
         Next i
      End If
   Next cat
   ListeCat = Mid(r, 2)
End Function

If L Then For i = 1 To L: txt = Replace(txt, Mid(exclu, i, 1), " "): Next i

Les signes de ponctuation simples sont : la virgule , le point . les points de suspension ...
Règle en français : Pas d'espace avant, une espace après
Les signes de ponctuation doubles sont : le point-virgule ; les deux points : le point d'exclamation ! le point d'interrogation ? les tirets - ... - (à ne pas confondre avec le tiret des mots composés alors sans espace)
Règle en français : Une espace avant, une espace après sauf pour le point-virgule où l'espace est facultative.
et pourquoi une espace : On peut utiliser le mot espace au féminin ou au masculin quand il est employé au sens de « blanc entre deux mots » et qu’il n’est pas suivi d’un adjectif :
Exemples : Il faut mettre une espace devant le deux-points. Ajoutez un espace entre ces deux mots.
Par contre, quand espace est suivi d’un adjectif, comme dans les expressions espace fine ou espace insécable, on l’emploie toujours au féminin.

Cliquez pour agrandir...

jurassic pork à dit:

mais il y a un cas de figure où le code risque de ne pas fonctionner : le cas où il n'y a pas d'espace entre un séparateur autre que l'espace et le mot suivant

Cliquez pour agrandir...