Discussion :

[Hulkfcp]

Bonjour,

Je suis débutant en codage VBA et je cherche à rafraîchir plusieurs TCD sur différentes feuilles d'un même classeur.

En sommes, je voudrais que chaque mois après la mise à jour des bases de données, les TCD affichent le mois suivant avec le chiffre correspondant de manière auto.

J'espère avoir été clair,

Merci d'avance pour votre contribution,

[78chris]

Bonjour

Tes TCD sont liés à la même source ?

Tu peux ajouter une colonne à la source avec une formule pour obtenir 0 ou 1 selon que la ligne est ou non concerné.
Ce champ placé en champ de filtre et filtré sur 1, rendra le filtre automatique mois après mois.

Sinon le plus simple est de prévoir un segment connectés à tous les TCD : filtrer ce segment manuellement ou par VBA sera très simple.

[Hulkfcp]

Bonjour Chris,

Les TCD interrogent différents cubes de données.

Quel est le principe du segment ?

Merci d'avance,

[78chris]

Bonjour

Si tu as plusieurs cubes sources tu ne peux utiliser un segment commun.

Donc soit la colonne ajoutée à chaque source, soit une synchro des TCD par VBA.

Tu as une date ou bien un mois clairement indiqué dans tes sources ?

[Hulkfcp]

Bonjour,

Oui il y a bien des dates clairement définies dans mes sources.

Merci,

[78chris]

Bonjour

Si ton champs date est dans le TCD et dans un champ autre que page : filtre chronologqiue à adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub Filtrer()
'
Mois = 6
Debut = CDate("1/" & Mois & "/" & Year(Date))
Fin = DateAdd("d", -1, CDate("1/" & Mois + 1 & "/" & Year(Date)))
    For Each feuille In ActiveWorkbook.Worksheets
        For Each TCD In feuille.PivotTables
            TCD.PivotFields("Date").ClearAllFilters
            TCD.PivotFields("Date").PivotFilters.Add Type:=xlDateBetween, Value1:=Format(Debut, "dd/mm/yyyy"), Value2:=Format(Fin, "dd/mm/yyyy")
        Next TCD
    Next feuille
End Sub

[Hulkfcp]

Chris,

Merci pour votre réponse.

Toutefois, une erreur d’exécution "1004" : "Impossible de lire la propriété PivotFields de la classe PivotTable."

Merci,

[78chris]

RE

as-tu adapté le code à tes noms de champ ?

[Hulkfcp]

Re,

Quels champs dois-je indiquer et où, dans le code?

Merci de ton aide,

[78chris]

Re

Un minimum d'effort... PivotFields est un champ et ce qui suit est son nom...

[Hulkfcp]

J'ai essayé de modifier les champs avant de t'écrire mais sans succès. La ligne se met en surbrillance jaune alors que je mets bien 'périodes" j'ai essayé " years" le deuxième niveau également mais rien.

[78chris]

Re

Utilise l'enregistreur macro, filtre ton champ et constates le code obtenu.

Est-ce bien un champ de ligne ou colonne (j'ai bien précisé "dans un champ autre que page")

Tu as des regroupements si je comprends bien.

Poste une image du 1er TCD de la première feuille...

[Hulkfcp]

Voici le fichier!

Tous les mois je vais dans période et je coche une date supplémentaire qui me fait apparaître un nouveau chiffre dans la colonne total.

Ce champs "périodes" est en ligne.

Merci!

[78chris]

Bonjour

Et si tu mets l'enregistreur macro quand tu filtres ou dé-filtres un mois quel nom du champ obtiens-tu ?

[Hulkfcp]

Re,

Voici ce que j'obtiens avec l’enregistreur de macro:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Macro3()
'
' Macro3 Macro
'
 
'
    ActiveSheet.PivotTables("Tableau croisé dynamique3").CubeFields(3). _
        TreeviewControl.Drilled = Array(Array("[Period].&[11080]"), Array( _
        "[Period].&[2017]"))
    ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields( _
        "[Period].[Years]").HiddenItemsList = Array("")
    ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields( _
        "[Period].[Years 01]").HiddenItemsList = Array("[Period].&[2014]", _
        "[Period].&[2015]", "[Period].&[2016]", "[Period].&[2018]", "[Period].&[2019]", _
        "[Period].&[2020]", "[Period].&[2021]", "[Period].&[2022]", "[Period].&[2023]")
    ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields( _
        "[Period].[Years 02]").HiddenItemsList = Array("[Period].&[20171001]", _
        "[Period].&[20171201]")
End Sub

Merci de ton aide,

[78chris]

Re

Ta source est un cube : syntaxe totalement différente !

Outre les hiérarchies de date, il semble qu'il enregistre ce qu'on masque et non ce qu'on sélectionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.PivotFields("[Period].[Years 02]").HiddenItemsList = Array("[Period].&[20171001]", "[Period].&[20171201]")

semble indiquer une désélection des du 1er oct au 1er déc.

As-tu des filtres chronologiques ou bien seulement des cases à cocher ?

Je n'ai pas de cube pour tester donc je peux difficilement t'aider...

[Hulkfcp]

Chris,

Autant pour moi, je ne t'avais pas précisé que les données provenaient de cubes.

Je ne fais que cocher/décocher des cases.

Merci,