MAJ des tableaux croisés - Activation d'une feuille

[Celine1973]

Bonjour,

J'ai créer une macro, que je dois lancer manuellement pour faire la MAJ de 3 tableaux croisés.

Sub MAJ_des_TC()
Range("K25").Select
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotCache.Refresh
Range("W26").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
Range("AH25").Select
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotCache.Refresh
End Sub

Tout fonctionne bien mais j'aimerais qu'elle s'active lorsque j'active une feuille. Cette macro se trouve présentement dans MODULE. Dites-moi ou mettre la nouvelle macro. Je suis vraiment débutante au niveau des macros.

Merci beaucoup !!!
Céline

 

[JNP]

Re : MAJ des tableaux croisés - Activation d'une feuille

Bonjour Céline1973 ,
A mettre dans le module de la feuille

Private Sub Worksheet_Activate()
With ActiveSheet
    .Range("K25").Select
    .PivotTables("Tableau croisé dynamique3").PivotCache.Refresh
    .Range("W26").Select
    .PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
    .Range("AH25").Select
    .PivotTables("Tableau croisé dynamique2").PivotCache.Refresh
End With
End Sub

A +

 

[Celine1973]

Re : MAJ des tableaux croisés - Activation d'une feuille

Merci de la rapidité, j'essai et je vous redonne des nouvelles