Afficher 3 graphique dans une feuille sans passer par des 3 tcd et 3 form

Bonjour à tous,

dans un cadre de projet pro, j'ai commencé de créer une application du suivi, et je voulais savoir si y a un moyen d'afficher 3 graphique dans une feuille sans passer par des 3 tcd et 3 formulaires.

dans mon fichier j'ai 12 feuille (12 mois), de coup je suis oblige de faire 3*12 tcd et 3*12 formulaire dans le but d'afficher 3 graphiques. Je viens de faire les graphiques d'un mois et il me reste 11 mois.

Merci d'avance pour vos propositions des solution.

Veuillez trouver ci-joint l'exemple.

excel

Microsoft 365

Bonjour

Avec un fichier sans données difficile de modéliser quoi que ce soit...

Utiliser cette méthode pour synthétiser les 12 mois et obtenir

• ou un unique TCD/GCD avec choix éventuel du ou des mois pour le graphique
• ou bien une synthèse non TCD et graphique associé

http://www.excel-formations.fr/Trucs_astuces/PQ04.php

Re-bonjour

voile le fichier avec la base de donnée.

merci d'avance.

RE

J'imagine que les formules sont juste là pour remplir...

J'ai fait la requête + le code de frmaffichegraphique

A toi d'adapter les 2 autres et de modifier les noms des tableaux de mai à décembre selon la norme des 4 1ers mois

Bonjour 78chris

oui ça marche très bien, je vous remercie 78chris

par contre si je change une valeurs dans les tableau s'actualise pas dans le graph.

je vous souhaite une bonne journée.

Bonjour

il faut actualiser tout : Thisworkbook.RefreshAll

Le plus simple est de le faire au chargement du formulaire

Re-bonjour,

j'ai essayé avec Thisworkbook.RefreshAll, et ça ne marche pas. je devrais passer par la feuille synthèse pour actualiser tout.

voila le fichier.

RE

En le mettant au bon endroit dans le code du formulaire, cela fonctionne

Private Sub btnaffichegraphe_Click()
Dim dossier As String
Dim mongraphique As Object
    ThisWorkbook.RefreshAll
    Worksheets("Synthese").PivotTables("TCD_Conso").PivotFields("Mois").CurrentPage = WorksheetFunction.Proper(ActiveSheet.Name)
    Set mongraphique = Worksheets("Synthese").ChartObjects("Graphique 1").Chart
    dossier = "T:\TEMP\Desktop.jpg"
    mongraphique.Export dossier
    Me.imggraphique.Picture = LoadPicture(dossier)

End Sub

merci beaucoup

78chris

Bonjour,

je n'arrive pas à afficher les graphiques quand je clique sur les boutonS du formulaire. je ne sais pas pourquoi?

Veuillez trouver ci-joint le fichier.

Merci d'avance.

Je vous souhaite une bonne journée

Bien cordialement.

Bonjour

Manque de rigueur

pour le formulaire frmtonnage, le bouton est nommé afficher et le code affiche_Click()

pour l'autre, le bouton est nommé graph et le code graphe_Click()

merci 78chris.

cordialement.