Microsoft 365 Catégorisation

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 5 Mars 2024

• #2

Bonjour Martin,
Donnez nous un petit fichier test, ce sera plus simple.

 

Vote positif 0 Vote négatif

M

Martindu74400

XLDnaute Nouveau

• 5 Mars 2024

• #3

Re,

Avant tout, merci pour votre rapidité !

Oui effectivement c'est plus simple... J'ai mis en rouge un exemple des catégories que je souhaiterais associer, et dans l'idée, la liste des catégories pourrai se trouver dans une autre feuille du même fichier...

Merci d'avance,

 

Pièces jointes

• Test.xlsx

  10.4 KB · Affichages: 6

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 5 Mars 2024

• #4

Re,
Un essai en PJ avec la fonction perso fait en VBA :

VB:

Function Catégorie(C$)
Application.Volatile
For L = 1 To [Tableau1].Rows.Count
    If LCase(C) Like "*" & LCase([Tableau1].Item(L, 1)) & "*" Then
        Catégorie = [Tableau1].Item(L, 2)
        Exit Function
    End If
Next L
Catégorie = ""
End Function

La liste des items est dans la feuille Catégorie sous forme de tableau structuré pour simplifier la macro.

 

Pièces jointes

• Test.xlsm

  18.5 KB · Affichages: 3

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 5 Mars 2024

• #5

Bonjour Martindu74400, sylvanu,

Sur Excel 2019 et versions suivantes il existe la fonction JOINDRE.TEXTE.

Formule matricielle en C2 :

Code:

=JOINDRE.TEXTE(", ";VRAI;REPT(Tableau1[Catégorie];ESTNUM(CHERCHE(Tableau1[Libellé];[@Libellé]))))

Sur Microsoft 365 la validation matricielle par Ctrl+Maj+Entrée n'est pas nécessaire.

A+

 

Pièces jointes

• Test(1).xlsx

  14.1 KB · Affichages: 5

Vote positif 0 Vote négatif

M

Martindu74400

XLDnaute Nouveau

• 5 Mars 2024

• #6

Merci infiniment pour votre aide si précieuse !

 

Vote positif 0 Vote négatif