Filtre automatique dans un croisé dynamique (VBA)

tototiti2008

XLDnaute Barbatruc

• 20 Mars 2013

• #2

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

Bonjour gui,

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

Code:

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

 

Vote positif 0 Vote négatif

G

gui59300

XLDnaute Occasionnel

• 21 Mars 2013

• #3

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.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 21 Mars 2013

• #4

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

bonjour,

remplcer :

ActiveSheet

Cliquez pour agrandir...

par :

Sheets("NomFeuille")

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

G

gui59300

XLDnaute Occasionnel

• 26 Mars 2013

• #5

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

Bonjour

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

 

Vote positif 0 Vote négatif

G

gui59300

XLDnaute Occasionnel

• 29 Mars 2013

• #6

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 29 Mars 2013

• #7

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

Bonjour,

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

Code:

Sheets("NomFeuille")

sans plus de détails...

bonne journée
@+

 

Vote positif 0 Vote négatif