Discussion :

[isma616]

Bonjour,

cela fait un petit moment que je cherche en vain la réponse sur le net à mon problème qui est le suivant:
Je veux créer une série pour un graphique à l'aide d'une macro VBA. Or je n'arrive pas à la créer avec les valeurs de mes variables. Voici le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
RelSAV = Sheets("Data").Range("B1").Value
    PolPrixOffre = Sheets("Data").Range("B2").Value
    LivrFact = Sheets("Data").Range("B3").Value
    ProdPrest = Sheets("Data").Range("B4").Value
 
    Graph2.Select
    Graph2.SeriesCollection.NewSeries
'Le problème se produit ICI
    Graph2.SeriesCollection(Graph2.SeriesCollection.Count).Values = "={&RelSAV\&PolPrixOffre\&LivrFact\&ProdPrest}"
    Graph2.SeriesCollection(Graph2.SeriesCollection.Count).Name = title

Donc j'imagine que je peux p-e pas mettre dans ce type d'expression des variables alors s'il y a une autre solution ça m'arrange aussi.

Merci d'avance

[isma616]

J'ai tout simplement créer un Array dans lequel j'ai stocké les variables voici le code qui marche:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim RelSAV, PolPrixOffre, LivrFact, ProdPrest As Double
 
    RelSAV = Sheets("Data").Range("B1").Value
    PolPrixOffre = Sheets("Data").Range("B2").Value
    LivrFact = Sheets("Data").Range("B3").Value
    ProdPrest = Sheets("Data").Range("B4").Value
 
    Graph2.Select
    Graph2.SeriesCollection.NewSeries
    Graph2.SeriesCollection(Graph2.SeriesCollection.Count).Values = Array(RelSAV, PolPrixOffre, LivrFact, ProdPrest)
    Graph2.SeriesCollection(Graph2.SeriesCollection.Count).Name = title

Merci