Bonsoir le forum,
En VBE, je remplis un graphique en saisissant directement les valeurs. Pas de soucis pour l'instant.
Ci dessous le code utilisé :
Sub essai()
ActiveSheet.ChartObjects('Graphique 1').Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Name = 'Serie1'
ActiveChart.SeriesCollection(1).Values = '10,20,30'
ActiveChart.SeriesCollection(1).XValues = '2004,2005,2006'
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).Name = 'Serie2'
ActiveChart.SeriesCollection(2).Values = '15,25,35'
End Sub
Cependant, j'aimerai ajouter une nouvelle série dont seulement la 3ème valeur soit existante.
J'ai pensé faire qq chose comme :
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(3).Name = 'Serie3'
ActiveChart.SeriesCollection(3).Values = ' , ,45'
Mais Excel refuse de valider les valeurs.
Donc j'ai essayé : ActiveChart.SeriesCollection(3).Values = '45'
Mais Excel considère que la valeur (45) correspond à 2004.
ActiveChart.SeriesCollection(3).Values = '0,0,45'
M'affiche deux zéro avant mon 45 (ce qui ne m'arrange pas).
Voyez vous une solution pour qu'il ne m'affiche que la 3ème valeur ( qui correspond à 2006).
Merci.
En VBE, je remplis un graphique en saisissant directement les valeurs. Pas de soucis pour l'instant.
Ci dessous le code utilisé :
Sub essai()
ActiveSheet.ChartObjects('Graphique 1').Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Name = 'Serie1'
ActiveChart.SeriesCollection(1).Values = '10,20,30'
ActiveChart.SeriesCollection(1).XValues = '2004,2005,2006'
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).Name = 'Serie2'
ActiveChart.SeriesCollection(2).Values = '15,25,35'
End Sub
Cependant, j'aimerai ajouter une nouvelle série dont seulement la 3ème valeur soit existante.
J'ai pensé faire qq chose comme :
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(3).Name = 'Serie3'
ActiveChart.SeriesCollection(3).Values = ' , ,45'
Mais Excel refuse de valider les valeurs.
Donc j'ai essayé : ActiveChart.SeriesCollection(3).Values = '45'
Mais Excel considère que la valeur (45) correspond à 2004.
ActiveChart.SeriesCollection(3).Values = '0,0,45'
M'affiche deux zéro avant mon 45 (ce qui ne m'arrange pas).
Voyez vous une solution pour qu'il ne m'affiche que la 3ème valeur ( qui correspond à 2006).
Merci.