Filtre automatique dans un croisé dynamique (VBA)

[gui59300]

Bonjour

Quelqu'un sait comment l'on peut automatiser (VBA) un filtre dans un croisé dynamique.
Dans l'exemple j'ai des données (colonne ABC), la valeur de la semaine actuelle (E2), puis un tableau croisé dynamique.

Ce que je voudrais c'est que la valeur en H1 (filtre du TCD) se soit toujours mise à jours avec la valeur en E2.

Mais je ne vois pas comment faire cela.

 

[tototiti2008]

Re : Filtre automatique dans un croisé dynamique (VBA)

Bonjour gui,

Peut-être un truc comme ça dans le code de la feuille

Private Sub Worksheet_Activate()
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("date")
        .ClearAllFilters
        On Error Resume Next
        .CurrentPage = Range("E2").Value
        On Error GoTo 0
    End With
End Sub

 

[gui59300]

Re : Filtre automatique dans un croisé dynamique (VBA)

Merci cela fonctionne parfaitement.

Par contre comment je dois coder si le croisé dynamique n'est pas dans le même onglet que le tableau de données.

 

[Pierrot93]

Re : Filtre automatique dans un croisé dynamique (VBA)

bonjour,

remplcer :

ActiveSheet

par :

Sheets("NomFeuille")

 

[gui59300]

Re : Filtre automatique dans un croisé dynamique (VBA)

Bonjour

Je viens de faire le test cela fonctionne très bien.
Merci

 

[gui59300]

Re : Filtre automatique dans un croisé dynamique (VBA)

Bonjour

La macro fonctionne très bien.
Par contre je veux étendre cette macro à d'autres fichiers.

J'ai un autre fichier avec les données dans la feuille 1, la date de la semaine dans la feuille 2, le tableau croisé dans la feuille 3.

Je dois utiliser quoi comme code ? Car la macro ne fonctionne pas dans cette configuration.

Merci d'avance

 

[Pierrot93]

Re : Filtre automatique dans un croisé dynamique (VBA)

Bonjour,

bah... précise la feuille devant chaque objet utilisé...

Sheets("NomFeuille")

sans plus de détails...

bonne journée
@+