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

Moi69 · 24 Mars 2023

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 · 24 Mars 2023

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

VB:

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 · 24 Mars 2023

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

VB:

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 · 24 Mars 2023

Bonjour à tous
Une autre

VB:

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 · 24 Mars 2023

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

Moi69 · 24 Mars 2023

Re

bhbh à dit:

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

VB:

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 · 24 Mars 2023

chris à dit:

Bonjour à tous
Une autre

VB:

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 · 24 Mars 2023

Bonjour à tous,

C'est une requête power query.

Ci-joint le fichier pour t'aider.

JHA

Moi69 · 5 Avril 2023

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 · 5 Avril 2023

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

Moi69 à dit:
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 · 15 Avril 2023

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

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

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

Moi69

XLDnaute Occasionnel

Pièces jointes

Cousinhub

XLDnaute Barbatruc

Cousinhub

XLDnaute Barbatruc

chris

XLDnaute Barbatruc

Moi69

XLDnaute Occasionnel

Moi69

XLDnaute Occasionnel

Moi69

XLDnaute Occasionnel

JHA

XLDnaute Barbatruc

Pièces jointes

Moi69

XLDnaute Occasionnel

chris

XLDnaute Barbatruc

Moi69

XLDnaute Occasionnel

Discussions similaires