Discussion :

[JeanDan]

Bonjour le Forum,

Voilà j'essaye de manipuler des graphiques sous VBA Excel.
Ci-dessous un VBA (qui fonctionne correctement !!) pour ajouter une série dans le graphique sélectionné

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
   Dim MaSerie As Series
        Sheets("Feuil1").ChartObjects("Chart 1").Activate
               MaSerie.name = "blabla"    
               MaSerie.XValues = "=Feuil1!$A$1:$A$8" 'axe X
               MaSerie.Values = "=Feuil1!$C$1:$C$8" 'axe Y

Pour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MaSerie.XValues

je souhaiterai donner pour valeur des valeurs stockées dans un tableau .... Je bloque là dessus au niveau de la syntaxe ..
Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim tableau(1) as Integer
tableau(0)=3
tableau(1)=4
MaSerie.XValues = tableau(0) & tableau(1)  'Au niveau de cette ligne le programme bugg :(

Merci de votre aide

[JeanDan]

Yep all,
Finalement je vais mettre mes valeurs du tableau dans une colonne pour simplifier le prog.

A+

[DarkVader]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
   Dim myChart As Chart, mySerie As Series
   Dim tmp(1 To 2, 1 To 2)

 Set myChart = Worksheets("Feuil1").ChartObjects(1).Chart
 myChart.SeriesCollection.Add tmp()
 
set mySerie= myChart.SeriesCollection(1)
'...
end with