VBA

bonjour ci joint ma requête

Bonjour,

comme pour ici du reste https://forum.excel-pratique.com/viewtopic.php?f=2&t=141935

ce serait plus facile pour te donner la solution (testée)

ci joint esquisse du fichier

Ce n'est déjà pas tout à fait la même version que la photo

Je passerai d'abord par un TCD. La mise en forme en VBA est alors plus facile.

Est-ce que néanmoins le TCD ne suffit pas ?

Merci du TCD

j'aimerais cela en vba si c'est possible car je dois l'intégrer dans un code plus grand

ok, mais dans ta présentation (fichier) tu as 2 cases pour les dates, pourquoi pas 3, 4, 5 etc. ?

cela ne peut marcher que si tu n'as pas de limite, donc si les dates sont à droite de ton tableau

exactement

Sub nouvelle_presentation()
    Sheets("apres").Select
    Range("A1").CurrentRegion.Offset(1, 0).ClearContents
    With Sheets("TCD")
        .PivotTables(1).PivotCache.Refresh
        derL = .Cells(Rows.Count, 1).End(xlUp).Row
        derC = .Cells(4, Columns.Count).End(xlToLeft).Column
        For i = 5 To derL
            Range("B" & i - 3) = .Cells(i, derC)
            Range("C" & i - 3) = .Cells(i, 1)
            Range("D" & i - 3) = .Cells(i, 2)
            txt = ""
            For j = 3 To derC - 1
                If .Cells(i, j) <> "" Then txt = txt & .Cells(4, j) & "(" & .Cells(i, j) & ") "
            Next
            Range("A" & i - 3) = txt
        Next
    End With

End Sub