XL 2019 Tableau Power Query

[JHA]

Bonjour à tous,

Avez-vous la solution pour réaliser le tableau de droite sous Power Query, malgré mes essais je ne trouve pas la bonne solution.
Il faut que les séries se suivent par site.

Edit: changement fichier

JHA

 

[JHA]

Bonjour à tous,

Le tableau de droite était incomplet, je l'ai remplacé en #1

JHA

 

[Lolote83]

Bonjour @JHA,
Ne maitrisant très très très très peu PowerQuery, je me suis mis sur le sujet afin de comprendre si quelqu'un venait à répondre.
En l'absence actuelle de réponse, voici ma proposition en VBA.
Un peu tirée par les cheveux mais les deux tableaux finaux sont identiques.
@+ Lolote83

 

[JHA]

Bonjour à tous et @Lolote83 🙂

Je te remercie pour ton investissement sur ce sujet. Cette solution donne en effet le bon résultat.

Je reste à l'écoute pour une proposition Power Query qui me permettra d'avancer avec cet outil.

JHA

 

[Lolote83]

Re bonjour,
Merci pour le retour
Je reste également a l'écoute pour continuer et essayer d'apprendre encore plus PQ.
Bonne chance
@+ Lolote83

 

[JFL_XLD]

Bonjour à tous !

Une rapide approche Power Query :

 

[alexga78]

Bonjour JHA, JFL_Excel, Lolote83, le forum,

j'arrive trop tard ... ma proposition tout de même.

let
Source = Excel.CurrentWorkbook(){[Name="Base"]}[Content],
    ColName = Table.ColumnNames(Source),
    #"Grouped Rows" = Table.Group(Source, {"SITE"}, {{"AllData", each Table.AddIndexColumn(_,"Index",0)}}),
    #"Added Custom" = Table.Combine(Table.AddColumn(#"Grouped Rows", "Custom", each let
alldata = [AllData],
Next =  Table.AddColumn(alldata, "Next", each try Table.Column(alldata, ColName{5}){[Index] + 1} otherwise Table.Column(alldata, ColName{5}){[Index]}),
Result = Table.AddColumn(Next, "List", each {Table.Column(Next, ColName{5}){[Index]}..Table.Column(Next, "Next"){[Index]}-1} )
in Result)[Custom]),
    Result = let fct = (fnRec as record) as list => List.Transform({ColName{5}}, each {_, each if List.Count(fnRec[List]) > 0 then fnRec[List] else {_} }) in Table.ExpandListColumn(Table.SelectColumns(Table.FromRecords(Table.TransformRows(#"Added Custom", (Rec) => Record.TransformFields(Rec, fct(Rec)))), ColName), ColName{5})
in
    Result

Bonne fin de journée

 

[JHA]

Bonjour à tous,

Merci pour vos propositions, il ne me reste qu'à étudier et décortiquer tout cela.

JHA