Graphique Intuitif

Chris401 · 15 Mars 2015

Bonjour à tous

J'ai réussi (tant bien que mal) à créer le graphique qui se trouve dans la PJ.
Cependant, je souhaiterais qu'il soit intuitif.

Merci de votre aide.

Cordialement
Chris

Yaloo · 15 Mars 2015

Re : Graphique Intuitif

Bonjour Chris401 ,

Avec cette macro événementielle, lorsque tu double-clic sur la première cellule de la colonne voulue.

VB:

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Col$, Lig&
If Target.Row = 1 And Target.Column > 1 And Target <> "" Then
Col = Split(Cells(, Target.Column).Address, "$")(1)
Lig = Cells(Rows.Count, Col).End(3).Row
  ActiveSheet.ChartObjects("Graphique 1").Activate
  ActiveChart.FullSeriesCollection(1).Select
  ActiveChart.FullSeriesCollection(1).Values = "=Feuil1!$" & Col & "$3"
  ActiveChart.FullSeriesCollection(2).Values = "=Feuil1!$" & Col & "$2"
  ActiveChart.FullSeriesCollection(3).Values = "=Feuil1!$" & Col & "$4:$" & Col & "$" & Lig
End If
End Sub

A+

Martial

PS : Attention de ton fichier original tes lignes de 15 à 55 ne sont pas vides.

JCGL · 15 Mars 2015

Re : Graphique Intuitif

Bonjour à tous,
Salut Martial,

Pour avoir le bon titre de graphique :

ActiveChart.ChartTitle.Text = "=Feuil1!$" & Col & "$1"

A+ à tous

Chris401 · 15 Mars 2015

Re : Graphique Intuitif

Bonjour Yaloo

OUAH !!! Super !!!

J'ai réussi à modifier le titre du graph en ajoutant :

ActiveChart.ChartTitle.Caption = ActiveCell

Par contre, je ne sais pas comment modifier la légende. Tu as une idée ?

En tout cas, un ÉNORME MERCI

Chris

Yaloo · 15 Mars 2015

Re : Graphique Intuitif

Re,
Salut Jean-Claude

Avec cette modification

VB:

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Col$, Lig&
If Target.Row = 1 And Target.Column > 1 And Target <> "" Then
Col = Split(Cells(, Target.Column).Address, "$")(1)
Lig = Cells(Rows.Count, Col).End(3).Row
  ActiveSheet.ChartObjects("Graphique 1").Activate
  ActiveChart.FullSeriesCollection(1).Select
  ActiveChart.FullSeriesCollection(1).Values = "=Feuil1!$" & Col & "$3"
  ActiveChart.FullSeriesCollection(2).Values = "=Feuil1!$" & Col & "$2"
  ActiveChart.FullSeriesCollection(3).Values = "=Feuil1!$" & Col & "$4:$" & Col & "$" & Lig
  ActiveChart.ChartTitle.Text = "=Feuil1!" & Target.Address
  ActiveChart.FullSeriesCollection(3).Name = "=Feuil1!" & Target.Address
End If
End Sub

A+

Chris401 · 15 Mars 2015

Re : Graphique Intuitif

Re

Tout simplement parfait.

Encore merci ainsi qu'à JCGL

Cordialement
Chris

phlaurent55 · 15 Mars 2015

Re : Graphique Intuitif

Salut à tous,

une solution sans macro
pour faire plaisir à Jean-Claude qui préfère la rapidité des formules à la lenteur des macros

à+
Philippe

Chris401 · 15 Mars 2015

Re : Graphique Intuitif

Merci Philippe.

Bien que je préfère la solution macro de Yaloo, je vais m'entrainer sur ton fichier pour voir si j'ai bien compris ta méthode.

Je vais essayer d'intégrer une liste déroulante à la place du bouton.

Par contre, la légende n'est pas modifiée.

Cordialement
Chris

Chris401 · 15 Mars 2015

Re : Graphique Intuitif

Re

J'ai réussi avec une liste déroulante des postes en A1
En A2 la formule : =EQUIV(A1;ListePoste;0)

Reste la légende

Chris

phlaurent55 · 15 Mars 2015

Re : Graphique Intuitif

Re,

à+
Philippe

Edit: Oups, j'avais pas vu le dernier post avant d'envoyer

phlaurent55 · 15 Mars 2015

Re : Graphique Intuitif

Re,

en 'trichant" un peu pour la légende

à+
Philippe

Chris401 · 15 Mars 2015

Re : Graphique Intuitif

Re

Merci Philippe.
Moi, j'en suis arrivé à la solution de supprimer la légende "Poste" uniquement et j'ai mis la couleur du titre en rouge. Après tout, pas la peine d'avoir deux noms identiques.

Chris

Graphique Intuitif

Chris401

XLDnaute Accro

Pièces jointes

Yaloo

XLDnaute Barbatruc

Pièces jointes

JCGL

XLDnaute Barbatruc

Chris401

XLDnaute Accro

Pièces jointes

Yaloo

XLDnaute Barbatruc

Chris401

XLDnaute Accro

phlaurent55

Nous a quittés en 2020

Pièces jointes

Chris401

XLDnaute Accro

Chris401

XLDnaute Accro

phlaurent55

Nous a quittés en 2020

Pièces jointes

phlaurent55

Nous a quittés en 2020

Pièces jointes

Chris401

XLDnaute Accro

Discussions similaires