Code pour graphe?

Version imprimable

20/08/2009, 09h21
diude54

Code pour graphe?

Bonjour,

J'ai un tableau sur une feuille excel. A partir de ce tableau, je viens tracer un graphe automatiquement à l'aide d'une macro.
Tout marche pour le mieux, pourquoi ce post alors...Suspens:mrgreen:
Je met une image du tableau et du graphe.
La ligne Cumul réalisé est en abscisse
Les lignes %réalisé et % chiffré sont en ordonnée

J'aimerai rajouter la ligne semaine quelque part sur ce graphe pour que l'on puisse voir sur le graphe quand ont été réalisées les heures.

Je suis ouvert à toute proposition, j'ai penser à mettre la ligne semaine en étiquette de donnée sur %Réalisé, mais je ne sais pas comment faire. D'ailleur je n'y arrive même pas manuellement.

Je sais que sous excel 2007 on peut ajouter le tableau de données (ce qui me conviendrai aussi) sous le graphe, mais je suis sous 2003 et je ne sais pas si c'est possible, et encore une fois même manuellement je n'ai pas trouvé.

Enfin j'aimerai connaitre le code pour ajouter une zone de texte sur mon graphe et la remplir. J'ai essayé d'enregistrer manuellement une macro et de voir ce que ça fait mais ça ne donne rien de bon.
J'envisage eventuellement de mettre la ligne semaine dans la zone de texte (créer un tableau de donné artificiellement).

Si vous avez un lien vers un site qui explique tout ça je suis preneur, j'ai trouvé un tuto sur ce site mais il n'y a pas ce que je souhaite.

Merci
20/08/2009, 11h42
Fvandermeulen

Salut,
Une solution assez simple serait de l'ajouter à ton titre, non?
Essaies avec l'enregistreur, tu verras c'est simple, sinon reviens ici.

A+
20/08/2009, 11h51
diude54

Oui c'est une solution pour le tableau de données.

Et pour inserer une zone de texte par macro une idée du code?
20/08/2009, 12h03
Fvandermeulen

Re,
Dans ton image j'avais vu un "cadre" avec (11) pose ceramique, c'est bien le titre de ton graphique, donc si tu lui ajoute le numéro de semaine que tu récupère par une variable, c'est OK.

Sinon, je vois pas trop ce que tu entends pas zone de texte mais tu peux toujours insérer un "label" par exemple, le tout est de bien le positionner sur ton graph. (encore une fois essaies avec l'enregistreur)

J'ai quand même relu ta question initiale et si tu veux mettre le tableau de données tu dois aller dans les options du graphique et prendre le dernier onglet tableau de donnée (enfin je pense car je suis en anglais et c'est "Data Table" là tu lui indique de le montrer.

A+

J'ai bien l'onglet etiquette de données, mais je ne peux que mettre les valeurs de x ou de y sur chaque point.
Visiblement on ne peut pas ajouter de zone de texte sous excel 2003, je pensais que sur un graphique on pouvait faire inserer zone de texte et ecrire ce que l'on voulait, un peu comme dans powerpoint.
Sinon pour les numeros de semaine c'est pas ça l'idée:
Chaque point du graphique corespond à des heures de travail réalisées. Ces heures ont été réalisées à une semaine donnée. J'aurai voulu qu'apparaise, à coté de chaque point un truc comme

Code:

"S" & n°de semaine

Je viens de trouver le truc pour la zone de texte:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 With graphe .Shapes.AddTextbox.Select Selection.Characters.Text = "coucou je suis une zone de texte" Selection.AutoScaleFont = False With Selection.Characters(Start:=1, Length:=32).Font .Name = "Arial" .FontStyle = "Normal" .Size = 10 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With end with
ce code est généré automatiquement je vais essayer de l'optimiser un peu

20/08/2009, 14h15
Fvandermeulen

Ha OK, j'étais à côté 8O

Pourquoi pas ajouter une courbe lié à ta ligne semaine, dans le format des données tu affiches le nom et la valeur, ensuite tu mets la ligne sur "rien" (traduction approximative je suis en version GB).
Je pense qu'il y a même moyen de l'aligner sur l'axe des abscisses en utilisant les données se croisent à ... (mais je te dis ça de mémoire donc à vérifier)
En espérant avoir été clair et trouvé une parade qui te convienne...
A+

Citation:

Envoyé par diude54

Je viens de trouver le truc pour la zone de texte:

Re,
Nos messages se sont croisés mais je crois que tu auras le même soucis qu'avec l'idée du Label, il faudra les positionner correctement...
J'attends ta solution finale :ccool:
A+

Edit: Entretemps j'ai quand même regardé si ma proposition tenais la route, voici ce que j'obtiens (rapidement) il y a surement moyen de faire mieux ... et ça évite une macro.

Voici ce que j'ai:

Code:

1
2
3
4
5
6
7
8
9
10
11
With graphe
    .Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 55, 50, 50).Select
    Selection.AutoSize = True
    Selection.Characters.Text = "Ecart par raport à l'objectif: " & EcartObj_a_fin & "h" & Chr(10) & "Pourcentage d'écart par rapport à l'objectif: " & PEcartObj_a_fin & "%" & Chr(10) & "Semaine de Début: " & SMin & "  Dernière semaine: " & SMax & Chr(10) & "Prévisonel à fin: " & Prév_a_fin & "h" & Chr(10) & "Objectif: " & Objectif & "h"
    With Selection.Characters.Font
        .Name = "Times New Roman"
        .FontStyle = "Gras"
        .Size = 10
        .Shadow = True
    End With
End With

Sinon ce que tu as fait est pas mal, mais je n'y parviens pas.
Je sais pas comment tu a fais, tu voudrais pas me mettre ton fichier excel plutot s'il te plait?

20/08/2009, 16h05
Fvandermeulen

Re,
Donc tu écris tout à la suite dans ton textbox...ça donne le rendu souhaité ?

Voici le fichier, j'ai bidouiller pour qu'il resemble à l'image que tu avais.
Donc l'idée est d'ajouter une série avec en donnée les n° de semaine.
Sur cette série tu ajoute le nom et la valeur et tu "efface" le tracé de la courbe.
Ensuite c'est de la mise en forme.

A+
20/08/2009, 16h11
diude54

Oui pour aller à la ligne je fais:

Code:

"montexte" & chr(10) &"montexte à la ligne"

Je crois que je vais laissé tomber pour afficher les semaines, voila ce que j'obtiens, comme je suis en nuage de point et que certianes valeures sont proches, elles se chevauchent
20/08/2009, 16h29
Fvandermeulen

Re,
Oui, donc tu l'affiche comme si tu avais un deuxième axe Y
J'ai essayé en le mettant réellement en 2ème axe Y mais pas encore réussi par contre je l'ai en 2ème axe X.
Regardes, c'est peut-être mieux que le précédent.

A+
20/08/2009, 16h48
diude54

Re,

En fait ce que tu m'envoi semble trés bien, ceci dit ton type de graphe est courbe, le mien est nuage de point.
J'ai choisi ce type car avec le type courbe, quelque soit l'ecart entre deux valeures de l'axe x, l'espace entre deux point est le même, or j'ai besoin que l'echelle soit respectée.
Du coup, en type courbe on peu faire afficher la table de données, pas en type nuage de point, dommage ça m'aurait arrangé.
Du coup également, mes etiquettes de donnée vont systématiquement se chevauchées si les points sont trop proches, ce qui va malheuresement arriver souvent.

Merci pour ton implication.