Power Query PowerQuery - Passer d'une liste1 à liste2 pour apprendre !!!!

Lolote83 · Hier à 11:35

Bonjour à tous,
Toujours dans le souci d'apprendre à utiliser PowerQuery, je voudrais savoir s'il est possible de passer de la liste1 à la liste2
Ci-joint une copie d'écran. Je ne pense pas qu'un fichier soit réellement nécessaire.
Merci à toutes et à tous par avance

Cordialement
Lolote83

alexga78 · Hier à 13:40

Bonjour @Lolote83, le forum,

2 propositions

PowerQuery:

let
A = Table.ToList(Excel.CurrentWorkbook(){[Name="Table1"]}[Content]),
B = List.TransformMany(List.Intersect({A, List.Transform(A, Text.Upper)}), each List.FindText(A, Text.Proper(Text.Range(_,0,3))),(x,y)=> {x,y}),
C = Table.FromRows(B, {"Type", "Liste"})
in C

PowerQuery:

let
A = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
B = Table.RenameColumns(A, {Table.ColumnNames(A){0}, "TYPE"}),
C = (x)=> Text.Upper(Text.Range(x,0,3)),
D = Table.Group(B, "TYPE", {"x", each Table.Skip(_)}, 0, (x,y)=> Value.Compare(C(x),C(y))),
E = Table.ExpandTableColumn(D, "x", {"TYPE"}, {"Liste"})
in E

Bonne journée à tous

wDog66 · Hier à 12:14

Bonjour Lolote83

Pour moi, non !
dans votre présentation rien ne peut indiquer a PQ qu'il faut mettre la cellule colorée en titre 🤔

Lolote83 · Hier à 13:15

Bonjoru @wDog66 ,
Merci pour ta réponse. J'avais simplement mis les couleurs afin que ce soit plus parlant pour les explications. Dans le fichier d'origine, aucune couleur n'est présente. Désolé, j'aurais dû le préciser au départ
Cordialement
Lolote83

wDog66 · Hier à 13:24

Lolote83 à dit:
Bonjoru @wDog66 ,
Merci pour ta réponse. J'avais simplement mis les couleurs afin que ce soit plus parlant pour les explications. Dans le fichier d'origine, aucune couleur n'est présente. Désolé, j'aurais dû le préciser au départ
Cordialement
Lolote83

Re,
Ca ne change rien à la problématique !
Rien en l'état n'indique que telle ou telle cellule doit être reprise en entête, à moins que vous ayez d'autres colonnes à gauche ou à droite 🤔

alexga78 · Hier à 13:40

Bonjour @Lolote83, le forum,

2 propositions

PowerQuery:

let
A = Table.ToList(Excel.CurrentWorkbook(){[Name="Table1"]}[Content]),
B = List.TransformMany(List.Intersect({A, List.Transform(A, Text.Upper)}), each List.FindText(A, Text.Proper(Text.Range(_,0,3))),(x,y)=> {x,y}),
C = Table.FromRows(B, {"Type", "Liste"})
in C

PowerQuery:

let
A = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
B = Table.RenameColumns(A, {Table.ColumnNames(A){0}, "TYPE"}),
C = (x)=> Text.Upper(Text.Range(x,0,3)),
D = Table.Group(B, "TYPE", {"x", each Table.Skip(_)}, 0, (x,y)=> Value.Compare(C(x),C(y))),
E = Table.ExpandTableColumn(D, "x", {"TYPE"}, {"Liste"})
in E

Bonne journée à tous

Lolote83 · Hier à 14:50

alexga78 à dit:

Bonjour @Lolote83, le forum,

2 propositions

PowerQuery:

let
A = Table.ToList(Excel.CurrentWorkbook(){[Name="Table1"]}[Content]),
B = List.TransformMany(List.Intersect({A, List.Transform(A, Text.Upper)}), each List.FindText(A, Text.Proper(Text.Range(_,0,3))),(x,y)=> {x,y}),
C = Table.FromRows(B, {"Type", "Liste"})
in C

PowerQuery:

