oguruma
XLDnaute Occasionnel
L'idée :
A partir de ceci :
obtenir ceci et quelque soit le nombre de compétences (donc nbr de colonnes supplémentaires qui seront créées) :
Pour cela une petite fonction :
Utilisation
A partir de ceci :
obtenir ceci et quelque soit le nombre de compétences (donc nbr de colonnes supplémentaires qui seront créées) :
Pour cela une petite fonction :
PowerQuery:
//----------------------------------------------------------------------------------------------
// Fonction permettant de splitter n'importe quelle colonne d'une table
// avec choix du séparateur et l'index des champs qui seront créés
// une option de nettoyage des colonnes en fin de traitement est aussi possible (par défaut)
//----------------------------------------------------------------------------------------------
let fnSplitDynamicColumns =(
pTable as any,
pFieldSplit as text,
optional ppDelim as text,
optional ppPrefixIndex as text,
optional pCleanUp as logical
) =>
let
Source = if pTable is table then
pTable
else Excel.CurrentWorkbook(){[Name=pTable]}[Content],
pDelim= if ppDelim is null then
","
else ppDelim,
pPrefixIndex=if ppPrefixIndex is null then
"_"
else ppPrefixIndex,
StrEval="each List.Count(Text.PositionOfAny([" & pFieldSplit & "],{pDelim},Occurrence.All))",
EvalListCount=Expression.Evaluate(StrEval,[List.Count=List.Count, Text.PositionOfAny=Text.PositionOfAny, pDelim=pDelim, Occurrence.All=Occurrence.All]),
TableDynamicColumnList =
List.Transform(
{1 ..
List.Max(Table.AddColumn(
Source,
"CustomedField",
EvalListCount
)[CustomedField]
) + 1
},
each pFieldSplit & pPrefixIndex & Text.From(_)
),
TableSplitColumnDelimiter =
Table.SplitColumn(
Source, pFieldSplit,
Splitter.SplitTextByDelimiter(pDelim, QuoteStyle.Csv),
TableDynamicColumnList
),
ListColumnNames=Table.ColumnNames(TableSplitColumnDelimiter),
isTbCleanUp = if pCleanUp is null or pCleanUp = true then
let
CleanColumnsTable = Table.TransformColumns(TableSplitColumnDelimiter, List.Transform(ListColumnNames, each {_, Text.Clean, type text} ) ),
TrimColumnsTable = Table.TransformColumns(CleanColumnsTable, List.Transform(ListColumnNames, each {_, Text.Trim, type text} ) )
in
TrimColumnsTable
else TableSplitColumnDelimiter
in
isTbCleanUp
in
fnSplitDynamicColumnsUtilisation
PowerQuery:
let
t= fnSplitDynamicColumns (
"TB_DATA",
"COMPETENCES",
",",
".",
null)
in
t
PowerQuery:
let
Source = fnSplitDynamicColumns("TB_DATA", "COMPETENCES", null, "#", false)
in
Source
Dernière édition:
