Comment lier le filtre du Tableau croisé dynamique à une cellule spécifique dans Excel ?

Si vous souhaitez lier un filtre de Tableau croisé dynamique à une cellule spécifique et filtrer le Tableau croisé dynamique en fonction de la valeur de cette cellule, la méthode décrite dans cet article peut vous aider.

Lier le filtre du Tableau croisé dynamique à une cellule spécifique avec un code VBA

Lier le filtre du Tableau croisé dynamique à une cellule spécifique avec un code VBA

Le Tableau croisé dynamique dont vous allez lier la fonction de filtre à une valeur de cellule doit inclure un champ de filtre (le nom du champ de filtre joue un rôle important dans le code VBA suivant).

Prenons l'exemple du Tableau croisé dynamique ci-dessous. Le champ de filtre dans le Tableau croisé dynamique est appelé Catégorie, et il comprend deux valeurs « Dépenses » et « Ventes ». Après avoir lié le filtre du Tableau croisé dynamique à une cellule, les valeurs de cellule que vous appliquerez pour filtrer le Tableau croisé dynamique doivent être « Dépenses » et « Ventes ».

1. Veuillez sélectionner la cellule (ici, je sélectionne la cellule H6) que vous allez lier à la fonction de filtre du Tableau croisé dynamique, et entrez l'une des valeurs de filtre dans la cellule à l'avance.

2. Ouvrez la feuille de calcul contenant le Tableau croisé dynamique que vous allez lier à la cellule. Faites un clic droit sur l'onglet de la feuille et sélectionnez Affichage du code dans le menu contextuel. Voir capture d'écran :

3. Dans la fenêtre Microsoft Visual Basic for Applications, copiez le code VBA ci-dessous dans la fenêtre Code.

Code VBA : Lier le filtre du Tableau croisé dynamique à une cellule spécifique

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")) 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 :

4. Appuyez sur les touches Alt + Q pour fermer la fenêtre Microsoft Visual Basic for Applications.

La fonction de filtre du Tableau croisé dynamique est maintenant liée à la cellule H6.

Actualisez la cellule H6, puis les données correspondantes dans le Tableau croisé dynamique sont filtrées en fonction de la valeur existante. Voir capture d'écran :

Lorsque vous modifiez la valeur de la cellule, les données filtrées dans le Tableau croisé dynamique seront automatiquement mises à jour. Voir capture d'écran :

Découvrez la magie d'Excel avec Kutools AI

• Exécution intelligente : Effectuez des opérations sur les cellules, analysez les données et créez des graphiques, le tout piloté par des commandes simples.
• Formules personnalisées : Générez des formules adaptées pour rationaliser vos flux de travail.
• Codage VBA : Écrivez et implémentez du code VBA sans effort.
• Interprétation des formules : Comprenez facilement des formules complexes.
• Traduction de texte : Surmontez les barrières linguistiques dans vos feuilles de calcul.

Améliorez vos capacités Excel avec des outils alimentés par l'IA. Téléchargez maintenant et découvrez une efficacité sans précédent !

Articles connexes :

• Comment combiner plusieurs feuilles en un tableau croisé dynamique dans Excel ?
• Comment créer un Tableau croisé dynamique à partir d'un fichier texte dans Excel ?
• Comment filtrer un Tableau croisé dynamique en fonction d'une valeur de cellule spécifique dans Excel ?