VBA : Comment supprimer tous les PivotFields d'un TCD

[nico91410]

Bonjour à tous,

J'aimerais réaliser une macro qui supprime tous les PivotFields de mon TCD, afin d'éviter ce genre de situation :

ActiveSheet.PivotTables("Tableau croisé dynamiquea7").PivotFields( _
"Nombre de Juin - 13").Orientation = xlHidden
ActiveSheet.PivotTables("Tableau croisé dynamiquea7").PivotFields( _
"Nombre de Mai - 13").Orientation = xlHidden
ActiveSheet.PivotTables("Tableau croisé dynamiquea7").PivotFields( _
"Nombre de Avril - 13").Orientation = xlHidden
etc.......

Merci d'avance,

Nicolas

 

[tototiti2008]

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

Bonjour nico,

une macro qui supprime tous les PivotFields

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

 

[MJ13]

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

Bonjour Nicolas, Tototiti

Normalement avec:

Selection.Delete

Tu dois pouvoir y arriver.

 

[nico91410]

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

 

[tototiti2008]

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

Bonjour Michel, 🙂,
Re,

Peut-être un truc comme ça

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

 

[nico91410]

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

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

 

[tototiti2008]

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

Re,

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