Valeur vide dans graphique crée en VB

[Ashaar]

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.

 

[Mytå]

Salut Ashaar et le Forum

Tous simplement avec

ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(3).Name = 'Serie3'
ActiveChart.SeriesCollection(3).Values = '#N/A,#N/A,45'

Mytå

 

[Ashaar]

Bonjour Mytå, le fofo,

Merci, Ca fonctionne très bien.