Discussion :

[j15932]

Bonjour,

Dans Excel , je fais mes graphiques depuis VBA.

Le gros des Infos vient de l’onglet ‘Sources’, et quelque unes de l’onglets ‘Indicateurs’
Les boutons sont des Shapes et chaque Shapes à le nom de l’indicateur à représenter.

Je Crée la zone et l’objet graph, trace le graphique de la série, trace la courbe de tendance, et mets le tout en forme.
'Création de la zone de Graph
Dim grph As ChartObject
Set grph = Sheets("Acceuil").ChartObjects.Add(90, 15, 1314, 620)

'Chiffres impactés, Type de Graph ligne, Sans les points sur chaque valeur
grph.Chart.ChartWizard Source:=Range(=Sources!G9:AD9), gallery:=xlLine, Format:=2

J’ai une valeur qui est l’objectif dans une ’Range()’ et je voudrais l’afficher un peu comme on le fait pour une courbe de tendance :

'Courbe de tendance
grph.Chart.SeriesCollection(1).Trendlines.Add Type:=xlLinear, Name:="Tendance " & NomIndicateur

Mais je ne trouve pas comment faire.

grph.Chart.SeriesCollection.Add Source:="=Sources!G41:AD41"

Cette solution fonctionne mais ce n’est pas le but car je ne veux pas autant de ligne ‘objectif’ que d’indicateurs

J’aimerai une solution avec une variable, mais je bloque :

grph.Chart.SeriesCollection.Add Source:=Array(0,9, 0,9, …., 0,9) ou le 0,9 serait issu de ma Range() mais là, je bloque.

Merci de votre aide.

[EricDgn]

Bonjour,

Je ne saisis pas vraiment le problème. Ne pourrait-on pas avoir sur une plage contenant la valeur de l'objectif répété d'un bout à l'autre?

Cordialement.

[j15932]

Bonjour et merci.

Bien sûr que créer une ligne et répéter l'objectif sur tous les mois de l'année fonctionne. Mais l'lorsqu'on a environ 200 objectifs, on ne peut pas faire une table du 400 lignes. C e n'est vraiment terrible en terme de qualité de travail et de redondance d'informations.

Tout comme la courbe de tendance a été prévue par les développeur Microsoft, je pensais trouver la courbe "objectif", mais souhaite j'ai mal regardé ou ce n'est pas prévu.

D'où l'idée d'utiliser une variable "Array " et de la tracer.

Cordiallement.

[EricDgn]

Bonjour,

Il faut bien enregistrer quelque part les 200 objectifs. Ensuite il suffit de 1 plage, toujours la même, qui reprend l'objectif nécessaire pour le graphe affiché.

Cordialement.

[EricDgn]

Pour utiliser un tableau (array), une façon de faire:

Code :

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

1
2
3
4
5
6
7
    Dim arr(1 To 24) As Single, k As Integer
     'objectif
    For k = 1 To 24
        arr(k) = Range("G20")       '--- l'objectif
    Next k
    grph.Chart.SeriesCollection.NewSeries
    grph.Chart.SeriesCollection(2).Values = arr

Cordialement.

[j15932]

Merci beaucoup, c'est tout à fait cela : J'avais mal initialisé ma variable Array.

Cordialement.