Discussion :

[Apranax]

Bonjour.

Je souhaite réaliser un graphique en constituant une série avec des cellules non contigues.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Public Sub GraphBaton()
 
Set Feuille = ActiveWorkbook.ActiveSheet
 
NombreMatiere = Feuille.Cells(8, 1).Value
 
Set Gr = Feuille.ChartObjects.Add(400, 100, 400, 300)
Gr.Chart.ChartType = xlColumnClustered
 
 
Set Trim1 = Gr.Chart.SeriesCollection.NewSeries
Trim1.Name = "Trimestre 1"
Trim1.Values = Range("B4,B7")
 
 
 
End Sub

Le probème et que seule la cellule B4 est prise en compte. Mais lorsque je remplace la virgule par deux points Range("B4:B7"), là toute la plage est prise en compte.
Je voudrais faire cela dans une boucle puisque j'ai plusires valeurs dans chaque série : j'aimerais qu'à chaque passage dans la boucle une valeur soit ajoutée à la série. Je ne sais pas comment procéder (pour la boucle c'est bon, le problème est l'ajout d'une valeur à la série).

Merci par avance

[Apranax]

Peut être en reunissant des ranges. J'ai essayé Union, mais ça ne marche pas.

[pgz]

Bonsoir.

Tu peux essayer un truc comme

Code :

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

Trim1.Values = Array(Range("B4").value,Range("B7").value)

Mais tu devras recommencer si les valeurs changent.

PGZ