Actualisation des TCD lorsque feuille active

chris6999 · 3 Mai 2012

Bonjour

J esouhaite lancer l'actualisation automatique de mes tableaux croisés dynamiques lorsque la feuille sur laquelle ils sont positinnés est active

J'ai essayé ça... mais cça ne marche pas.
Une idée ? Peut-être incomaptibel avec excel 2002?

Merci d'avance pour votre aide

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveSheet = "Suivi statistiques" Then

ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotCache.Refresh
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotCache.Refresh
ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotCache.Refresh

End If
End Sub

Pierrot93 · 3 Mai 2012

Re : Actualisation des TCD lorsque feuille active

Bonjour,

essaye ceci, dans le module de la feuille concernée :

Code:

Option Explicit
Private Sub Worksheet_Activate()
ThisWorkbook.RefreshAll
End Sub

bon après midi
@+

chris6999 · 3 Mai 2012

RESOLU Actualisation des TCD lorsque feuille active

Merci beaucoup Pierrot cela fonctionne sans pb

Bon après midi

Actualisation des TCD lorsque feuille active

chris6999

XLDnaute Impliqué

Pierrot93

XLDnaute Barbatruc

chris6999

XLDnaute Impliqué

Discussions similaires

Actualisation des TCD lorsque feuille active

chris6999

XLDnaute Impliqué

Pierrot93

XLDnaute Barbatruc

chris6999

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency