Comment actualiser un tableau croisé dynamique sur une feuille protégée ?

Normalement, le tableau croisé dynamique ne s'actualise pas sur une feuille protégée. Dans cet article, je vais vous présenter un code VBA pour actualiser le tableau croisé dynamique à partir d'une feuille de calcul protégée.

Actualiser un tableau croisé dynamique sur une feuille protégée avec du code VBA

Actualiser un tableau croisé dynamique sur une feuille protégée avec du code VBA

Par défaut, il n'y a aucun moyen direct d'actualiser un tableau croisé dynamique sur une feuille protégée. Cependant, avec le code VBA suivant, vous pouvez rapidement actualiser tous les tableaux croisés dynamiques de la feuille de calcul actuelle lorsque des données changent dans votre tableau d'origine.

1. Maintenez enfoncées les touches ALT + F11 pour ouvrir 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 : Actualiser un tableau croisé dynamique sur une feuille protégée :

Sub RefreshAll()
'Updateby Extendoffice 20161109
    Dim xpt As PivotTable
    With ActiveSheet
        .Protect UserInterfaceOnly:=True
        For Each xpt In .PivotTables
            xpt.RefreshTable
        Next xpt
    End With
End Sub

3. Ensuite, appuyez sur la touche F5 pour exécuter ce code. Si vos données d'origine changent, tous les tableaux croisés dynamiques de la feuille active seront actualisés immédiatement.