Tableau croisé dynamique inverse

Bonsoir,

Je cherche le moyen, à partir d'un tableau avec entete de ligne et de colonne, d'obtenir un tableau avec uniquement des entetes de lignes.

C'est un peu comme obtenir un tableau croisé dynamique à partir d'un tableau source, mais à l'inverse.

Dans mon fichier vous avez ce que l'on me donne en feuil1 et ce que je souhaite en feuil2.

Merci d'avance

https://www.excel-pratique.com/~files/doc/o1Nu2Previsions.xls

Bonsoir,

si ton tableau comporte toujours 13 colonnes (colonne A : Article, et de la colonne B à la colonne M, le premier de chaque mois), tu peux essayer ce code :

Sub Transpo()
Dim DerLig As Long, I As Long
Dim Lig As Long, DerLig2 As Long
Application.ScreenUpdating = False
DerLig = [A65000].End(xlUp).Row
Columns("B:C").Insert Shift:=xlToRight
For I = DerLig To 3 Step -1
    Cells(I, 1).Resize(11, 1).Insert Shift:=xlDown
Next I
Lig = 2
DerLig2 = 2
For I = 2 To DerLig
    Range("D1:O1,D" & Lig & ":O" & Lig).Copy
    Cells(DerLig2, 2).PasteSpecial Transpose:=True
    Lig = Lig + 1
    DerLig2 = [B65000].End(xlUp).Row + 1
Next I
With Range("A2:A" & [B65000].End(xlUp).Row)
    With .SpecialCells(xlCellTypeBlanks)
        .FormulaR1C1 = "=R[-1]C"
    End With
    .Value = .Value
End With
[B1] = "Date": [C1] = "Qté"
Columns("D:O").Delete Shift:=xlToLeft
Columns("B:C").ColumnWidth = 8
Columns("A:C").HorizontalAlignment = xlCenter
[A1].Select
End Sub

Je t'ai mis un fichier exemple, avec 2 copies de la feuille 1

Clique sur le bouton, et regarde le résultat

https://www.excel-pratique.com/~files/doc/Sylvain_v1.xls

Bonsoir,

Je me situe dans le même cas que Sylvain mais avec un tableau à 70 lignes et 197 colonnes. Malheureusement, je suis débutant en VBA et je ne vois pas trop quels paramètres changer dans le code pour l'adapter à mon cas.

ps: j'ai une colonne caractérisant mes articles en plus de celles de sylvain.

Merci pour vos réponses

Cordialement

Bonjour

Avec 2016 tu peux décroiser avec POwerQuery.

Il faudrait poster un exemple allégé de ton classeur : 20 lignes maxi suffisent

Bonjour,

La version que j'utilise pour cette opération est excel 2010 d'ou ma volonté de faire un code VBA.

Voici un exemple de ma feuille

Bonjour,

Une proposition VBA à étudier.

Cdlt.

Jean-Eric,

C'est parfait, je te remercie beaucoup pour ton temps et ta réponse

Cordialement

Re,

Merci.

Pense à clore le sujet.