[XL-2003] Filtre sur TCD [Résolu]

[nawakbling]

Bonjour

Pour simplifier, mes données concernent la consommation par direction.
DIR - CodeDépense - Montant

Je construits un TCD sur l'ensemble des directions. Jusque-là OK.

Comment faire pour générer automatiquement un TCD par direction. De sorte que lorsque j'envoie un TCD à une direction, elle ne voit pas les dépenses d'une autre direction ?


Merci de votre aide

[Daniel.C]

Bonjour,

Tu mets la direction en champ de page. Pour chaque direction, tu fais un copier / collage spécial valeurs, par VBA. Si ça te convient, j'écris le code.

[nawakbling]

Je veux bien avoir le code, vraiement cela m'avancerait.
Pour info, par la suite, je crée un fichier par tableau de direction avec comme nom de fichier le nom de la direction.

[Daniel.C]

Pour chaque direction, je crée une feuille avec son nom :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
    Réf.test(3).xls
    Dim Pi As PivotItem
    With Sheets("Test").PivotTables("PT1").PivotFields("Direction")
        For i = 1 To .PivotItems.Count
            .PivotItems(i).Visible = True
            .CurrentPage = .PivotItems(i).Name
            Sheets("Test").PivotTables("PT1").TableRange2.Copy
            Sheets.Add.Name = .PivotItems(i).Name
            ActiveSheet.[A1].PasteSpecial xlPasteValues
        Next i
    End With
End Sub

[nawakbling]

Merci

J'ai essayé mais j'ai un message "erreur d'exécution 424"

[Daniel.C]

J'ai essayé mais j'ai un message "erreur d'exécution 424"

Sur quelle ligne ? Est-ce que tu as remplacé "PT1" par le nom de ton TCD ? et le champ "Direction" par le nom correspondant ?

[nawakbling]

Super
ça marche

Merci Daniel