VBA :actualiser automatiquement tableau croisé dynamique
Résolu
ccvr
-
ccvr -
ccvr -
Bonjour,
Après quelques recherches sur internet, j'ai trouvé des codes VBA permettant d'actualiser automatiquement le tableau dynamique.
Cependant, à chaque fois, il ne se passe rien ou bien un 0 apparaît dans le TCD au lieu de la valeur inscrite dans les données.
J'ai Excel version 2019
mon TCD (je l'ai renommé comme ca ) se trouve en feuil1 et la feuille de mes données se nomme Données
J'ai testé :
1)Private Sub Worksheet_Deactivate()
Feuil1.PivotTables("TCD").PivotCache.Refresh
End Sub
2)
Private Sub Worksheet_Change(ByVal Target As Range) Worksheets("sheet name").PivotTables("PivotTable name").PivotCache.Refresh End Sub
A voir également:
- VBA :actualiser automatiquement tableau croisé dynamique
- Excel compter cellule couleur sans vba - Guide
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Dépassement de capacité vba ✓ - Forum Excel
- Mkdir vba ✓ - Forum VB / VBA
2 réponses
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
bonjour,
dans quelle feuille as-tu mis ces procédures?
Bonjour
dans la feuil2 j'ai ma base de données et dans ma feuil1 j'ai mon tableau dynamique
j'avais donc mis ces procédures dans la feuil2
(sachant que la procédure 2) j'avais remplacé sheet name par "Base_de_données " et pivot table name par "TCD"
Vu la façon dont tu testes, tu ne peux pas déterminer si le code n'est pas exécuté quand tu le souhaites, ou si le code ne fait pas ce que tu souhaites.
J'utilise ce code pour rafraichir tous les tcd de mon classeur:
Dim pt As PivotTable Dim asheet As Worksheet For Each asheet In Worksheets For Each pt In asheet.PivotTables pt.RefreshTable Next pt Next asheetj'essaie d'appliquer votre code à mon fichier mais rien ne change ... et ca ne me marque pas d'errerur
Vu la façon dont tu testes, tu ne peux pas déterminer si le code n'est pas exécuté quand tu le souhaites, ou si le code ne fait pas ce que tu souhaites.
ca ne marchait pas car ma feuille du TCD tait protégée