Discussion :

[Goube]

Bonsoir à tous,

Je me posais la question de savoir s'il était possible de regrouper, pour simplification, les étapes Regroupement par catégorie & Personnalisé1 de la requête Depart1 du fichier joint.

S'il y a d'autres simplifications, je suis preneur.
D'avance merci pour vos lumières.

Cordialement.

requetes-classement.xlsx

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
let
    Source = Excel.CurrentWorkbook(){[Name="Depart1"]}[Content],
    #"Autres colonnes supprimées" = Table.SelectColumns(Source,{"Nom", "Club", "Catégorie", "Score", "10+", "10", "9", "Code"}),
    #"Lignes filtrées" = Table.SelectRows(#"Autres colonnes supprimées", each ([Nom] <> "" and [Nom] <> " ")),
    #"Regroupement par catégorie" = Table.Group(#"Lignes filtrées", {"Catégorie"}, {{"Partition", each Table.AddIndexColumn(_,"Index",1,1), type table}}),
    Personnalisé1 = Table.AddColumn(#"Regroupement par catégorie", "P1", each Table.AddIndexColumn(Table.Sort([Partition],{{"Score",Order.Descending}}),"Rang",1,1)),
    #"P1 développé" = Table.ExpandTableColumn(Personnalisé1, "P1", {"Nom", "Club", "Score", "10+", "10", "9", "Code", "Index", "Rang"}, {"Nom", "Club", "Score", "10+", "10", "9", "Code", "Index", "Rang"}),
    #"Colonnes supprimées" = Table.RemoveColumns(#"P1 développé",{"Partition"}),
    #"Requête ajoutée" = Table.Combine({#"Colonnes supprimées", Catégories}),
    #"Lignes triées1" = Table.Sort(#"Requête ajoutée",{{"Code", Order.Ascending}, {"Rang", Order.Ascending}}),
    #"Colonne conditionnelle ajoutée" = Table.AddColumn(#"Lignes triées1", "Catégorie ", each if [Rang] = 0 then [Catégorie] else null),
    #"Colonnes permutées" = Table.ReorderColumns(#"Colonne conditionnelle ajoutée",{"Catégorie ", "Catégorie", "Nom", "Club", "Score", "10+", "10", "9", "Code", "Index", "Rang"}),
    #"Autres colonnes supprimées1" = Table.SelectColumns(#"Colonnes permutées",{"Catégorie ", "Nom", "Club", "Score", "10+", "10", "9", "Rang"}),
    #"Type modifié" = Table.TransformColumnTypes(#"Autres colonnes supprimées1",{{"Catégorie ", type text}, {"Nom", type text}, {"Club", type text}, {"Score", Int64.Type}, {"10+", Int64.Type}, {"10", Int64.Type}, {"9", Int64.Type}, {"Rang", Int64.Type}})
in
    #"Type modifié"

[78chris]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
let
    Source = Excel.CurrentWorkbook(){[Name="Depart1"]}[Content],
    #"Autres colonnes supprimées" = Table.SelectColumns(Source,{"Nom", "Club", "Catégorie", "Score", "10+", "10", "9", "Code"}),
    #"Lignes filtrées" = Table.SelectRows(#"Autres colonnes supprimées", each ([Nom] <> "" and [Nom] <> " ")),
    #"Regroupement par catégorie" = Table.Group(#"Lignes filtrées", {"Catégorie"}, {{"Partition", each Table.AddIndexColumn(_,"Rang",1,1), type table}}),
    #"Partition développé" = Table.ExpandTableColumn(#"Regroupement par catégorie", "Partition", {"Nom", "Club", "Score", "10+", "10", "9", "Code",  "Rang"}, {"Nom", "Club", "Score", "10+", "10", "9", "Code", "Rang"}),
    #"Requête ajoutée" = Table.Combine({#"Partition développé", Catégories}),
    #"Lignes triées1" = Table.Sort(#"Requête ajoutée",{{"Code", Order.Ascending}, {"Rang", Order.Ascending}}),
    #"Valeur remplacée" = Table.ReplaceValue(#"Lignes triées1",each [Catégorie],each if [Rang]=0 then [Catégorie] else null,Replacer.ReplaceValue,{"Catégorie"}),
    #"Autres colonnes supprimées1" = Table.SelectColumns(#"Valeur remplacée",{"Catégorie", "Nom", "Club", "Score", "10+", "10", "9", "Rang"}),
    #"Type modifié" = Table.TransformColumnTypes(#"Autres colonnes supprimées1",{{"Catégorie", type text}, {"Nom", type text}, {"Club", type text}, {"Score", Int64.Type}, {"10+", Int64.Type}, {"10", Int64.Type}, {"9", Int64.Type}, {"Rang", Int64.Type}})
in
    #"Type modifié"

[Goube]

Bonsoir Chris,

Merci pour la proposition, mais le classement par catégorie ne se fait plus. Voir la catégorie S1HCL par exemple.

Cordialement.

[78chris]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
let
    Source = Excel.CurrentWorkbook(){[Name="Depart1"]}[Content],
    #"Autres colonnes supprimées" = Table.SelectColumns(Source,{"Nom", "Club", "Catégorie", "Score", "10+", "10", "9", "Code"}),
    #"Lignes filtrées" = Table.SelectRows(#"Autres colonnes supprimées", each ([Nom] <> "" and [Nom] <> " ")),
    #"Lignes triées" = Table.Sort(#"Lignes filtrées",{{"Catégorie", Order.Ascending}, {"Score", Order.Descending}}),
    #"Index ajouté" = Table.AddIndexColumn(#"Lignes triées", "Index", 0, 1, Int64.Type),
    #"Regroupement par catégorie" = Table.Group(#"Index ajouté", {"Catégorie"}, {{"Partition", each Table.AddIndexColumn(_,"Rang",1,1), type table}}),
    #"Partition développé" = Table.ExpandTableColumn(#"Regroupement par catégorie", "Partition", {"Nom", "Club", "Score", "10+", "10", "9", "Code", "Index", "Rang"}, {"Nom", "Club", "Score", "10+", "10", "9", "Code", "Index", "Rang"}),
    #"Requête ajoutée" = Table.Combine({#"Partition développé", Catégories}),
    #"Lignes triées1" = Table.Sort(#"Requête ajoutée",{{"Code", Order.Ascending}, {"Rang", Order.Ascending}, {"Index", Order.Ascending}}),
    #"Valeur remplacée" = Table.ReplaceValue(#"Lignes triées1",each [Catégorie],each if [Rang]=0 then [Catégorie] else null,Replacer.ReplaceValue,{"Catégorie"}),
    #"Autres colonnes supprimées1" = Table.SelectColumns(#"Valeur remplacée",{"Catégorie", "Nom", "Club", "Score", "10+", "10", "9", "Rang"}),
    #"Type modifié" = Table.TransformColumnTypes(#"Autres colonnes supprimées1",{{"Catégorie", type text}, {"Nom", type text}, {"Club", type text}, {"Score", Int64.Type}, {"10+", Int64.Type}, {"10", Int64.Type}, {"9", Int64.Type}, {"Rang", Int64.Type}})
in
    #"Type modifié"

[Goube]

Bonsoir Chris,

Merci pour la requête, cette façon de faire me convient tout à fait.
Bonne continuation,
Cordialement.