vba filtrer un tableau croisé dynamique

PascalXLD

XLDnaute Barbatruc

Modérateur

• 27 Août 2009

• #2

Re : vba filtrer un tableau croisé dynamique

Bonjour

Fil déplacé sur le bon forum

 

Vote positif 0 Vote négatif

B

BlondeouBrune

XLDnaute Nouveau

• 27 Août 2009

• #3

Re : vba filtrer un tableau croisé dynamique

Merci de m'indiquer le forum correspondant pour que je puisse poster au bon endroit mes questions la prochaine fois,

Bonne après midi !

 

Vote positif 0 Vote négatif

P

pascal_bidouille

XLDnaute Junior

• 27 Août 2009

• #4

Re : vba filtrer un tableau croisé dynamique

Salut,

Pour créer un tableau croisé c'est du style

Code:

    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        Sheets("aaa").Range(Cells(3, 21), Cells(lmax - 1, 23))).CreatePivotTable TableDestination:="", TableName:= _
        "xxx", DefaultVersion:=xlPivotTableVersion10

pour cacher certaines valeurs de champs :

Code:

    With ActiveSheet.PivotTables("xxx").PivotFields( _
        "yyy")
        .PivotItems("0").Visible = False
    End With

le "0" de pivot item represente la valeur que tu veux cacher pour le champ "yyy"

C'est un exemple d'un petit prog que j'avas fait. Bien sûr faut adapter...

 

Vote positif 0 Vote négatif

B

BlondeouBrune

XLDnaute Nouveau

• 27 Août 2009

• #5

Re : vba filtrer un tableau croisé dynamique

merci de t'être penché sur mon souci 😉

pour la création du tableau je n'ai pas eu de problèmes mais pour l'histoire des filtres voici ce que j'ai fait mais ça ne fonctionne pas :

Sub test()
Dim pt As PivotItem
'je parcours chaque valeur de ma colonne location
For Each pt In ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("location").PivotItems
'si la valeur parcouru est la même que ma variable mag
If (pt.Name = mag) Then
'je rends visible
'ca plante à la ligne suivante
.PivotItems(pt.Name).Visible = True
'sinon je laisse invisible
Else: .PivotItems(pt.Name).Visible = False
End If
Next pt
End Sub

 

Vote positif 0 Vote négatif

P

pascal_bidouille

XLDnaute Junior

• 27 Août 2009

• #6

Re : vba filtrer un tableau croisé dynamique

et en rajoutant les with ?

Code:

Dim pt As PivotItem

For Each pt In ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("location").PivotItems

If (pt.Name = mag) Then
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"location")
.PivotItems(pt.Name).Visible = True
End With

Else:
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"location")
.PivotItems(pt.Name).Visible = False
End With
End If
Next pt

 

Vote positif 0 Vote négatif

B

BlondeouBrune

XLDnaute Nouveau

• 27 Août 2009

• #7

Re : vba filtrer un tableau croisé dynamique

j'ai essayé mais j'obtiens l'erreur suivante :

Erreur d'execution 1004
Impossible de définir la propriété visible de la classe pivotItem😕

 

Vote positif 0 Vote négatif

P

pascal_bidouille

XLDnaute Junior

• 27 Août 2009

• #8

Re : vba filtrer un tableau croisé dynamique

Essaie de remplacer :
.PivotItems(pt.Name).Visible = False
par
.pt.visible = false

Mais c'est bizarre ...
Tu as essayé de le faire la main en enregistrant la macro pour voir le code qu'il sort comme code ...

 

Vote positif 0 Vote négatif

B

BlondeouBrune

XLDnaute Nouveau

• 27 Août 2009

• #9

Re : vba filtrer un tableau croisé dynamique

hello !

j'ai finalement trouvé une autre méthode mais je vais quand même essayé la tienne parce qu'elle est moins compliquée.
Si jamais ça interesse des gens, je mets la ma fonction qui contient un second tableau dynamique dans lequel je mets la liste des valeurs à vérifier:

Sub test()
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("location")
.PivotItems(mag).Visible = True
'plage qui parcourt l'ensemble des valeurs
Set plage = Worksheets("tdc final").Range("K11:K" & tous_les_mag)
'je parcours les éléments de la liste un à un
For Each z In plage
If z.Value <> mag Then
.PivotItems(z.Value).Visible = False
End If
Next
End With
End Sub

merci 1OOO fois pour ton aide

 

Vote positif 0 Vote négatif

A

AurelieGuillon

XLDnaute Nouveau

• 15 Novembre 2011

• #10

Re : vba filtrer un tableau croisé dynamique

--
J'avais une nouvelle question, j'ai ouvert un nouveau fil .. sans savoir comment supprime ce message, désolée.. 😱/

 

Dernière édition: 15 Novembre 2011

Vote positif 0 Vote négatif