Comment désactiver la sélection multiple d'éléments dans un tableau croisé dynamique ?

Lorsque nous créons un tableau croisé dynamique et définissons l'option des éléments filtrés, vous ne souhaitez peut-être pas que d'autres utilisent la fonctionnalité Sélectionner plusieurs éléments dans le tableau croisé dynamique pour perturber les données originales de votre tableau. Dans cet article, je vais expliquer comment désactiver cette option dans un tableau croisé dynamique.

Désactiver la sélection multiple d'éléments dans un tableau croisé dynamique avec du code VBA

Désactiver la sélection multiple d'éléments dans un tableau croisé dynamique avec du code VBA

Pour protéger la sélection du tableau croisé dynamique contre toute modification, le code VBA suivant peut vous aider à désactiver la fonctionnalité Sélectionner plusieurs éléments. Veuillez procéder comme suit :

1. Maintenez enfoncées les touches ALT + F11, et cela ouvre la fenêtre Microsoft Visual Basic for Applications.

2. Cliquez sur Insérer > Module, puis collez le code suivant dans la fenêtre Module.

Code VBA : Désactiver la sélection multiple d'éléments dans un tableau croisé dynamique

Sub DisableSelection()
'Update 20141028
Dim xPF As PivotField
Set xPT = Application.ActiveSheet.PivotTables(1)
For Each xPF In xPT.PivotFields
    xPF.EnableItemSelection = False
Next xPF
End Sub

3. Appuyez ensuite sur la touche F5 pour exécuter ce code, et les boutons de filtre fléchés dans le tableau croisé dynamique ont été supprimés immédiatement, voir les captures d'écran :

Remarques :

1. Si vous souhaitez réactiver la sélection multiple d'éléments, veuillez appliquer le code suivant :

Code VBA : Activer la sélection multiple d'éléments dans un tableau croisé dynamique :

Sub DisableSelection()
'Update 20141028
Dim xPF As PivotField
Set xPT = Application.ActiveSheet.PivotTables(1)
For Each xPF In xPT.PivotFields
    xPF.EnableItemSelection = True
Next xPF
End Sub

2. Ce code s'applique uniquement à un seul tableau croisé dynamique dans la feuille de calcul active.

Articles connexes :

Comment masquer les boutons Développer/Réduire dans un tableau croisé dynamique ?

Comment masquer les sous-totaux dans un tableau croisé dynamique ?