Transformer un tcd compacté en tableau

Bonjour,

J'ai un reçu un tcd en format compacté sans la source.

J'ai trois données différentes (Group / Client / Produit) compactées dans la même colonne.

Le Tcd comporte également des sous-totaux.

J'aimerais trouver un moyen simple de transformer cette présentation en format tableau pour reconstituer l'équivalent de la source du Tcd que je ne peux pas obtenir.

Ci-joint un fichier d'exemple.

Auriez-vous une solution ?

D'avance merci pour votre retour

JP MICHEL

Bonjour,

JP_MICHEL a écrit :

J'ai un reçu un tcd en format compacté sans la source.

J'ai trois données différentes (Group / Client / Produit) compactées dans la même colonne.

Est-ce un TCD, ou bien une copie valeurs d'un TCD ?

Si tu doubles cliques sur le total en bas à droite, est-ce qu'un onglet se crée avec la source (ce qui est la cas avec un TCD).

Sinon, une macro qui exploite la propriété Range.IndentLevel devrait faire l'affaire

Sub reconstituer()

For i = 4 To 21
    niv = Cells(i, "A").IndentLevel
    Cells(i, "E").Offset(0, niv) = Cells(i, "A")
    If niv > 0 Then
        For j = 0 To niv - 1
            Cells(i, "E").Offset(0, j) = Cells(i, "E").Offset(-1, j)
        Next
    End If
Next

End Sub

Bonjour Steelson,

Merci pour ta réponse

Il s'agit bien d'un tcd mais la source n'a pas été enregistrée donc le double-clic ne fonctionne et c'est pourquoi je cherche un moyen pour reconstituer le tableau.

Merci beacuoup Steelson,

C'est exactement ce dont j'avais besoin.

Bonne journée

JP MICHEL