XL 2016 Basculer tableau 1 ligne/12 colonnes et un tableau 6 lignes/ 4 colonnes

[cocro]

Bonjour,
j'ai récupéré un fichier en ligne avec l'information temporelle spécifiée dans le nom de la variable, je souhaite convertir l'information en un tableau annuel

La fonction transpose met les communes en colonnes, cela ne correspond pas à mon attente

Comment dois-je m'y prendre ?
je vous fourni un tableau exemple pour comprendre mon souci
Cordialement
Corinne

 

[Rouge]

(en parlant graphique, j'ai réactivé un post car j'ai un souci avec les étiquettes qui ne s'affichent pas à l'export). https://www.excel-downloads.com/threads/automatisation-graphique-et-export.20051078/#post-20377997

Je vous ai déjà répondu (très tôt ce matin) dans l'autre discussion,

 

[cocro]

petite question sur "var1" dans le tableau final.

J'ai tenté (en vain) de reprendre le code pour mettre le nom de mes variables initiales (c1:n1) mais je n'y arrive pas. Je ne vois pas où elle est intégrée dans la macro

dernière aide svp

cordialement

 

[Rouge]

Bonjour,

Voici avec 2 présentations au choix, cela vous convient-il?

 

[cocro]

Mille mercis de nouveau.
Cela convient parfaitement à mon besoin.
Je vais prendre le temps nécessaire pour déchiffrer ces macros et qui sait tenter d'en faire une petite soeur.

Bonne journée à vous
Bonne balade autour de chez vous

ps : au sujet de l'appui graphique, j'ai cherché très longtemps comment modifier la résolution/taille image en sortie. Réponse : la qualité de l'export image est liée au zoom que l'on donne à la feuille de calcul mais vous le saviez peut-être déjà.

 

[Staple1600]

Bonjour le fil

Sans powerquery, mais avec l'astuce du TCD
(ici illustrée en VBA, mais la manip se fait rapidement manuellement avec l'assistant Tableau Croisé Dynamique)

Sub Macro1()
Dim NomTCD$, pvt As PivotTable
NomTCD = InputBox("Nom du TCD?")
ActiveWorkbook.PivotCaches.Create(SourceType:=xlConsolidation, _
    SourceData:=Array("Feuil1!R1C2:R4C14"), _
    Version:=xlPivotTableVersion15).CreatePivotTable _
    TableDestination:="", _
    TableName:=NomTCD, _
    DefaultVersion:=xlPivotTableVersion15
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
Set pvt = ActiveSheet.PivotTables(NomTCD)
pvt.DataPivotField.PivotItems("Nombre de Valeur").Position = 1
pvt.PivotFields("Colonne").Orientation = xlHidden
pvt.PivotFields("Ligne").Orientation = xlHidden
Range("A4").Select
Selection.ShowDetail = True
End Sub

NB: J 'ai repris le tableau initial pour le test (donc sur une feuille nommée Feuil1 et dans la plage de cellules:B1:N4)
Selon votre version d'Excel, il faudra adapter la syntaxe de la création du TCD.
Pour plus de détails sur cette astuce, voir le net: cross table et flat table.

[aparté]un petit salut amical à Roblochon en passant[/aparté]

 

[Staple1600]

Re

Une version plus simple qui devrait fonctionner sans se préoccuper de la version d'Excel
NB: Dans cette version, il faut sélectionner la tableau initial (entêtes comprises) avant de lancer la macro.

Sub Macro2_générique()
Dim sht As Worksheet, pvt As PivotTable, pvtCache As PivotCache, sTableau$, NomTCD$
X = Int(Rnd * 100000) + Second(Time)
NomTCD = InputBox("Nom du TCD?", "Test", "_TCD_" & X)
'Attention: il faut sélectionner le tableau initial
sTableau = Selection.Parent.Name & "!" & Selection.Address(ReferenceStyle:=xlR1C1)
Set pvtCache = ActiveWorkbook.PivotCaches.Create(SourceType:=xlConsolidation, SourceData:=sTableau)
Set pvt = pvtCache.CreatePivotTable(TableDestination:="", TableName:=NomTCD)
    pvt.DataPivotField.PivotItems("Nombre de Valeur").Position = 1
    pvt.PivotFields("Colonne").Orientation = xlHidden
    pvt.PivotFields("Ligne").Orientation = xlHidden
Range("A2").Select
Selection.ShowDetail = True
End Sub

 

[cocro]

Bonjour,
si je comprends votre proposition, vous m'invitez à faire un tdyn de mon fichier puis ensuite de déplacer "colonne" dans la boite "ligne" afin d'obtenir ceci

commune1	4168,248696​
var1_11	41​
var1_19	43​
var2_11	5​
var2_19	7​
var3_11	46​
var3_19	50​
var4_11	0,108695652​
var4_19	0,14​
var5_11	2​
var5_19	2​
var6_11	1986​
var6_19	1986​

hélas, ce n'est pas ce que je souhaite obtenir au final.Je souhaite un fichier de quatre colonnes
(commune - var1 - valeur 2011 - valeur 2019)
mon fichier est temporel : var1.. var6 prennent en plus la valeur de l'année traitée. en l’occurrence 2011 & 2019.

A moins que je ne comprenne pas l'astuce TCD de votre post
Cordialement

 

[Staple1600]

Re

j'ai mal interprété la copie d'écran du message#1
Tu voulais passé du tableau en bas de l'image au tableau en haut de l'image?
Ma macro fait le contraire
Désolé pour l'erreur d’interprétation.

 

[cocro]

Non je veux passer de l'image du haut vers celle du bas
donnée 1 ligne - 12 colonnes
vers
donnée 6 lignes - 4 colonnes

j'avais regardé ceci avant de poster https://www.excelhow.net/how-to-transpose-cross-tab-to-flat-table-in-excel.html mais cela ne retourne pas le nom des variables.

 

[cocro]

l'astuce TCD m'intrique donc j'ai pris qq instants à surfer sur la toile pour comprendre ce qu'il en est.
je viens de découvrir cette possibilité de pivotage ultra rapide en lisant ce post http://ladyexcel.com/from-a-flat-table-to-a-standard-table/

certes, cela ne permet pas de dégager les deux années mais cela permet un pivotage des données ultra efficace.

A ceux qui ne connaissait pas, je partage.

 

[Staple1600]

Re

cocro
C'est exactement la même astuce que celle que je propose
Sauf que j'ai posté sa transposition en VBA
Mais j'avais bien précisé

Bonjour le fil

Sans powerquery, mais avec l'astuce du TCD
(ici illustrée en VBA, mais la manip se fait rapidement manuellement avec l'assistant Tableau Croisé Dynamique)