actualisation de données automatique TCD et Graphiques

  • Initiateur de la discussion Initiateur de la discussion jpp1961
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

jpp1961

XLDnaute Junior
actualisation de données automatique TCD et Graphiques [résolu]

Salut la communauté,
Je sollicite encore votre sur un petit problème sur l’actualisation de données dans des tableaux croisés dynamiques et les graphiques associés.

J’ai un classeur comportant 5 feuilles
Suivi Contrôle : comportant les données
TCD réserves : Tableau croisé dynamique
Graph réserves : Ce graphique est tiré directement du TCD réserves
TCD ATLO:
Graph ATLO : Ce graphique est tiré directement du le TCD ATLO

J’aimerai que si on séléctionne l’une des feuilles TCD réserves ou Graph réserves ou TCD ATLO ou Graph ATLO, les graphiques et les tableaux croisés dynamiques se mettent à jour automatiquement pour être certain que les graphiques ainsi que les TCD montre les dernières données

Version EXCEL 2002
je vous joins mon fichier mais pour une question de taille j'ai supprimé les feuilles comportant les graph et malheureusement également le TCD ATLO
mais qu'il faudrait tenir compte évidement

Merci à toutes et à tous
 

Pièces jointes

Dernière édition:
Re : actualisation de données automatique TCD et Graphiques

Bonjour,

essaye peut être le code ci-dessous, à placer dans le module "thisworkbook", actualisera les tcd de ton classeur lors de l'activation d'une feuille, si les graph sont liés directement aux tcd, ils devraient s'actualiser aussi :

Code:
Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Me.RefreshAll
End Sub

bonne journée
@+
 
Re : actualisation de données automatique TCD et Graphiques

Bonjour,
A placer dans le code de chaque feuille comportant un TCD:
Code:
Private Sub Worksheet_Activate()
Dim pt As PivotTable
For Each pt In ActiveSheet.PivotTables
pt.RefreshTable
Next
End Sub
Cordialement
 
Re : actualisation de données automatique TCD et Graphiques

Bonjour,

essaye peut être le code ci-dessous, à placer dans le module "thisworkbook", actualisera les tcd de ton classeur lors de l'activation d'une feuille, si les graph sont liés directement aux tcd, ils devraient s'actualiser aussi :

Code:
Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Me.RefreshAll
End Sub

bonne journée
@+

merci Pierrot93 j'ai essayé ton code mais apparement il ne veut pas prendre
il y a une erreur de compilation: " Membre de méthode ou de données introuvables.
As-tu une solution

Bonjour,
A placer dans le code de chaque feuille comportant un TCD:
Code:
Private Sub Worksheet_Activate()
Dim pt As PivotTable
For Each pt In ActiveSheet.PivotTables
pt.RefreshTable
Next
End Sub
Cordialement

J’ai essayé également ton code Efgé , les TCD se mettent bien à jour mais seulement si la feuille contenant les TCD est sélectionné. Je désirerai que les graph et les tcd se mettent à jour pour n’importe qu’elle feuille sélectionnée (à part peut etre la feuille contenant les données)

Est-ce possible
 
Re : actualisation de données automatique TCD et Graphiques

Re, bonjour Efge

as tu placé le code au bon endroit ? A savoir dans le module "thisworkbook" comme précisé dans le post précédent... chez moi fonctionne sans problème (Excel 2003)...
 
Re : actualisation de données automatique TCD et Graphiques

Re, bonjour Efge

as tu placé le code au bon endroit ? A savoir dans le module "thisworkbook" comme précisé dans le post précédent... chez moi fonctionne sans problème (Excel 2003)...

oups
effectivement, j'ai cru avoir sélectionné "thisworkbook" , mais ce n'était pas le cas.

Je te remercie beaucoup,

cela marche à perfection

VIVE toi !!
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
1
Affichages
457
Réponses
8
Affichages
827
Retour