[E03][VBA][Graphiques] - mise en forme

Bonjour,

Je débute en VBA et je découvre les problèmes les uns après les autres.
J'ai fait un tour dans le forum et les FAQs mais je ne trouve pas une réponse globale à mes problèmes. Voici l'extrait du code que j'utilise pour créer un graphique qui contient plusieurs séries différentes.;)

Code:

---

1 2 3 4 5 6 7 8

Sheets("graphique synthèse").Select ActiveSheet.ChartObjects("Graphique 1").Activate ActiveChart.SeriesCollection(1).Select ActiveChart.SeriesCollection(1).XValues = "=synthèse!R2C1:R" & iIndexFinSomme + 1 & "C1" ActiveChart.SeriesCollection(1).Values = "=synthèse!R2C4:R" & iIndexFinSomme + 1 & "C4" ActiveChart.SeriesCollection(2).Select ActiveChart.SeriesCollection(2).XValues = "=synthèse!R2C1:R" & iIndexFinSomme + 1 & "C1" ActiveChart.SeriesCollection(2).Values = "=synthèse!R2C5:R" & iIndexFinSomme + 1 & "C5"

---

Voici mes questions :
- Comment puis paramètrer l'affichage des axes, ici je ne souhaite marquer que les valeurs des séries (écarts variables entre deux X)
- J'ai l'impression de faire une courbe du type "courbe" mais aucun de mes points de sont reliés.

Je me doute qu'il existe du code pour paramétrer l'ensemble des éléments permettant la mise en forme des graphiques, existe-il une liste de ces fonctions?

Merci d'avance

Salut, si j'ai bien compris ton prob, tu ne sais pas comment faire pour changer la valeur des axes et l'affichage sur le graphe.

Je sais plus trop comment faire mais je te conseille d'utiliser l'enregistreur de macro. (Ca a super bien marcher pour moi quand j'ai du bosser sur des graphes)

GL

Déjà, tu peux simplifier le code que tu as mis

Code:

---

1 2 3 4 5

Sheets("graphique synthèse").Select ActiveSheet.ChartObjects("Graphique 1").Activate ActiveChart.SeriesCollection(1).XValues = "=synthèse!R2C1:R" & iIndexFinSomme + 1 & "C1" ActiveChart.SeriesCollection(1).Values = "=synthèse!R2C4:R" & iIndexFinSomme + 1 & "C4" ActiveChart.SeriesCollection(2).Values = "=synthèse!R2C5:R" & iIndexFinSomme + 1 & "C5"

---

Tu ne dois pas répéter XValues pour chaque série.
Pour le type de courbe, c'est dans Type de graphique. (Clic droit sur le graphe)
Tu as intérêt à le faire à la main, le graphe conservera son format.
Enfin, dans Format de la zone de graphique, onglet propriétés, coche "Ne pas déplacer ou dimensionner avec les cellules". C'est plus prudent en cas de modif dans un titre ou autre légende, on a vite fait de supprimer le graphe sans le vouloir.
Tu dis
A+

Merci pour votre aide, mais le problème c'est que manuellement je n'arrive pas à faire apparaitre la courbe entre mes points.

Ci-joint le le fichier de ma courbe pour préciser mon problème

J'ai jeté un oeil sur le graphe mais sans la source des données, je ne vois pas grand chose et ne peux que supposer... Y- a-t-il des cellules vides entre les données ? Si oui, inutile de chercher plus loin.
A+

Merci, il y a bien des cellules vides entre les données, puisque je fait une moyenne mensuelle de l'ensemble de mes valeurs. Il faut donc revoir la construction de mes données. Je regarde ça et je vous informe du résultat.

Merci

Je débute vraiment en VBA et je découvre donc les problèmes les uns à la suite des autres. En plus, je dois mettre à jour des macros déjà existante donc ça m'aide mais me limite également.

Je n'ai pas la possibilité de modifier la source des données donc je voudrais savoir s'il est possible de créer un graphique en ne prenant pas en compte les cases vides entre deux séries de données (données extraites de fichiers .csv).
Ci-joint mon fichier dans lequel je cherche à obtenir un grapique de synthèse en ne prenant que les valeurs mensuelles et en retirant les cases vides.
J'avoue que je ne connais pas les fonctions à rajouter dans le code.

Code:

---

1 2 3 4 5

Sheets("graphique synthèse").Select ActiveSheet.ChartObjects("Graphique 1").Activate ActiveChart.SeriesCollection(1).XValues = "=synthèse!R2C1:R" & iIndexFinSomme + 1 & "C1" ActiveChart.SeriesCollection(1).Values = "=synthèse!R2C4:R" & iIndexFinSomme + 1 & "C4" ActiveChart.SeriesCollection(2).Values = "=synthèse!R2C5:R" & iIndexFinSomme

---

J'avoue que

Qu'une ligne à ajouter pour filtrer les seules cellules renseignées de ta feuille synthèse :

Code:

---

Worksheets("Synthèse").Range("A:A").AutoFilter Field:=1, Criteria1:="<>"

---

Tu dis
A+

J'ai encore du chemin à faire avant d'être autonome en VBA.
L'idéal pour moi, ce serait d'utiliser ton code dans une autre feuille (masquée) afin de l'utiliser pour créer mon graphique de synthèse.
voici le code que j'essaie mais ça ne fonctionne pas :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sheets("synthèse mensuelle").Add , after:=Worksheets("syntèse") Sheets("synthèse mensuelle").Visible = False Sheets("synthèse mensuelle").Select Sheets("synthèse").Select Columns("A:E").Select Selection.Copy Sheets("synthèse mensuelle").Select Columns("A:A").Select ActiveSheet.Paste Range("A:A").AutoFilter Field:=1, Criteria1:="<>" Sheets("graphique synthèse").Select ActiveSheet.ChartObjects("Graphique 1").Activate ActiveChart.SeriesCollection(1).Select ActiveChart.SeriesCollection(1).XValues = "=synthèse mensuelle!R2C1:R" & iIndexFinSomme + 1 & "C1" ActiveChart.SeriesCollection(1).Values = "=synthèse mensuelle!R2C4:R" & iIndexFinSomme + 1 & "C4" ActiveChart.SeriesCollection(2).Values = "=synthèse mensuelle!R2C5:R" & iIndexFinSomme + 1

---

Merci d'avance pour votre aide