XL 2013 vba actualiser TCD si filtrage

[lesage]

Bonjour

Je suis nouveau sur le forum et je n'arrive pas à résoudre le problème suivant:
Je voudrais que mon TCD s'actualise automatiquement lorsque je fais un filtrage dans celui ci,
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
End Sub

Ce code provoque un bug dans Excel: on dirait qu'il tourne en boucle,
après des heures à essayer différentes méthodes : je me résigne à demander de l'aide aux experts.

d'avance merci

 

[lesage]

Bonjour

Je n'ai toujours pas réussi à résoudre, personne pour m'aider ?

d'avance merci

Cordialement

 

[Dranreb]

Bonjour.
Essayez en mettant Application.EnableEvents = False au début, = True à la fin.

 

[lesage]

Bonjour

Merci, le comportement m'a un peu surpris, mais ça marche:
En fait maintenant: le TCD s'actualise dès qu'on change les données source,

Encore merci

Cordialement