VBA : Comment supprimer tous les PivotFields d'un TCD

tototiti2008

XLDnaute Barbatruc

• 18 Février 2013

• #2

Re : VBA : Comment supprimer tous les PivotFields d'un TCD

Bonjour nico,

une macro qui supprime tous les PivotFields

Cliquez pour agrandir...

Quand tu dis tous, tu veux vraiment tous les enlever (qu'il ne reste plus rien dans le TCD) ?

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 18 Février 2013

• #3

Re : VBA : Comment supprimer tous les PivotFields d'un TCD

Bonjour Nicolas, Tototiti

Normalement avec:

Code:

Selection.Delete

Tu dois pouvoir y arriver.

 

Vote positif 0 Vote négatif

N

nico91410

XLDnaute Nouveau

• 18 Février 2013

• #4

Re : VBA : Comment supprimer tous les PivotFields d'un TCD

Oui supprimer toutes les valeurs de mon TCD, afin d'ajouter le dernier mois uniquement

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 18 Février 2013

• #5

Re : VBA : Comment supprimer tous les PivotFields d'un TCD

Bonjour Michel, 🙂,
Re,

Peut-être un truc comme ça

Code:

Sub videTCD()
Dim PF As PivotField
    For Each PF In ActiveSheet.PivotTables(1).PivotFields
        PF.Orientation = xlHidden
    Next
End Sub

 

Vote positif 0 Vote négatif

N

nico91410

XLDnaute Nouveau

• 18 Février 2013

• #6

Re : VBA : Comment supprimer tous les PivotFields d'un TCD

C'est super, cela me supprime bien tous les champs mais quand je rajoute les champs nécessaires cela me laisse l'ancien mois

Code:

Sub Macro1()

    Dim PF As PivotField
    For Each PF In ActiveSheet.PivotTables("Tableau croisé dynamiquea7").PivotFields
        PF.Orientation = xlHidden
    Next
       
    With ActiveSheet.PivotTables("Tableau croisé dynamiquea7").PivotFields("Appro")
        .Orientation = xlPageField
        .Position = 1
    End With
    
    With ActiveSheet.PivotTables("Tableau croisé dynamiquea7").PivotFields( _
        "Chiffres")
        .Orientation = xlColumnField
        .Position = 1
    End With
    
End Sub

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 18 Février 2013

• #7

Re : VBA : Comment supprimer tous les PivotFields d'un TCD

Re,

Attends, je consulte ma boule de cristal.... c'est brumeux...

 

Vote positif 0 Vote négatif