XL 2016 Commande de 2 graphiques avec un seul bouton de control

[Phoenix23]

Bonjour,
Dans le fichier ci-joint je souhaiterai si cela est possible commander 2 graphiques avec un seul bouton de control.
Les é graphiques sont déjà actifs avec pour chacun un bouton de control
Toutes les explications sont dans la feuille Graph.
Si toutefois une personne est en mesure de m'apporte une solution.
D'avance Merci.
Cordialement

 

[goube]

Bonsoir,
Une possibilité avec Power Query.
Pour actualiser : Onglet Données, Requêtes et connexions, Actualiser tout
Cordialement

 

[chris]

Bonjour

Il est dommage avec 2016 de travailler avec des anciennes méthodes...

Par ailleurs 2025 et 2026 avec des dates en 2024... (j'ai modifié)

Ton affichage de durée est faux car ton format n'affiche pas au delà de 24h

Une proposition PowerQuery + TCD/GCD

 

[Phoenix23]

Bonjour goude, chris.
Je viens de prendre connaissances de vos solutions respectives.
Evidement vos propositions sont exactement l'effet rechercher.
Mais mon niveau de compétences est loin d'égaler le votre, et pour moi la limite pour l'instant est atteinte.
Je "travaille" seul hormis l'aide trouver sur le site, de façon "amateur" ...
Le but pour moi, n'étant pas que la solution apportée se résume à un copié-collé, mais que je puisse la mettre en œuvre par moi même.
Pour cela il faut du temps, de la méthodologie, des connaissances que je n'ai pas.
A ce jour je ne sais même pas créer un tableau croisé dynamique, donc je parts de loin et j'ai encore un long parcours avant d'arriver à un tel résultat.
Bien évidement, je garde vos fichiers précieusement, en espérant pouvoir un jour mettre en œuvre une telle présentation.
Je dois admettre que j'ai vu trop grand.
En vous remerciant, d'avoir pris le temps de vous pencher sur mes difficultés.
Très cordialement.

 

[job75]

Bonjour Phoenix23, goube, chris,

Bah en restant avec une liste déroulante c'est très simple.

Dans le fichier joint j'ai supprimé la 2ème liste et entré en K2 la formule =B2.

J'ai aussi mis le bon format sur l'axe vertical du 2ème graphique.

A+

 

[Phoenix23]

Bonjour JOB75
Ah ben pour le coup, effectivement plus simple que ca....
Disons que vu mes compétences, c'est la solution qui me convient le mieux, rapide sans prise de tête.
Cela bien sur n'enlève rien aux 2 autres solutions proposées, mais qui à mon échelle correspondent à un niveau "Expert".
Tous mes remerciements JOB75
Très Cordialement.

 

[job75]

Pour que les étiquettes de données (DataLabels) du 1er graphique s'actualisent automatiquement il faut une macro dans le code de la feuille "Graph" (clic droit sur l'onglet et Visualiser le code) :

Private Sub Worksheet_Calculate()
Dim i
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
    For i = 1 To .Points.Count
        .Points(i).DataLabel.Text = Sheets("Tableau").Cells(2 + Range("B2"), 7 + i).Text
    Next
End With
End Sub

 

[job75]

Pour terminer on peut bien entendu effacer J2 et K2 dans la feuille "Graph".

Il suffit de modifier la définition du nom TempsAbs_Choix en faisant référence à Graph!$B$2.

 

[Phoenix23]

Re JOB75.
De nouveau merci de votre aide.
Finalement (c'est perso), j'ai opté pour votre 1ère solution qui à mon gout est plus "ludique".
Néanmoins je garde précieusement au cas ou je changerai d'avis les 2 dernières solutions apportées.
Très cordialement

 

[job75]

Finalement (c'est perso), j'ai opté pour votre 1ère solution qui à mon gout est plus "ludique".

La macro de ma 2ème solution me paraît indispensable mais il faut aimer le VBA...