Discussion :

[mathel]

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 :

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

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

[nawake]

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

[ouskel'n'or]

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

Code :

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

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+

[mathel]

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

[ouskel'n'or]

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+

[mathel]

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