Personnaliser son TCD

[Poussin]

Bonjour à tous,

Voici mon code :

ActiveSheet.PivotTables("Mon TCD").AddFields
    With ActiveSheet.PivotTables("Mon TCD").PivotFields("Date")
        .Orientation = xlPageField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("Mon TCD").PivotFields("Nom")
        .Orientation = xlPageField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("Mon TCD").PivotFields("Métier")
        .Orientation = xlPageField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("Mon TCD")
        .AddDataField ActiveSheet.PivotTables("Mon TCD"). _
                      PivotFields("Effectifs"), "Moyenne de Effectifs/CA", xlAverage
        .PivotFields("Moyenne de Effectifs/CA").NumberFormat = "0.00%"
    End With
    With ActiveSheet.PivotTables("Mon TCD")
        .AddDataField ActiveSheet.PivotTables("Mon TCD"). _
                      PivotFields("CA"), "Moyenne de CA", xlAverage
        .PivotFields("Moyenne de CA").NumberFormat = "0.00%"
    End With
    
    With ActiveSheet.PivotTables("Mon TCD").DataPivotField
        .Orientation = xlRowField
        .Position = 1

Je souhaiterais dans ces quelques lignes imposer l'année 2007 au champ date comment dois-je faire exactement.

Je vous remercie d'avance pour votre aide.

Cordialement

 

[JCGL]

Re : Personnaliser son TCD

Bonjour à tous,

Oui c'est possible
Il faut utiliser la méthode du #5 :

• Tout mettre en visible
• Permettre la multi-sélection
• Choisir les items à masquer
• Ceux qui restent seront visibles

Tu remarqueras que je lance un "Bonjour" et un "A+" à chaque message...

A + à tous

 

[mth]

Re : Personnaliser son TCD

Bonjour le fil 🙂
Bises JC 🙂 🙂 🙂

Juste pour jouer, ce petit code qui a l'air de vouloir fonctionner sur un fichier test:

Sub masquer()
Application.ScreenUpdating = False
With Sheets("Feuil1")
    With .PivotTables("Tableau croisé dynamique1").PivotFields("AAA")
        For i = 1 To .PivotItems.Count
            If .PivotItems(i).Name = "(blank)" Or .PivotItems(i).Name = "-" Then
                .PivotItems(i).Visible = True
             Else
                On Error Resume Next
                .PivotItems(i).Visible = False
            End If
        Next i
    End With
End With
Application.ScreenUpdating = True
End Sub

Au cas où ...

Bise JC et bonne soirée à tous 🙂

mth

 

[pouvreau]

Re : Personnaliser son TCD

Je sens qu'on y est presque Mth!
Ta formule me semble parfaitement adaptée, mais elle bug encore sur le ".PivotItem.Visible = True"
Pourquoi ? Une idée?
Merci!

 

[mth]

Re : Personnaliser son TCD

re bonsoir à tous 🙂

Désolée, ça sent l'étourderie à plein nez, essaie en remplaçant par ceci:

.PivotItems(i).Visible = True

(je vais corriger dans le message précédent)

@ +

m

 

[pouvreau]

Re : Personnaliser son TCD

Bonjour à tous,

Une nouvelle fois Mth, tu te rapproches du but!

Ta formule fonctionne et ne bug plus, mais le résultat espéré n'est pas au RDV.
Lorsque s'exécute :

If .PivotItems(i).Name = "(vide)" Or .PivotItems(i).Name = "-" Then
.PivotItems(i).Visible = True
Else
On Error Resume Next
.PivotItems(i).Visible = False

On obtient les items "(vide)" et "-" Dé-sélectionnés et les autres séléctionnés !

Mon but étant d'avoir l'inverse !
Mais je pense que ton idée du If Then Else est la bonne...

Je continue à creuser de mon côté, et espère ton aide!