let
A = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
B = Table.RenameColumns(A, {Table.ColumnNames(A){0}, "TYPE"}),
C = (x)=> Text.Upper(Text.Range(x,0,3)),
D = Table.Group(B, "TYPE", {"x", each Table.Skip(_)}, 0, (x,y)=> Value.Compare(C(x),C(y))),
E = Table.ExpandTableColumn(D, "x", {"TYPE"}, {"Liste"})
in E

Bonne journée à tous

Bonjour @alega78,
Voilà encore de quoi en apprendre sur PowerQuery.
Je vais essayer de décortiquer ce code afin d'encore plus m'approprier l'outils.
Bravo
@+ Lolote83

JHA · Hier à 15:56

Bonjour à tous,

Mon niveau power query est très faible mais en ajoutant un tableau avec les groupes, on peut arriver à la solution.

JHA

Lolote83 · Hier à 16:01

Re bonjour à tous.

J'ai essayé sur mon tableau réel, mais cela ne fonctionne pas. Je ne pensais pas que les données telles que je les ai écrites dans la copie du post#1 avaient une importance.
Ici, les listes sont des adresses mails.
Donc voici un fichier beaucoup plus représentatif du réel et en appliquant les solutions 1 et 2 de @alexga78 , je ne retrouve pas ce que je veux.

3 onglets :
- TEST_REEL avec la base originale et le résultat souhaité
- REQ_Exemple1 avec le résultat de la requête basé sur l'exemple 1
- REQ_Exemple2 avec le résultat de la requête basé sur l’exemple 2
Merci à vous tous par avance

Le temps de finir d'écrire, JHA est arrivé. Donc bonjour JHA. Je regarde
Cordialement
Lolote83

Lolote83 · Hier à 16:14

Re bonjour,

Merci @JHA,
Avec ta solution de création du groupe et le fusionnement des deux tables, cela fonctionne même sur ma base mail.
J'attends éventuellement une réponse de @alexga78 afin de voir si avec une base telle que définie dans le post#8 et ses solutions, cela reste possible.
Merci, merci merci.
J'en apprends tous les jours grâce à vous.

Cordialement
Lolote83

ALS35 · Hier à 16:22

Bonjour à tous,
Pour se lancer dans PowerQuery et beaucoup moins pointu qu'alexga78, mais qui semble fonctionner

PowerQuery:

let
    Source = Excel.CurrentWorkbook(){[Name="Tab_Mail"]}[Content],
    Typer = Table.TransformColumnTypes(Source,{{"Mail", type text}}),
    AjoutCol = Table.AddColumn(Typer, "Groupe", each if Text.Contains([Mail], "@") then null else [Mail]),
    Remplir = Table.FillDown(AjoutCol,{"Groupe"}),
    Filtrer = Table.SelectRows(Remplir, each Text.Contains([Mail], "@")),
    Réorganiser = Table.ReorderColumns(Filtrer,{"Groupe", "Mail"})
in
    Réorganiser

Cordialement

alexga78 · Hier à 16:32

Re

les premiers codes prenait en compte les 3 premiers caractères: avec les données réelles cela ne fonctionne pas.

à tester

PowerQuery:

let
A = Table.RenameColumns(Excel.CurrentWorkbook(){[Name="Tab_Mail"]}[Content], {"Mail", "Groupe"}),
B = Table.Group(A, "Groupe", {"Mail", each List.Skip([Groupe])}, 0, (x,y)=> Byte.From( Text.Contains(y, "enseignants"))),
C = Table.ExpandListColumn(B, "Mail")
in C

Power Query PowerQuery - Passer d'une liste1 à liste2 pour apprendre !!!!

Lolote83

XLDnaute Barbatruc

alexga78

wDog66

XLDnaute Impliqué

Lolote83

XLDnaute Barbatruc

wDog66

XLDnaute Impliqué

alexga78

XLDnaute Occasionnel

Lolote83

XLDnaute Barbatruc

JHA

XLDnaute Barbatruc

Pièces jointes

Lolote83

XLDnaute Barbatruc

Pièces jointes

Lolote83

XLDnaute Barbatruc

ALS35

XLDnaute Impliqué

alexga78

XLDnaute Occasionnel

Discussions similaires

Power Query PowerQuery - Passer d'une liste1 à liste2 pour apprendre !!!!

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency