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,

Peux-tu essayer :

 With ActiveSheet.PivotTables("Mon TCD").PivotFields("Date")
        .Orientation = xlPageField
        .Position = 1
        .CurrentPage = "2007"
    End With

A + à tous

 

[Poussin]

Re : Personnaliser son TCD

Merci beaucoup à toi JCGL, encore une fois cela fonctionne à merveille !!!! Merci encore

 

[Poussin]

Re : Personnaliser son TCD

Et si jamais je veux sélectionner plusieurs années comment dois-je faire .CurrentPage ="2007" & "2008" ?

Merci d'avance

 

[JCGL]

Re : Personnaliser son TCD

Bonjour à tous,

Si tu es sous XL 2010 comme indiqué dans ton message initial :

With ActiveSheet.PivotTables("Mon TCD").PivotFields("Date")
        .CurrentPage = "(All)" ' Afficher tout
        .EnableMultiplePageItems = True ' Permettre la multi-sélection
        .PivotItems("2006").Visible = False ' Masquer les années non souhaitées
        .PivotItems("2009").Visible = False
        .PivotItems("2010").Visible = False
        .PivotItems("2011").Visible = False
    End With

A + à tous

 

[Poussin]

Re : Personnaliser son TCD

Merci merci et encore merci

 

[Poussin]

Re : Personnaliser son TCD

Bonjour JCGL,

Après ce WE, j'ai pu réfléchir à de nouvelles fonctionnalités pour mon outil, je voudrais maintenant que les champs se définissent automatiquement.

C'est-à-dire que le .CurrentPage = (au contenu d'une cellule) en effet après la mise en place du boucle for l'objectif serait d'avoir toutes les entreprises et ainsi obtenir un onglet par entreprise avec son propre TCD.

TCD1
PivotFields (Métier)
.CurrentPage = contenu de A1

PivotFields (Societe)
.CurrentPage = contenu de B1

TCD2
PivotFields (Métier)
.CurrentPage = contenu de A2

PivotFields (Societe)
.CurrentPage = contenu de B2

Merci d'avance encore pour ton aide précieuse.

Cordialement

 

[JCGL]

Re : Personnaliser son TCD

Bonjour à tous,

Depuis le début de cette discussion et de l'autre discussion, nous travaillons sans fichier...

Peut-être...

With ActiveSheet.PivotTables("Mon TCD").PivotFields("Métier")
        .Orientation = xlPageField
        .Position = 1
        .CurrentPage = Sheet("Nom de la feuille").Range("A1").Text
End With

A + à tous

 

[chris]

Re : Personnaliser son TCD

Bonjour
Bise à JCGL

Sous 2010, les slicers de TCD peuvent remplacer pas mal de manips et macros de ce genre...

 

[Poussin]

Re : Personnaliser son TCD

Merci chris, grâce à toi je découvre cette fonctionnalité.

Est-il possible de faire un affichage automatique de ces slicers par macro ?

Encore merci

 

[pouvreau]

Re : Personnaliser son TCD

Bonjour à tous,

Je découvre à l'instant votre conversation, qui attire mon attention.

Le 22/07, JCGL nous montre comment masuer les années non souhaitées dans un TCD. Dans mon cas, j'aimerais masquer un grand nombre de données, SAUF UNE (les vides) ! En d'autres termes, n'afficher que les vides.

Existe-t-il un code VBA pour cela ?
Du genre : All .PivotItems.VIsible = False Except .PivotItems (Vides) = True

 

[JCGL]

Re : Personnaliser son TCD

Bonjour à tous,

Peux-tu essayer :

Sous XL 2003 :

ActiveSheet.PivotTables("TCD1").PivotFields("Date").CurrentPage = "(vide)"

Sous XL 2010 :

ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Date").CurrentPage = "(blank)"

A + à tous

 

[pouvreau]

Re : Personnaliser son TCD

Cela ne fonctionne pas, erreur d'exécution 1004 "définie par l'application ou par l'objet".

 

[JCGL]

Re : Personnaliser son TCD

Bonjour à tous,

Je ne vais pas recommencer une discussion sans fin par manque de fichier joint sur lequel nous pourrions tenter d’optimiser la réponse...
Il faut adapter le nom du TCD... Peut-être...

Merci de commencer tes réponses par un "Bonjour" ou autres civilités... C'est l'usage sur XLD.

A + à tous

 

[pouvreau]

Re : Personnaliser son TCD

Oula, désolé pour le manque de "civilités" mais je pense vous avoir dit bonjour dans mon premier message.
De plus j'ai bien adapté mon nom de TCD et de champ à votre formule, cela me paraît évident.

Votre formule fonctionne après plusieurs essai, en utilisant celle de XL 2010. Bravo!
Mais poussons un peu plus loin: peut-on additionner les critères de séléction ? Càd sélectionner les vides + les tirets "-" (par exemple) ?