Astuces Excel
  1. Astuces Excel
  3. Filtrage du tableau dynamic (si l'un est sélectionné désactiver l'autre)
Intereting Posts
Coller vba array Remplissage automatique jusqu'à la fin des données dans la colonne B VB.Net Obtenir la dernière cellule (colonne, ligne) d'un object de gamme Excel La valeur est nulle lorsqu'elle est passée comme paramètre Vérifiez la cellule dans Excel qui ne doit accepter que le text Supprime les contenus de la plage de cellules en ligne d'une manière conditionnelle en fonction de la valeur de la cellule Ecriture d'une macro pour coller un tableau C ++ Excel Automation Copy Parameter Comment bloquer / désactiver Actualiser tout du ruban excel 2007 Problème MVC avec pilotes ODBC Excel L'access au tableau bidimensionnel C # lance IndexOutOfRangeException Comment searchr un contenu de cellule dans une gamme dans différentes feuilles Excel Créer un file Excel à l'aide de jExcel UFT-API Il est possible de définir le file excel pour importer des données pendant l'exécution du test? J'ai besoin de capturer le nom du file et le path du file d'où

Filtrage du tableau dynamic (si l'un est sélectionné désactiver l'autre)

Comme le dit le titre, j'essaie de désactiver ou de faire en sorte que le filter opposé soit par défaut sur "Tous" si l'autre est sélectionné.

Par exemple, j'ai un tableau pivot avec deux filters: "SEMAINE" et "MOIS"

Si quelqu'un sélectionne une valeur dans le filter de semaine, je veux que le filter de mois soit par défaut "(tous)" et vice versa.

Assez simple mais je ne sais pas trop comment attaquer ceci (VBA ou formule) et en plus le code.

Merci les gars!

Malheureusement, il n'y a pas d'événement qui répertorie le changement de champ pivotant. Par conséquent, mon idée est la suivante. Étape 1. Placez quelque part les variables publiques: 

Public tmpM As Boolean Public tmpW As Boolean

Étape 2. Dans le module de feuille où votre pivot est placé, mettez le code suivant: 

 Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable) On Error GoTo ErrorHandler Application.EnableEvents = False If Target.PivotFields("week").AllItemsVisible = False And tmpW = True Then Target.PivotFields("month").ClearAllFilters End If If Target.PivotFields("month").AllItemsVisible = False And tmpM = True Then Target.PivotFields("week").ClearAllFilters End If tmpM = Target.PivotFields("month").AllItemsVisible tmpW = Target.PivotFields("week").AllItemsVisible Application.EnableEvents = True Exit Sub ErrorHandler: Application.EnableEvents = True End Sub

Cela fonctionne bien avec mes exemples de données.

Modifier: la gestion des erreurs dans le code ci-dessus.