Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Phoenix23

XLDnaute Occasionnel
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
 

Pièces jointes

  • Absence.xlsx
    81.3 KB · Affichages: 8

chris

XLDnaute Barbatruc
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
 

Pièces jointes

  • Absences_PQ.xlsx
    109 KB · Affichages: 4

Phoenix23

XLDnaute Occasionnel
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

XLDnaute Barbatruc
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+
 

Pièces jointes

  • Absence.xlsx
    80.8 KB · Affichages: 3

Phoenix23

XLDnaute Occasionnel
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

XLDnaute Barbatruc
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) :
VB:
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
 

Pièces jointes

  • Absence.xlsm
    89.7 KB · Affichages: 4

job75

XLDnaute Barbatruc
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.
 

Pièces jointes

  • Absence.xlsm
    89.2 KB · Affichages: 2

Phoenix23

XLDnaute Occasionnel
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
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…