Tableau Croisé Dynamique

Bonjour!

Je trouve du mal à avoir un TCD comme sur l'exemple en pièce jointe.

Cordialement

Bonjour!

Je me suis mal epliqué sur mon classeur ou bien ma demande n'est pas réalisable???

Merci et bonne journée à tous!

bonjour

ce n'est pas un TCD

• convertir le tableau en plage
• copier la zone
• collage spécial "transposer"

Bonjour,

Tu t'exprimes mal.

Tes données ne sont pas normalisées pour faire ce que tu souhaites dans ton TCD (absent).

Cdlt.

Bonjour!

Merci à vous jmd et jean Eric, c'est vrai que mes données ne sont bien structurées pour TCD, seulement en VB est-il possible d'avoir sur un Userform la liste de tout les produits relatifs a une même matière.

Cordialement.

Bonjour,

Un exemple VBA pour normaliser tes données.

Cdlt.

Option Explicit

Private Sub cmdNormalizeData_Click()
Dim wsTable As Worksheet
Dim rStart As Range
Dim tbl As Variant, Arr() As Variant
Dim I As Long, J As Long, k As Long

    Application.ScreenUpdating = False

    Set wsTable = ActiveWorkbook.Worksheets("DONNEES NORMALISEES")
    With wsTable.ListObjects(1)
        If Not .DataBodyRange Is Nothing Then .DataBodyRange.Delete
        Set rStart = .InsertRowRange.Cells(1)
    End With
    tbl = Me.ListObjects(1).Range.Value
    For I = 2 To UBound(tbl)
        For J = 3 To UBound(tbl, 2)
            If tbl(I, J) <> "" Then
                ReDim Preserve Arr(4, k + 1)
                Arr(0, k) = tbl(I, 1)
                Arr(1, k) = tbl(I, 2)
                Arr(2, k) = tbl(1, J)
                Arr(3, k) = tbl(I, J)
                k = k + 1
            End If
        Next J
    Next I
    If k > 0 Then
        rStart.Resize(UBound(Arr, 2), 4).Value = Application.Transpose(Arr)
        With wsTable
            .Activate
            .[A1].Select
        End With
    Else
        MsgBox "Il n'y a pas de données à normaliser..."
    End If

    Erase Arr
    Set rStart = Nothing
    Set wsTable = Nothing

End Sub

Bonjour Jean Eric!

Désolé de ne pas avoir rappliqué plus tôt, je vous remercie beaucoup pour votre aide très précieuse. Ce ci m'aidera sans doute à finaliser mon travail.

Merci à vous!