Excel VBA: Éléments clairs B. pivot table

Je suis nouveau à B. VBA...
J'essaie d'écrire une macro qui nettoie toute la sélection dans le filtre pivot table Avec nom "Product Family" Et seul l'élément sélectionnera le nom qui est contenu dans la cellule. "B33". je me réfère à pivot table Dans une feuille "sheet8" Et essayer de changer le calendrier sur "Dashboard".

Voici le code ...


Sub thisisalsotemp//
'
' thisisalsotemp Macro
'

'
Sheets/"Dashboard"/.Select
ActiveSheet.ChartObjects/"Chart 1"/.Activate
Sheet8.PivotTables/"capbylp"/.PivotFields/"Product Family"/.PivotFields.ClearAllFilters
With Sheet8.PivotTables/"capbylp"/.PivotFields/"Product Family"/
.PivotItems/Range/"B33"//.Visible = True
End With
End Sub


L'erreur est dans la ligne suivante:
Sheet8.PivotTables/"capbylp"/.PivotFields /"Produits de la famille"/ .PivotFields.ClearAllFilters

Message d'erreur:
L'objet ne prend pas en charge cette propriété ou cette méthode

@SeanCheshire: Merci pour l'aide. Je sens que c'est beaucoup plus proche de ce que je veux. Cependant, je ne pouvais pas le faire fonctionner. J'ai joué un peu avec lui et je suis de plus près. C'est ce que j'ai ...


Sub thisisalsotemp2//
Sheets/"Dashboard"/.Select
Sheet8.PivotTables/"capbylp"/.PivotFields/"Product Family"/ = Range/"B33"/
End Sub


Erreur 1004 Personne: Impossible d'établir une propriété pivotfields classer pivottable

en ligne: Sheet8.PivotTables/"capbylp"/.PivotFields /"Produits de la famille"/ = gamme /"B33"/
Invité:

Christine

Confirmation de:

Vous devez installer
CurrentPage

/Et vous n'avez pas besoin de le nettoyer en premier/.

En utilisant ce qui est montré dans votre code, j'aurais quelque chose comme:


Sheet8.PivotTables/"capbylp"/.PivotFields/"Product Family"/. _
PivotFields/"MyPivotField"/.CurrentPage = Range/"B33"/.Value


/Battu 2 Rangées pour la lecture

/

Agathe

Confirmation de:

C'est un peu connecté; Je voulais nettoyer le choix multiple chaque fois que l'utilisateur le fait. Apparemment, installation VisibleItemsList peut le faire.


Private Sub Worksheet_SelectionChange/ByVal Target As Range/
Dim xPF As PivotField
Dim nms As Variant
nms = Array/"Calculation", _
"Rate Type", _
"xx Hierarchy"/
Set xPT = Application.ActiveSheet.PivotTables/1/
For Each xPF In xPT.PageFields
For Each nm In nms
If xPF.Name Like "*" & nm & "*" Then
If UBound/xPF.VisibleItemsList/ > 1 Then
xPF.VisibleItemsList = Array/""/
End If
End If
Next nm
Next xPF
End Sub

Pour répondre aux questions, connectez-vous ou registre