Microsoft 365 POWERQUERY - ajouter des cellules par rapport à des colonnes

[Moi69]

Bonjour le Forum,

Je suis à la recherche d'une astuce me permettant d'ajouter des lignes et d'inscrire dans la cellules des données par rapport à la ligne du dessus et d'entête de colonne.
Un schéma valant mieux qu'un long discours, je vous ai mis en PJ le fichier.
L'onglet "BASE" contient des données fait à partir de powerquerry. Et je souhaiterait avoir automatiquement ce que j'ai mis dans l'onglet "RESULTAT" (que j'ai fait manuellement pour le moment).
Je ne sais pas si j'ai été assez clair, je reste à votre écoute si vous avez beoin de précision.
Par avance merci aux personnes qui se pencheront sur mon problème.

 

[Cousinhub]

Bonjour,
Avec ce code, tu devrais y arriver (sinon, tu reviens)

let
    Source = Excel.CurrentWorkbook(){[Name="Tableau2"]}[Content],
    UnPivot = Table.UnpivotOtherColumns(Source, {"TYPE"}, "Attribut", "Valeur"),
    RemplElement = Table.ReplaceValue(UnPivot,"ELEMENT","",Replacer.ReplaceText,{"Attribut"}),
    Fusion = Table.CombineColumns(RemplElement,{"TYPE", "Attribut"},Combiner.CombineTextByDelimiter("", QuoteStyle.None),"Fusionné")
in
    Fusion

Bon appétit

 

[Cousinhub]

Re-,
Et pour transformer en valeur numérique, insère/rajoute ces 2 lignes :

let
    Source = Excel.CurrentWorkbook(){[Name="Tableau2"]}[Content],
    UnPivot = Table.UnpivotOtherColumns(Source, {"TYPE"}, "Attribut", "Valeur"),
    RemplElement = Table.ReplaceValue(UnPivot,"ELEMENT","",Replacer.ReplaceText,{"Attribut"}),
    RemplEspace = Table.ReplaceValue(RemplElement," ","",Replacer.ReplaceText,{"Valeur"}),
    Fusion = Table.CombineColumns(RemplEspace,{"TYPE", "Attribut"},Combiner.CombineTextByDelimiter("", QuoteStyle.None),"Fusionné"),
    ModType = Table.TransformColumnTypes(Fusion,{{"Valeur", Currency.Type}})
in
    ModType

 

[chris]

Bonjour à tous
Une autre

let
    Source = Excel.CurrentWorkbook(){[Name="Tableau2"]}[Content],
    #"Supprimer le tableau croisé dynamique des autres colonnes" = Table.UnpivotOtherColumns(Source, {"TYPE"}, "Attribut", "Valeur"),
    #"Valeur remplacée" = Table.ReplaceValue(#"Supprimer le tableau croisé dynamique des autres colonnes","ELEMENT","",Replacer.ReplaceText,{"Attribut"}),
    #"Colonnes fusionnées" = Table.CombineColumns(#"Valeur remplacée",{"TYPE", "Attribut"},Combiner.CombineTextByDelimiter("", QuoteStyle.None),"TYPE"),
    #"Type modifié" = Table.TransformColumnTypes(#"Colonnes fusionnées",{{"Valeur", Currency.Type}})
in
    #"Type modifié"

Code modifié : je n'avais pas vu le voltage

 

[Moi69]

Bonjour
Je vais tester les solutions et je reviens vous dire ce qu'il en est.
Dans tous les cas merci

 

[Moi69]

Re

Re-,
Et pour transformer en valeur numérique, insère/rajoute ces 2 lignes :

let
    Source = Excel.CurrentWorkbook(){[Name="Tableau2"]}[Content],
    UnPivot = Table.UnpivotOtherColumns(Source, {"TYPE"}, "Attribut", "Valeur"),
    RemplElement = Table.ReplaceValue(UnPivot,"ELEMENT","",Replacer.ReplaceText,{"Attribut"}),
    RemplEspace = Table.ReplaceValue(RemplElement," ","",Replacer.ReplaceText,{"Valeur"}),
    Fusion = Table.CombineColumns(RemplEspace,{"TYPE", "Attribut"},Combiner.CombineTextByDelimiter("", QuoteStyle.None),"Fusionné"),
    ModType = Table.TransformColumnTypes(Fusion,{{"Valeur", Currency.Type}})
in
    ModType

Je n'arrive pas à insérer le code dans powerquery sachant qu'en VBA je suis nul :-(

 

[Moi69]

Bonjour à tous
Une autre

let
    Source = Excel.CurrentWorkbook(){[Name="Tableau2"]}[Content],
    #"Supprimer le tableau croisé dynamique des autres colonnes" = Table.UnpivotOtherColumns(Source, {"TYPE"}, "Attribut", "Valeur"),
    #"Colonnes supprimées" = Table.RemoveColumns(#"Supprimer le tableau croisé dynamique des autres colonnes",{"Attribut"}),
    #"Type modifié" = Table.TransformColumnTypes(#"Colonnes supprimées",{{"Valeur", Currency.Type}})
in
    #"Type modifié"

Re,
je ne comprends pas la code car je n'ai pas de TCD

 

[JHA]

Bonjour à tous,

C'est une requête power query.

Ci-joint le fichier pour t'aider.

JHA

 

[Moi69]

Bonjour

Désolé pour cette réponse tardive, un petit souci qui m'a pris plus de temps que prévu...
En tout cas, merci ça fonctionne. Je vais me pencher sur son fonctionnement car j'ai souvent besoin de ce type de mouvement.
Un grand merci

 

[chris]

Je n'arrive pas à insérer le code dans powerquery sachant qu'en VBA je suis nul :-(

je ne comprends pas la code car je n'ai pas de TCD

Tu avais titré ton post POWERQUERY donc bhbh comme moi avons pensé que tu connaissais...

 

[Moi69]

Tu avais titré ton post POWERQUERY donc bhbh comme moi avons pensé que tu connaissais...

Coucou
Je connais mais comme je débute... ;-)