Comment filtrer le tableau croisé dynamique en fonction d'une valeur de cellule spécifique dans Excel?

Le filtrage des données dans un tableau croisé dynamique s'effectue généralement en sélectionnant des éléments dans une liste déroulante. Cependant, il peut arriver que vous souhaitiez que le tableau croisé dynamique filtre de manière dynamique en fonction de la valeur d'une cellule spécifique. Ce didacticiel fournit une solution VBA simple pour automatiser ce processus, facilitant ainsi la gestion et l'analyse efficaces de vos données.

Filtrer le tableau croisé dynamique en fonction d'une valeur de cellule spécifique avec le code VBA

Filtrer le tableau croisé dynamique en fonction d'une valeur de cellule spécifique avec le code VBA

Le code VBA suivant peut vous aider à filtrer un tableau croisé dynamique de manière dynamique en fonction d'une valeur de cellule spécifique dans Excel. Veuillez procéder comme suit.

1. Veuillez entrer une valeur sur laquelle vous filtrerez le tableau croisé dynamique dans une cellule à l'avance (ici, je sélectionne la cellule H6).

2. Ouvrez la feuille de calcul contient le tableau croisé dynamique que vous filtrerez par valeur de cellule. Cliquez ensuite avec le bouton droit sur l'onglet de la feuille et sélectionnez Afficher le code dans le menu contextuel. Voir la capture d'écran:

3. Dans l'ouverture Microsoft Visual Basic pour applications fenêtre, copiez ci-dessous le code VBA dans la fenêtre Code.

Code VBA: filtre de tableau croisé dynamique basé sur la valeur de la cellule

Private Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 20180702
    Dim xPTable As PivotTable
    Dim xPFile As PivotField
    Dim xStr As String
    On Error Resume Next
    If Intersect(Target, Range("H6:H7")) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xPTable = Worksheets("Sheet1").PivotTables("PivotTable2")
    Set xPFile = xPTable.PivotFields("Category")
    xStr = Target.Text
    xPFile.ClearAllFilters
    xPFile.CurrentPage = xStr
    Application.ScreenUpdating = True
End Sub

Remarques: Dans le code,

4. appuie sur le autre + Q touches pour fermer le Microsoft Visual Basic pour applications fenêtre.

Le tableau croisé dynamique filtrera désormais de manière dynamique en fonction de la valeur de la cellule H6, comme indiqué dans la capture d'écran ci-dessous :

Vous pouvez mettre à jour la valeur de la cellule pour appliquer un filtre différent selon vos besoins.

Note: Les valeurs que vous saisissez dans la cellule H6 doivent correspondre exactement aux valeurs de la liste déroulante Catégorie du tableau croisé dynamique.

Articles Liés:

• Comment combiner plusieurs feuilles dans un tableau croisé dynamique dans Excel?
• Comment créer un tableau croisé dynamique à partir d'un fichier texte dans Excel?
• Comment lier le filtre de tableau croisé dynamique à une certaine cellule dans Excel?