Bonjour à tous,
Une contribution PowerQuery, que l'on peut ajouter à Excel 2013.
Dans le fichier : 2 exemples avec des codes différents mais donnant les mêmes résultats...
Version 1 :
let
Source = Excel.CurrentWorkbook(){[Name = "Tableau1"]}[Content],
AjtList = Table.AddColumn(Source, "List", each t_Soc[Société]),
ListDvlp = Table.ExpandListColumn(AjtList, "List"),
Condition = Table.AddColumn(
ListDvlp,
"Match",
each if Text.Contains([Société], [List]) then [List] else null
),
Filtre = Table.SelectRows(Condition, each ([Match] <> null))[
[Match],
[Date de départ],
[Date de fin],
[Critère]
]
in
Filtre
Version 2 :
let
Source = Excel.CurrentWorkbook(){[Name = "Tableau1"]}[Content],
Match = Table.AddColumn(
Source,
"Match",
each List.Select(t_Soc[Société], (x) => Text.Contains([Société], x))
)[[Match], [Date de départ], [Date de fin], [Critère]],
Dvlp = Table.ExpandListColumn(Match, "Match"),
Filtre = Table.SelectRows(Dvlp, each ([Match] <> null))
in
Filtre