Pb histogrammes

[rafou29]

Bonjour,

Avec le code ci-dessous, j'arrive à faire apparaitre sur différentes feuilles des histogrammes. Actuellement, j'ai des dates en X et en Y des temps ou des pourcentages.
Le problème est qu'il m'arrive d'avoir pour la même date plusieurs valeurs or mon graphe ne m'en affiche qu'une.
Je souhaiterais que pour la même date il m'affiche mes différentes valeurs les unes sur les autres (histogramme empilé).

Voici mon code:

Private Sub CommandButton55_Click()

'Création du 1er histogramme: min=f(date)

Sheets("Sheet3").Select

Range("B3:C30").Select
Application.CutCopyMode = False
Charts.Add
ActiveChart.ChartType = xlColumnStacked
ActiveChart.SetSourceData Source:=Sheets("Sheet3").Range("B3:C30") _
, PlotBy:=xlColumns
ActiveChart.SeriesCollection(1).Delete
ActiveChart.SeriesCollection(1).XValues = "=Sheet3!B3:B30"
ActiveChart.SeriesCollection(1).Name = "=""Chrono"""
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet3"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = ("Chrono" & Periode)
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Minutes"
End With
ActiveChart.HasLegend = False
ActiveChart.HasDataTable = False

ActiveChart.Axes(xlCategory).Select
With ActiveChart.Axes(xlCategory)
.CrossesAt = 1
.TickLabelSpacing = 1
.TickMarkSpacing = 1
.AxisBetweenCategories = True
.ReversePlotOrder = False
End With

'Création du 2nd histogramme: %=f(date)

Sheets("Vue_Generale").Select
Range("B3:C30").Select
Application.CutCopyMode = False
Charts.Add
ActiveChart.ChartType = xlColumnStacked
ActiveChart.SetSourceData Source:=Sheets("Vue_Generale").Range("B3:C30") _
, PlotBy:=xlColumns
ActiveChart.SeriesCollection(1).Delete
ActiveChart.SeriesCollection(1).XValues = "=Vue_Generale!B3:B30"
ActiveChart.SeriesCollection(1).Name = "=""Mc Donald"""
ActiveChart.Location Where:=xlLocationAsObject, Name:="Vue_Generale"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = ("Mc Donald" & Periode)
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "%"
End With
ActiveChart.HasLegend = False
ActiveChart.HasDataTable = False

ActiveChart.Axes(xlCategory).Select
With ActiveChart.Axes(xlCategory)
.CrossesAt = 1
.TickLabelSpacing = 1
.TickMarkSpacing = 1
.AxisBetweenCategories = True
.ReversePlotOrder = False
End With

End Sub

Merci de votre attention !

 

[Pierrot93]

Re : Pb histogrammes

Bonsoir,

pas testé sous 207, mais essaye peut être ainsi :

ActiveChart.Location Where:=xlLocationAsObject, Name:="Vue_Generale"

sinon un exemple de code pour créer le graph directement sur la feuille active :

Dim c As ChartObject
Set c = ActiveSheet.ChartObjects.Add(Range("L1").Left, Range("L1").Top, 350, 150)
With c.Chart
    .ChartType = xlColumnStacked
    .SetSourceData Source:=Sheets("Vue_Generale").Range("B3:C30")
End With

bonne soirée
@+

 

[rafou29]

Re : Pb histogrammes

Je te remercie pour ta réponse pierrot mais il me semble que le premier code que tu me donnes est exactement le même que celui que j'ai affiché ...

C'est gentil mais je ne souhaite pas mettre mes graphes sur ma feuille active car je n'ai pas trop envie de la surcharger mais merci quand même !

Quelqu'un a d'autres idées ?

 

[rafou29]

Re : Pb histogrammes

Personne n'a d'idées ? 🙁

Mon problème majoritaire reste cette histoire de graphe empilé qui n'empile pas 😕

 

[rafou29]

Re : Pb histogrammes

Si sa peut vous aider je viens de remarquer qu'il m'affiche bien mes différentes valeurs lorsque j'ai la même abscisse mais il n'empile pas toutes mes valeurs. Il superpose mes valeurs.

Exemple:

Le 09/03 j'ai 3 valeurs (10,5; 0,5 et 3,2) et bien j'aurais une colonne qui ira jusqu'à la valeur 10,5 et mes 2 autres valeurs seront derrière cette colonne.

En espérant que je me sois bien fait comprendre 🙄