Discussion :

[lbar012001]

Bonjour,
J'ai un Tableau Croisé Dynamique avec en dessous 8 graphiques qui bougent chaque fois que les données de mon TCD bougent.

J'ai créé une fonction pour gérer les échelles de mon graphique (valeur minimum redéfinie fonction des écarts trouvés dans la série pour avoir une belle courbe), reliée à un bouton de commande et elle marche très bien, mais il faut l'executer chaque fois que mon TCD bouge.

Comment puis je faire en sorte pour que chaque fois que mon TCD est actualisé (via commande Actualiser ! ou changement de valeur dans la partie HAUTE) non seulement il s'actualise mais en plus execute ma fonction de maj d'echelles graphiques ?

merci aux experts
Laurent

[cb_60]

Bonjour
Avec quelque chose comme cela ça devrais fonctionner?

Code :

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

1
2
3
4
5
6
 
 
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.PivotTables("Tcd").RefreshTable
Call graph ''(ta macro pour actualiser tes graphiques)
End Sub

à mettre dans module de feuille ( click droit sur l'onglet, visualiser le code et coller )

[lbar012001]

salut
merci ton retour
j'ai essayé
ça tourne en boucle
a mon avis faudrait trouver moyen d'appliquer ça au Change mais de mon TCD et non de ma sheet
je continue de chercher
a+
laurent

[tirex28]

Bonjour,

Tu peux essayer cet évènement:

Code :

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

1
2
3
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
'Ton code
End Sub

Cordialement,

Tirex28/

[lbar012001]

oui c'est bien ça, j'avais vu tentre temps mais je pensais ça ne marchait pas bien aussi mais j'étais resté en mode CREA et pas USER
a+
laurent