Changer aspect tableau

Bonjour à tous,

Je suis désolé pour la mise en page des tableaux, je n'arrive pas à les mettre en forme correctement.

J'espère ce que sera clair.

Ma question est relativement simple, j'ai un tableau de base qui ressemble à ça :

Catégorie

Produit Date1 Date2 Date3

Produit1 1 2 4

Produit2 0 4 4

Et je souhaite, sans rentrer dans du code VBA, avec un "simple" enregistrement de macro ou avec un tableau croisé dynamique avoir un tableau qui se transforme de la façon suivante (l'odre de tri n'est pas important, c'est plus la structure qui l'est) :

Date 1 Categorie Produit1 1

Date 2 Categorie Produit2 2

Date 3 Categorie Produit1 4

Date 1 Categorie Produit2 0

Date 2 Categorie Produit1 4

Date 3 Categorie Produit2 4

Merci beaucoup,

Bastien

Bonjour,

solution via une macro vba (désolé)

Sub reformat()
    Set ws1 = Sheets("sheet1") 'onglet source
    Set ws2 = Sheets("sheet2") 'onglet de destination
    ' titre de colonnes
    ws2.Cells(1, 1) = "date"
    ws2.Cells(1, 2) = "catégorie"
    ws2.Cells(1, 3) = "produit"
    ws2.Cells(1, 4) = "quantité"
    i = 1
    nl = 1
    While ws1.Cells(i, 1) <> "" 'on parcourt les lignes tant qu'elles ne sont pas vides
        If ws1.Cells(i, 2) = "" Then 'rien en colonne 2 donc ligne catégorie
            cat = ws1.Cells(i, 1)
            i = i + 1 ' la ligne suivante est la ligne des dates
            ld = i 'ligne des dates
            ndate = ws1.Cells(i, Columns.Count).End(xlToLeft).Column 'nombre de dates pour cette catégorie
            i = i + 1 ' première ligne produit
        End If
        For j = 2 To ndate 'on crée les lignes selon le nouveau format
            nl = nl + 1
            ws2.Cells(nl, 1) = ws1.Cells(ld, j)    'date
            ws2.Cells(nl, 2) = cat    ' produit
            ws2.Cells(nl, 3) = ws1.Cells(i, 1)    ' produit
            ws2.Cells(nl, 4) = ws1.Cells(i, j)    ' quantité produit
        Next j
        i = i + 1 'on prend la ligne suivante
    Wend
End Sub

Je vais donc utiliser ta macro.

Merci encore, c'est top !