XL 2013 Rapport de TCD

[JHA]

Bonjour à tous,

Je reprends le classeur d'un demandeur pour vous poser ma question.
Je sais qu'il est possible de créer tous les TCD des fournisseurs en une seule manip (analyse/options du TCD/options/afficher les pages de filtre de rapport...) mais est il possible d'avoir tous les rapports de TCD uniquement sans créer tous les TCD.

JHA

 

[chris]

Bonjour

Ce que tu appelles rapport c'est l'extraction (pour MS le rapport c'est le TCD)

Manuellement non mais dans une boucle VBA c'est possible : faire au préalable un TCD avec le fournisseur en 1er champ de ligne, et juste le montant en zone de valeurs, sans totaux pour simplifier le code, puis avec une boucle

Sub Extraire()
'
Application.ScreenUpdating = False
With Worksheets("TCD").PivotTables(1)
    For Each Rrow In .DataBodyRange
        Rrow.ShowDetail = True
        ActiveSheet.Name = "Fournisseur " & Cells(2, 1).Value
    Next
End With
End Sub

Le code ne teste pas la longueur des noms d'onglets donc à améliorer...

 

[JHA]

Bonjour à tous,
Bonjour Chris

Je me doutais bien qu'il n'était pas possible de faire cette manip sans VBA.
Ton code me donne le résultat souhaité, le problème est donc résolu.
Merci de ton aide.


JHA