Power Query PQ_Cumul durée et modification type sur nombre inconnu de colonnes

mromain

XLDnaute Barbatruc

• 25 Février 2023

• #2

Bonjour bhbh, le forum,

Tu peux essayer ce code :

Code:

let
    Source = Excel.CurrentWorkbook(){[Name="T_Data"]}[Content],
    ModType = Table.TransformColumnTypes(Source, List.Transform(List.RemoveFirstN(Table.ColumnNames(Source),1), each {_, type duration})),
    AjoutColonneTotal = Table.AddColumn(ModType, "Total", each List.Sum(List.RemoveFirstN(Record.ToList(_), 1)), type duration)
in
    AjoutColonneTotal

A+

 

Vote positif 0 Vote négatif

Solution

Cousinhub

XLDnaute Barbatruc

Inactif

• 25 Février 2023

• #3

Bonjour mromain,
Et merci pour ce code qui fonctionne parfaitement.
Il est bizarre que l'éditeur ne propose pas l'addition des colonnes typées "duration" dans le ruban "Ajouter une colonne", alors que List.Sum permet de le faire...
Le principal, c'est que cela fonctionne, et c'est le cas
Merci encore

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 25 Février 2023

• #4

Hello @bhbh

Pour le changement de type :

= Table.TransformColumnTypes(Source ,let Colonnes = List.Skip(Table.ColumnNames(Source),1) in List.Zip({Colonnes,List.Transform(Colonnes,each Duration.Type)}))

Cliquez pour agrandir...

Et pour la colonne Total de la ligne :

= Table.AddColumn(ModType, "Total", each List.Sum(List.Skip(Record.FieldValues(_),1)),type duration)

Cliquez pour agrandir...

Et voilà

[Edition] vu le temps écoulé entre nos messages, je me demande pourquoi je n'ai pas vu vos derniers, lorsque j'ai ouvert ce fil la première fois ?! Etrange... [/Edition]

 

Pièces jointes

• bh² Exemple Cumul durée.xlsx

  19.5 KB · Affichages: 9

Dernière édition: 25 Février 2023

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

Inactif

• 25 Février 2023

• #5

Hi,
2 solutions pour le prix d'une, "What Else?"
Merci aussi, et bonne journée

 

Vote positif 0 Vote négatif

mromain

XLDnaute Barbatruc

• 27 Février 2023

• #6

Bonjour à tous,

Merci Hasco pour ta proposition.
Elle m'a permis de découvrir la fonction Record.FieldValues. Cette dernière semble faire exactement la même chose que Record.ToList.

Record.FieldValues
Record.ToList

C'est étrange...
Voyez-vous une différence ?

A+

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 27 Février 2023

• #7

Bonjour @mromain

Je ne connais aucune différence entre les deux. Dans le petit monde des développeurs MS il court l'idée que deux développeurs auraient pondu l'une et l'autre sans savoir ce que leur confrère faisait. Faut-il s'y fier ????

Personnellement j'utilise de préférence Record.FieldValues parce que son nom est explicite. Qu'avec Record.ToList on ne sait à quoi s'attendre. Un nom sonne comme une propriété l'autre comme une méthode.

Cordialement

 

Dernière édition: 27 Février 2023

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

Inactif

• 27 Février 2023

• #8

Bonjour,
Comment ça?

Hasco à dit:

Dans le petit monde des développeurs MS il court l'idée que deux développeurs auraient pondue l'une et l'autre sans savoir ce que leur confrère faisait

Cliquez pour agrandir...

Il y aurait plusieurs développeurs, chez MS?
En tout cas, merci pour ces précisions

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 27 Février 2023

• #9

Arf...Au moins 2 mais ça aussi c'est un bruit... qui court

 

Vote positif 0 Vote négatif

A

Amilo

XLDnaute Accro

• 27 Février 2023

• #10

Bonsoir à tous,

Une autre proposition Power query pour le fun,

VB:

let
    Source = Excel.CurrentWorkbook(){[Name="T_Data"]}[Content],
    #"Type modifié" = Table.TransformColumns(Source,{{"Personnel", Text.From}}, Duration.From),
    Total = Table.AddColumn(#"Type modifié", "Total", each List.Sum(List.Range(Record.ToList(_),1)), type duration)
in
    Total

Sinon, effectivement je ne vois pas de différence non plus entre Record.FielValue et Record.ToList
Ces 2 fonctions sont très similaires.

Cordialement

 

Pièces jointes

• Exemple Cumul durée.xlsx

  19 KB · Affichages: 5

Dernière édition: 27 Février 2023

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

Inactif

• 28 Février 2023

• #11

Bonjour,
Merci pour cette nouvelle proposition, qui, d'après ce que je comprends, tire entièrement profit de la fonction :

VB:

Table.TransformColumns

Merci, et bonne journée

 

Vote positif 0 Vote négatif