VBA :actualiser automatiquement tableau croisé dynamique

Résolu
ccvr - 20 juil. 2022 à 16:28
 ccvr - 28 juil. 2022 à 14:02

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

2 réponses

Réponse 1 / 2
yg_be Messages postés 23537 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 16 mai 2025 Ambassadeur 1 580
20 juil. 2022 à 16:50

bonjour,

dans quelle feuille as-tu mis ces procédures?
0
ccvr
21 juil. 2022 à 08:07

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" 

0
yg_be Messages postés 23537 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 16 mai 2025 1 580 > ccvr
21 juil. 2022 à 12:26

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 asheet
0
ccvr > yg_be Messages postés 23537 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 16 mai 2025
28 juil. 2022 à 13:40

j'essaie d'appliquer votre code à mon fichier mais rien ne change ... et ca ne me marque pas d'errerur

0
yg_be Messages postés 23537 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 16 mai 2025 1 580 > ccvr
28 juil. 2022 à 13:43

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.

0
ccvr > yg_be Messages postés 23537 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 16 mai 2025
28 juil. 2022 à 14:02

ca ne marchait pas car ma feuille du TCD tait protégée

0
Réponse 2 / 2
ccvr
21 juil. 2022 à 13:13

ok parfait, merci !
0

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses
Méthode find dans VBA - Recherche de données sous Excel
baissaoui -
baissaoui -

0 réponse
appliquer une pause dans une macro vba excel
ch'duj -
lerif25 -

10 réponses
ouverture d'un fichier excel à partir d'un code VBA
TraderAS -
pijaku -

3 réponses