Création de séries

Bonjour,
Je suis en train de développer un programme de gestion d'index de production de panneaux solaires.
A chaque début d'année je crée une nouvelle courbe (série) dans mon graphique.

Je me heurte à un problème de notation :
Alors qu'il accepte la notation

Code:

---

ActiveChart.SeriesCollection(1).Values = Worksheets("Tableaux production").Range("C5:C17")

---

il refuse celle qui me semble équivalente

Code:

---

ActiveChart.SeriesCollection(1).Values = Worksheets("Tableaux production").Range(Cells(5, 3), Cells(17, 3))

---

Pouvez-vous m'éclairer à ce sujet

Merci

Citation:

---

Envoyé par horemheb

il refuse celle qui me semble équivalente

Code:

---

ActiveChart.SeriesCollection(1).Values = Worksheets("Tableaux production").Range(Cells(5, 3), Cells(17, 3))

---

---

Erreur classique de débutant on l'a tous faite ;) ) et qui revient fréquemment sur le forum.

Le problème c'est que tu essayes de construire une référence de zone (Range) qui se trouverait dans la feuille "Tableaux production" mais utilisant des cellules se trouvant dans la feuille active qui, je suppose, n'est pas "Tableaux production" à ce point du code.
En plus, si je comprends bien ton code, la feuille active à cet instant est un Graph qui, pas nature, ne contient pas d'objet Cells.

L'erreur vient du fait que tu ne précise pas la feuille des objets Cells.
Pour toi (et pour moi aussi), il semble évident qu'elles sont identiques à celle du Range mais pour VBA, il faut plus de rigueur.

Ton code corrigé :

Code:

---

1 2 3

With Worksheets("Tableaux production") ActiveChart.SeriesCollection(1).Values = .Range(.Cells(5, 3), .Cells(17, 3)) End With

---

Personnellement, je préconiserais plutôt l'usage de variable de type Worksheet.

Code:

---

1 2 3

Dim WS_Source As Worksheet Set WS_Source = Worksheets("Tableaux production") ActiveChart.SeriesCollection(1).Values = WS_Source.Range(WS_Source.Cells(5, 3), WS_Source.Cells(17, 3))

---

Utiliser aussi une variable de type Sheet pour désigner la feuille contenant le graphe, ce serait plus propre que ActiveChart.

Merci pour ces informations, je vais étudier celà

Menhir, comme tu l'a deviné, j'ai mon graphique "Graphique 1" dans une feuille et mes données dans une autre feuille "Tableaux production". Pour les objets Range et Cells, j'ai compris le problème et rectifié. Par contre je coince sur le graphique, mes notions concernant les objets et collections d'objets étant très superficielles.

J'ai essayé une déclaration de type Sheet

Code:

---

Dim Graphique As Sheet

---

j'obtiens l'erreur "Type non défini"

Avec une déclaration de type Chart

Code:

---

1 2	Dim Graphique As Chart Set Graphique = Charts("Graphique 1")

---

J'obtiens l'erreur "l'indice n'appartient pas à la sélection"
de même avec

Code:

---

Set Graphique = Charts(1)

---

ou

Code:

---

Set Graphique = Sheets("Graphique 1")

---

Bref je patauge. J'ai contourné le problème de la façon suivante

Code:

---

1 2 3 4 5 6 7

Dim Production As Worksheet Dim Graphique As Chart   Set Production = Worksheets("Tableaux production") Worksheets("Accueil").Activate ActiveSheet.ChartObjects("Graphique 1").Activate Set Graphique = ActiveChart

---

Je pense qu'il y a plus "élégant" pour affecter le graphique à ma variable. Peux-tu me mettre sur la bonne voie

Merci

Citation:

---

Envoyé par horemheb

Menhir, comme tu l'a deviné, j'ai mon graphique "Graphique 1" dans une feuille et mes données dans une autre feuille "Tableaux production". Pour les objets Range et Cells, j'ai compris le problème et rectifié. Par contre je coince sur le graphique, mes notions concernant les objets et collections d'objets étant très superficielles.

J'ai essayé une déclaration de type Sheet

Code:

---

Dim Graphique As Sheet

---

j'obtiens l'erreur "Type non défini"

---

J'ai répondu un peu vite et sans vérifier.
Effectivement, le type d'objet Sheet n'existe pas. C'est soit Worksheet (pour les feuilles de calcul) soit Graph (pour les graphiques).
Lire ça :
https://docs.microsoft.com/fr-FR/off...i/excel.sheets
https://docs.microsoft.com/fr-FR/off....chart(object)

Citation:

---

Avec une déclaration de type Chart

Code:

---

1 2	Dim Graphique As Chart Set Graphique = Charts("Graphique 1")

---

J'obtiens l'erreur "l'indice n'appartient pas à la sélection"

---

Ce type d'erreur signale généralement une erreur dans le nom d'onglet.

Est-ce qu'il s'agit d'un onglet graphique ou d'un graphique placé dans une feuille de calcul ?

Citation:

---

Code:

---

1 2 3 4 5 6 7

Dim Production As Worksheet Dim Graphique As Chart   Set Production = Worksheets("Tableaux production") Worksheets("Accueil").Activate ActiveSheet.ChartObjects("Graphique 1").Activate Set Graphique = ActiveChart

---

---

Ce code semble répondre à ma question précédente : ton graph n'est pas une feuille indépendant mais un objet dans une Worksheet, ce qui n'est pas la même chose.

Code:

---

1 2 3 4 5

Dim Production As Worksheet Dim Graphique As ChartObject   Set Production = Worksheets("Tableaux production") Set Graphique = Worksheets("Accueil").ChartObjects("Graphique 1")

---

Merci pour ton aide