Transposer en colonnes des blocs de données en lignes - via PowerQuery

let
    //======================================================================================================================
    // Auteur : OGURUMA
    // Dégroupage en colonne d'un bloc de données en ligne
    //======================================================================================================================
 
    //======================================================================================================================
    // Quelle est la source des données
    // changer la valeur de au besoin
    // Name="Tableau1" ==> peut-être obtenu par un passage de paramètres
    //======================================================================================================================
    Source = Excel.CurrentWorkbook(){[Name="Tableau1"]}[Content],

    //======================================================================================================================
    // Les modifications de types ne sont peut-être pas nécessaire. A voir selon les besoins
    //======================================================================================================================
    #"Type modifié" = Table.TransformColumnTypes(Source,{{"Rubriques", type text}, {"Informations", type any}}),

    //======================================================================================================================
    // Création des colonnes conditionnelles qui constitueront les données du tableau dégroupé
    // Ici on crée les colonnes nécessaires qui seront retenues
    // A adapter selon les rubriques présentes
    // Le tableau initial contient là-ici deux colonnes Rubriques et Informations - à adapter selon la source
    //======================================================================================================================
    CODE_ARTICLE = Table.AddColumn(#"Type modifié", "CODE_ARTICLE", each if [Rubriques] = "CODE_ARTICLE" then [Informations] else null),
    ENTREPOT = Table.AddColumn(CODE_ARTICLE, "ENTREPOT", each if [Rubriques] = "ENTREPOT" then [Informations] else null),
    STOCK_MAXI = Table.AddColumn(ENTREPOT, "STOCK_MAXI", each if [Rubriques] = "STOCK_MAXI" then [Informations] else null),
    STOCK_MINI = Table.AddColumn(STOCK_MAXI, "STOCK_MINI", each if [Rubriques] = "STOCK_MINI" then [Informations] else null),
    STOCK_ACTUEL = Table.AddColumn(STOCK_MINI, "STOCK_ACTUEL", each if [Rubriques] = "STOCK_ACTUEL" then [Informations] else null),
    EN_COMMANDE = Table.AddColumn(STOCK_ACTUEL, "EN_COMMANDE", each if [Rubriques] = "EN COMMANDE" then [Informations] else null),
    GESTIONNAIRE = Table.AddColumn(EN_COMMANDE, "GESTIONNAIRE", each if [Rubriques] = "GESTIONNAIRE" then [Informations] else null),

    //======================================================================================================================
    // On aligne les données
    //======================================================================================================================
    REMPLI_VERS_HAUT = Table.FillUp(GESTIONNAIRE,{"ENTREPOT", "STOCK_MAXI", "STOCK_MINI", "STOCK_ACTUEL", "EN_COMMANDE", "GESTIONNAIRE"}),

    //======================================================================================================================
    // On se débarrase des valeurs nulles qui occasionne le décalage
    //======================================================================================================================
    SUPPR_NULL = Table.SelectRows(REMPLI_VERS_HAUT, each ([CODE_ARTICLE] <> null)),
 
    //======================================================================================================================
    // Les colonnes de référence qui ont permi la ventilation des données ne servent plus
    // Les colonnes à conserver seront à adapter selon la source
    // Ici on conserve les colonnes conditionnelles crées
    //======================================================================================================================
    SUPPR_COL_REFERENCE = Table.SelectColumns(SUPPR_NULL,{"CODE_ARTICLE", "ENTREPOT", "STOCK_MAXI", "STOCK_MINI", "STOCK_ACTUEL", "EN_COMMANDE", "GESTIONNAIRE"})
in
    SUPPR_COL_REFERENCE

let
    Source = Excel.CurrentWorkbook(){[Name="Tableau1"]}[Content],
    RenameColumns = Table.RenameColumns(Source,{{"Rubriques", "Name"}, {"Informations", "Value"}}),
    SplitTable = Table.Split(RenameColumns, List.Count(List.Distinct(RenameColumns[Name]))),
    ConvertToRecord = List.Transform(SplitTable, Record.FromTable),
    ToTable = Table.FromRecords(ConvertToRecord)
in
    ToTable

let
    Source = Excel.CurrentWorkbook(){[Name="Tableau1"]}[Content],
    Transpose = Table.FromRows(List.Split(Source[Informations],List.Count(List.Distinct(Source[Rubriques]))), List.Distinct(Source[Rubriques]))
in
    Transpose

let
    Source = Excel.CurrentWorkbook(){[Name="Tableau1"]}[Content],
    Col = List.Distinct(Source[Rubriques]),
    Nb = List.Count(Col),
    Split = List.Split(Source[Informations],Nb),
    From = Table.FromRows(Split,Col)
in
    From

let

    //=================================================================================================
    // Auteur : Oguruma2D
    // Forum  : https://excel-downloads.com/
    // Objet  : Adaptation du code de mromain (XLD) afin que la requête soit dynamique
    //=================================================================================================

    // ---------------------------------------------------------------------------
    // Paramètres pour gérer la requête en fonction du contexte des données source
    // ---------------------------------------------------------------------------
    TbSource=getParameters("TB_PARAMS", "PARAM_TB_SOURCE"),
    ColonneTitre=getParameters("TB_PARAMS", "PARAM_COLONNE_TITRE"),
    LabelEtiquette=getParameters("TB_PARAMS", "PARAM_TITRE_ETIQUETTE"),
    LabelValeur=getParameters("TB_PARAMS", "PARAM_TITRE_VALEUR"),
    LabelEtiquetteDefault=getParameters("TB_PARAMS", "PARAM_DEFAULT_COLUMN_1"),
    LabelValeurDefault=getParameters("TB_PARAMS", "PARAM_DEFAULT_COLUMN_2"),
    Etiquette=if ColonneTitre = "OUI" then LabelEtiquette else LabelEtiquetteDefault,
    Valeur=if ColonneTitre = "OUI" then LabelValeur else LabelValeurDefault,

    //=================================================================================================
    // Auteur : mromain
    // Forum  : https://excel-downloads.com/
    // Objet  : Reprise du code en l'état avec remplacement par les paramètres en début de requête
    // Params : TbSource, Etiquette, Valeur
    //=================================================================================================
    Source = Excel.CurrentWorkbook(){[Name=TbSource]}[Content],
    RenameColumns = Table.RenameColumns(Source,{{Etiquette, "Name"}, {Valeur, "Value"}}),
    SplitTable = Table.Split(RenameColumns, List.Count(List.Distinct(RenameColumns[Name]))),
    ConvertToRecord = List.Transform(SplitTable, Record.FromTable),
    ToTable = Table.FromRecords(ConvertToRecord)
in
    ToTable

let

    //=================================================================================================
    // Auteur : Oguruma2D
    // Forum  : https://excel-downloads.com/
    // Objet  : Ceci fait suite au post à propos du dégroupage de lignes en colonnes
    //=================================================================================================

    //-------------------------------------------------------------------------------------------------
    // On récupère les paramètres du fichier source à importr
    // puis si ce fichier source comporte des titres de colonnes
    //-------------------------------------------------------------------------------------------------
    FichierSource=getParameters("TB_PARAMS", "PARAM_FICHIER_SOURCE"),
    ColonneTitre=getParameters("TB_PARAMS", "PARAM_COLONNE_TITRE"),   

    Source = Csv.Document(File.Contents(FichierSource),[Delimiter=";", Columns=2, Encoding=65001, QuoteStyle=QuoteStyle.None]),
    Promote = if ColonneTitre ="OUI" then Table.PromoteHeaders(Source, [PromoteAllScalars=true]) else Source
in
    Promote