Discussion :

[canary]

Bonjour à tous,

J'ai ma base de données dans l'onglet "BDD", et mon tableau croisé dynamique (nommé "TDC1") dans l'onglet "TDC".

J'ai trouvé le code ci-dessous sur le net pour actualiser automatiquement mon Tableau Croisé Dynamique :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ActiveSheet.PivotTables("Tableau croisé dynamiquex").PivotCache.Refresh
 
End Sub

Mais je ne sais pas comment l'appliquer à mon problème, ni dans quelle feuille le mettre.. ?

Merci par avance,

[issoram]

Bonjour,

A quel moment souhaites-tu que ton TCD s'actualise?

[canary]

Dès qu'il y a un changement (donc une écriture de ligne) dans l'onglet "BDD".
Merci par avance,

[issoram]

Alors dans le code associé à la feuille "BDD" tu ajoutes:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_Change(ByVal Target as Range)
    ThisWorkbook.Worksheets("TDC").PivotTables("TDC1").PivotCache.Refresh
End Sub

Ensuite tu peux affiner avec Target et une zone nommée (par exemple), pour éviter que l'événement ne se déclenche si une saisie a lieu en dehors du tableau source du TCD.