Graphique Intuitif

[Chris401]

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]

Re : Graphique Intuitif

Bonjour Chris401 ,

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

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]

Re : Graphique Intuitif

Bonjour à tous,
Salut Martial,

Pour avoir le bon titre de graphique :

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

A+ à tous

 

[Chris401]

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]

Re : Graphique Intuitif

Re,
Salut Jean-Claude

Avec cette modification

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]

Re : Graphique Intuitif

Re

Tout simplement parfait.

Encore merci ainsi qu'à JCGL

Cordialement
Chris

 

[phlaurent55]

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]

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]

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]

Re : Graphique Intuitif

Re,

à+
Philippe

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

 

[phlaurent55]

Re : Graphique Intuitif

Re,

en 'trichant" un peu pour la légende

à+
Philippe

 

[Chris401]

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