Valeurs X différentes dans un graphique

  • Initiateur de la discussion Initiateur de la discussion karim
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

K

karim

Guest
Bonjour,

Voila mon problème:
J'ai un tableau avec des données et je veux tracer un graphique avec deux séries, l'une avec les 20 premières valeures du tableau et l'autre avec les 10 dernières.
Mon problème est que j'arrive à tracer le graphique mais pour les valeurs X, il garde pr la 2° série les mêmes valeurs dque la 1°!
Voici mon code sources:

Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Heures_Gammées").Range(Sheets("Heures_Gammées").Range("K1").Offset(nbr_art + 19), _
Sheets("Heures_Gammées").Range("K1").Offset(nbr_art + 19 + (negatif - 1))) _
, PlotBy:=xlColumns
ActiveChart.SeriesCollection(1).XValues = "=Heures_Gammées!R" & (nbr_art + 20) & "C2:R" & (nbr_art + 19 + negatif) & "C2"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).Values = "=Heures_Gammées!R" & (nbr_art + 20 + negatif + nul) & "C11:R" & (nbr_art + 19 + negatif + nul + positif) & "C11"
ActiveChart.SeriesCollection(2).XValues = "=Heures_Gammées!R" & (nbr_art + 20 + negatif + nul) & "C2:R" & (nbr_art + 19 + negatif + nul + positif) & "C2"
ActiveChart.Location Where:=xlLocationAsNewSheet
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Somme des EI par tâche (Heures)"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Tâche"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Heures"
End With
ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowLabel, LegendKey:=False
ActiveChart.HasDataTable = False
ActiveChart.Name = "EI cumulé par Tâche---"

ActiveChart.Axes(xlCategory).Select
With Selection
.MajorTickMark = xlOutside
.MinorTickMark = xlNone
.TickLabelPosition = xlNone
End With
ActiveChart.SeriesCollection(1).DataLabels.Font.Bold = True
ActiveChart.SeriesCollection(2).DataLabels.Font.Bold = True
ActiveChart.SeriesCollection(1).Name = "=""EI < 0"""
ActiveChart.SeriesCollection(2).Name = "=""EI > 0"""


Merci d'avance!
 
Salut Karim,

J'ai eu un problème similaire il y as quelque temps,

Je n'ai malheureusement pas trouver d'autre solutions que de tracer 2 graphiques différent avec chacun une seule série.

Si quelqu'un à une autre solutions je suis preneur.

A++

Wilfried ;-)
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
1
Affichages
520
Réponses
0
Affichages
459
Réponses
4
Affichages
2 K
Réponses
9
Affichages
65 K
Retour