Discussion :

[ZibOne]

Bonjour,

je suis bloqué sur l'exemple attaché : j'essaie de faire un tableau clean avec for each mais je n'arrive pas à aboutir au deuxième tableau..
j'ai bien vu des exemples mais.. je tourne ..en boucle.. sorry

je fais partir i de 1 à 10 dans mon exemple, j de 1 à 5 et z est mon end(xldown)-1 depuis la cellule (i,j)

Code :

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

1
2
3
4
5
6
7
8
9
   Selection = sheets("ta_initial").range(Cells(i, j), Cells(Z, j))
 
        For Each cellule In Selection
 
        memoire = memoire & cellule
 
        Next cellule
 
    Sheets("final_tab").Cells(b + 1, j) = memoire

(avec b indicateur de ligne de ma dernière cellule non vide dans la feuille "final_tab")

je vous remercie encore pour le coup de main !

[Raccourcix]

Bonjour

Pourquoi en VBA, ça se fait en 3 étapes dans Power Query

Code :

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

1
2
3
4
5
6
let
    Source = Excel.CurrentWorkbook(){[Name="Tableau1"]}[Content],
    #"Rempli vers le bas" = Table.FillDown(Source,{"champ 1"}),
    #"Lignes groupées" = Table.Group(#"Rempli vers le bas", {"champ 1"}, {{"champ 2", each Text.Combine([champ2]), type nullable text}, {"champ 3", each Text.Combine([champ 3]), type nullable text}, {"champ 4", each Text.Combine([champ 4]), type nullable text}, {"champ 5", each Text.Combine([champ 5]), type nullable text}})
in
    #"Lignes groupées"

Stéphane

[ZibOne]

Bonsoir Stéphane,

ca me rappelle ma vieille macro de dépivotage du coup.. pas de mystère : vive la pratique !

merci beaucoup, j'ai tenté mais pas encore réussi mais je vois désormais l'idée, je te remercie beaucoup

Excellente soirée

[Raccourcix]

Bonjour

la fonction Text.Combine n'est pas proposée directement dans la fenêtre de regroupement.
Il faut choisir par exemple la somme, cela renverra un erreur (somme de texte) puis modifier directement dans la formule le List.Sum par Text.Combine

Stéphane

[ZibOne]

je suis embêté : je n'arrive pas à générer le code d'un bloc et quand je le fais mano cela ne fonctionne pas

lorsque je fais le "Group by" => cela ne génère qu'une seule fois la fonction "sum" (destinée à devenir Text.Combine)

je comprends qu'il s'agit de sélectionner l'ensemble des colonnes (dont colonne champ 1) et de les grouper par somme pour changer la fonction par la suite et ceci après avoir "filled down" la première colonne

je vais retenter mais me demande si cela ne tiendrait pas au fait que mon tableau ressemble plus précisément à cette v2 (données des colonnes supplémentaires sur la première des lignes que je voudrais regrouper sur la base du champ 1).. auquel cas sélectionner toutes les colonnes et pas seulement celles des intitulés de champ .?

au final, j'ai reconstitué la ligne de code à la main pour être en phase avec la tienne mais j'ai un message différent désormais "Expression.SyntaxError: Invalid identifier." (petit problème de nom de colonne.. alors que mes intitulés proviennent du tableau chargé sans transformation..bwef.. je poursuis)

je te tiendrai au courant, je te te remercie encore tout cas

example_tab_v2.xlsx

[Raccourcix]

Dans la fenêtre de regroupement il faut choisir "Avancé" pour pouvoir faire plusieurs regroupements
Tous ces regroupements seront entre {} dans la formule, c'est une liste de listes

Code :

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

Table.Group(.... , {{"nom champ", each Text.Combine([nom champ])}, {"nom champ2", each Text.Combine([nom champ2])}})

Sinon quand on commence à modifier le code à la main dans l'éditeur avancé il faut faire attention aux virgules après chaque étape sauf la dernière avant le "in"

Code :

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

1
2
3
4
5
6
let
Etape1 = .... ,
Etape2 = .... ,
Etape3 = .... 
in
Etape3

Stéphane

[ZibOne]

yes
mais quand je passe par le regroupement avancé il me génère ceci

Code :

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

= Table.Group(#"Filled Down", {"champ 1", "champ2", "champ 3", "champ 4"}, {{"test", each List.Sum([champ 1]), type nullable text}})

donc je corrige mais .. je vais trouver

[Raccourcix]

Il ne faut pas mettre les mêmes champs dans les regroupements et les agrégations

[ZibOne]

je ne saisis pas la nuance désolé : ne fait-on pas que des regroupements par colonne qui agrègent les lignes par le groupe by ?

dans cet exemple "final" ( : s ) comment faire alors pour laisser apparaître le champ6 autrement que par un groupby (qui cependant génère une erreur..)

example_tab_v3.xlsx

[ZibOne]

une histoire de / et d'espace .. bref

merci encore !

[ZibOne]

mais cela ne marche pas car le nombre de ligne à concatener ne dépend pas forcement de la meme colonne (la colonne A descendue fait perdre la cohérence de l'approche)

c'est pourquoi j'étais passé par vba

allez je retente : en fait c'est la colonne 10 qui permet de savoir quel est le nombre de ligne vide vers le bas en partant d'une ligne i et dont il s'agira de fusionner ladite selection par colonne de 1 a 29 et mettre la valeur dans la feuille dédiée (feuille final_tab)

code :

sub cleaning()

for i = 2 to 1000000

For j = 1 To 29

If ActiveWorkbook.Sheets("Step_7").Cells(i, 10) <> "" And Sheets("Step_7").Cells(i + 1, 10) <> "" Then

Sheets("final_tab").Cells(b + 1, j) = ActiveWorkbook.Sheets("Step_7").Cells(i, j)

ElseIf ActiveWorkbook.Sheets("Step_7").Cells(i, 10) <> "" And ActiveWorkbook.Sheets("Step_7").Cells(i + 1, 10) = "" Then

Dim Z As Integer
Z = Sheets("Step_7").Cells(i, 10).End(xlDown).Row - 1

Selection = Sheets("Step_7").range(Cells(i, j), Cells(Z, j)) ' c'est là que je plante avec la notion de fonction CONCATTEXT

For Each cellule In Selection

memoire = memoire & cellule

Next cellule


Sheets("final_tab").Cells(b + 1, j) = memoire

End If

Next j

Next i

End Sub

Function CONCAT_TEXT(plage As range)

Dim texte As String
Dim cellule As range

For Each cellule In plage
texte = texte & cellule
Next

CONCAT_TEXT = texte

End Function