[VBA-E]Données d'un graphique

Et pour effacer les légendes encombrantes

Code:

---

1 2 3

With ActiveSheet.ChartObjects("Graphique 1").Chart .Legend.LegendEntries(4).Delete End With

---

Ceci dit, avec le tableau, je ne suis pas sûr que tes séries ne démarrent pas sur la première date :cry:

L'image que tu m'as montré, pour avoir les 2 series tu l'avait fait manuellement?? :roll:

sinon pour la légende ca va etre le bordel (meme pour les series) va falloir definir la taille des series, voir combien y'en a eu de créées pour supprimer n-1legende (enfin tu me comprend quand je dis n-1 :roll: ) et voir pour le second seuil à créer :?


edit : jvais coder ca et je reviens des que ca merdouille... (dans 5 min quoi... :mouarf: )

Juste un truc en passant même si tu es parti sur autre chose elstak.

Avec ce que je te proposais, je te rappelle qu'il fallait mettre sur Xvalues :
Xmin (ça tu l'avais compris je pense), mais aussi Xmax correspondant à la plus grande abscisse.

Pour les avoir c'était pas bien compliqué, il suffisait de faire un min de tes valeurs pour Xmin et un max pour Xmax...

Je comprends pas bien pkoi vs cherchez si compliqué... un truc a du m'échapper

bon avant que je me lance dans mon codage...

j'ai aps bien saisi tes xmin xmax (jte rapple qu'hier je faisais la sieste :mouarf: )

je ressort le code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Sub Test()   Dim XmiN, XmaX As Double Dim NbSeries, J As Integer   XmiN = 0.04 XmaX = 0.04   Charts("ev25").Activate '.ChartObjects("graph1").Activate NbSeries = ActiveChart.SeriesCollection.Count   For J = 1 To NbSeries If ActiveChart.SeriesCollection(J).Name = "Seuil" Then ActiveChart.SeriesCollection("Seuil").Delete NbSeries = NbSeries - 1 Exit For End If Next J   ActiveChart.SeriesCollection.NewSeries ActiveChart.SeriesCollection(NbSeries + 1).Name = "Seuil" ActiveChart.SeriesCollection("Seuil").XValues = "={" & Fix(XmiN) & "," & Fix(XmaX) & "}" ActiveChart.SeriesCollection("Seuil").Values = "={0.4,0.4}"   End Sub

---

mouarf j'avais mis 0,04.. mon seuil...

dis moi juste ce qu'il faudrait mettre par exemple que je comerpnne mieux...

Tiens voilà ce que j'ai avec le code precedent...

Pièce jointe 3080

en xmin je devrai mettre 10/07/2006 et xmax 12/07/2006 ??

jcomprend vraiment pas car là ca ma dessiné les 2 points de mes 2 valeur de values (0,4 et 0,4)

Ben imaginons que tes autres séries soit comprise entre X=0 et X=200
Il suffirait alors que tu mettes

Code:

---

Xmin=0

---

et

Code:

---

Xmax=200

---

pour avoir un seuil qui fasses la même taille que tes séries.

Les valeurs de Xmin et Xmax servent juste à définir "la longueur" de ton seuil sur la fenêtre graphique si tu veux...

Si c'est tjrs pas clair je te fais un exemple concret sur excel et je te l'envoie

Oui c'est ça tu devrais mettre

Code:

---

Xmin="10/07/2006"

---

et

Code:

---

Xmax="12/07/2006"

---

Ca y est je crois qu'on s'est compris ;)

P.S: je maîtrise pas trop les formats des dates dc je sais pas trop comment faut les rentrer pr le graph mais en tt cas tu as compris l'idée

Hm, je veux pas d'un excel, je prefererai savoir ce que je dois mettre en xmin et xmax dans l'exmple que j'ai mis au dessus.

ici les X sont des dates oui/non?

ou alors faut-il mettre le nombre d'observations?

exemple ici il y en a 3 (3 dates) donc xmin=1 xmax=3

Un dernier truc, je croyais que tes abscisses étaient des valeurs numériques. Vu que c'est des dates, il faut que tu enlèves le

Code:

---

fix

---

devant Xmin et Xmax, sinon je sais pas ce qu'il va te donner.

(Lol la partie entière d'une date je sais pas si ça existe)

ok !

mais là j'ai un nouveau souci alors :roll:

Code:

---

ActiveChart.SeriesCollection("Seuil").XValues = "={" & XmiN & "," & XmaX & "}"

---

(j'ai virer les fix)

"Impossible de definir la propriete xvalues de la classe series"

EDIT : oui pour les fix j'ai avait deja viré t'en fais pas :)
EDIT2 : les date c'est pas bien :mouarf: !! je cherche aussi comment faire.. je poste plus ppendant 5 minute au moins le temps de chercher... ;)

Citation:

---

ici les X sont des dates oui/non?

---

Oui

Citation:

---

ou alors faut-il mettre le nombre d'observations?

---

Non ça n'a rien à voir

Je me répéte mais fait gaffe vu que c'est des dates je sais pas trop si ça marche de les rentrer comme ça (je vais essayer de ce pas)

Bah désolé :oops:

c'est vrai que ca part un peu dans tous les sens mais bon la question reste la meme : comment tracer un seuil? y'a juste plusieurs pistes :P

sinon mon ptit comcombre pour en revenir à nos xmin !

je veux bien un fichier excel car là...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Sub Test()   Dim XmiN, XmaX Dim NbSeries, J As Integer   XmiN = 1 XmaX = 3   Charts("ev78").Activate '.ChartObjects("graph1").Activate NbSeries = ActiveChart.SeriesCollection.Count   For J = 1 To NbSeries If ActiveChart.SeriesCollection(J).Name = "Seuil" Then ActiveChart.SeriesCollection("Seuil").Delete NbSeries = NbSeries - 1 Exit For End If Next J   ActiveChart.SeriesCollection.NewSeries ActiveChart.SeriesCollection(NbSeries + 1).Name = "Seuil" ActiveChart.SeriesCollection("Seuil").XValues = "={" & XmiN & "," & XmaX & "}" ActiveChart.SeriesCollection("Seuil").Values = "={0.4,0.4}"   End Sub

---

(meme en remettant les fix ca merde)

j'ai ca (j'ai changé mes dates en nombres pour tester):


Pièce jointe 3081


bref la meme chose...

Citation:

---

Envoyé par Elstak

L'image que tu m'as montré, pour avoir les 2 series tu l'avait fait manuellement??

---

OUI !

Citation:

---

Envoyé par Elstak

sinon pour la légende ca va etre le bordel (meme pour les series) va falloir definir la taille des series, voir combien y'en a eu de créées pour supprimer n-1legende (enfin tu me comprend quand je dis n-1 ) et voir pour le second seuil à créer

---

Pas besoin. Tu as 3 légendes utiles, tu supprimes les autres

Code:

---

1 2 3 4 5 6 7 8

Sub SupLégendesIndésirables() NbLégendes = ActiveSheet.ChartObjects("Graphique 2").Chart.Legend.LegendEntries.Count For i = NbLégendes To 4 Step -1 With ActiveSheet.ChartObjects("Graphique 2").Chart .Legend.LegendEntries(i).Delete End With Next End Sub

---

Tant qu'à faire une usine à gaz... :mouarf:

Essaie ça

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Sub Test() Dim XmiN, XmaX As Variant Dim NbSeries, J As Integer XmiN = 1 XmaX = 3 Worksheets("Feuil1").ChartObjects("graph1").Activate NbSeries = ActiveChart.SeriesCollection.Count For J = 1 To NbSeries If ActiveChart.SeriesCollection(J).Name = "Seuil" Then ActiveChart.SeriesCollection("Seuil").Delete Exit For End If Next J NbSeries = ActiveChart.SeriesCollection.Count ActiveChart.SeriesCollection.NewSeries ActiveChart.SeriesCollection(NbSeries + 1).Name = "Seuil" ActiveChart.SeriesCollection("Seuil").XValues = "={" & XmiN & "," & XmaX & "}" ActiveChart.SeriesCollection("Seuil").Values = "={0.4,0.4}" End Sub

---

En rouge c'est ce que j'ai rajouté (pense juste à mettre le bon nom de page et le bon non de graph). Tu remarqueras que j'ai viré

Code:

---

Nbseries=Nbseries-1

---

mais que j'ai rajouté une ligne qui fait la même chose en dessous (c'est juste que je préfère ;))

Moi en exécutant ce bout de code ça me donne une droite horizontale d'ordonnée 0.4 et d'abscisse entre 1 et 3

Citation:

---

Envoyé par ouskel'n'or

Pas besoin. Tu as 3 légendes utiles, tu supprimes les autres

Code:

---

1 2 3 4 5 6 7 8

Sub SupLégendesIndésirables() NbLégendes = ActiveSheet.ChartObjects("Graphique 2").Chart.Legend.LegendEntries.Count For i = NbLégendes To 4 Step -1 With ActiveSheet.ChartObjects("Graphique 2").Chart .Legend.LegendEntries(i).Delete End With Next End Sub

---

---

bah jte rapelle que y'aura 2 seuils ! pour le moment j'essaye toujours avec 1 seul mais apres y'aura aussi celui de l'autre courbe :?

bref au boulot ! car je sens mal la solution du comcombre :lol: (un présentiment :P )

Ben cad que je pense que ma solution reste quand même plus simple (tracé une horizontale avec deux pts c'est quand même pas la mort non). Le seul problème ça va être la gestion des dates (même si je pense que qqun pourrait te répondre facilement) après tu fais comme tu veux :lol:

Ceci dit, même si ce qu'on t'as proposé à l'air très bien et ben moi je trouve que c'est quand même un peu se compliquer la vie pour rien.

P.S pour avoir deux seuils avec mon truc ça prend une trois lignes de codes en plus (vu que tu connaîs déjà Xmin et Xmax, il te suffit juste de créer une nouvelle série avec une autre ordonnée, riend e plus simple ;) )

j'ai un souci sur cette ligne :

Code:

---

Sheets("ev78").ChartObjects("graph4").Activate

---

toi ton graph est dans un feuille non? car t'avais mis worksheets...

du coup j'ai du remplacer comme ca :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Sub Test()   Dim XmiN, XmaX As Variant Dim NbSeries, J As Integer   XmiN = 1 XmaX = 3   Sheets("ev78").Activate 'ChartObjects("graph4").Activate NbSeries = ActiveChart.SeriesCollection.Count   For J = 1 To NbSeries If ActiveChart.SeriesCollection(J).Name = "Seuil" Then ActiveChart.SeriesCollection("Seuil").Delete Exit For End If Next J   NbSeries = ActiveChart.SeriesCollection.Count   ActiveChart.SeriesCollection.NewSeries ActiveChart.SeriesCollection(NbSeries + 1).Name = "Seuil" ActiveChart.SeriesCollection("Seuil").XValues = "={" & XmiN & "," & XmaX & "}" ActiveChart.SeriesCollection("Seuil").Values = "={0.4,0.4}"   End Sub

---

et toujours le meme souci !

dis moi tu a bien 3 valeurs sur ton graph? 1,2 et 3? et pas 1 et 3 ??

Effectivement si ton graph n'est pas ds une feuille il faut bien mettre ça

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Sub Test() Dim XmiN, XmaX As Variant Dim NbSeries, J As Integer XmiN = 1 XmaX = 3 Charts("Graph1").Activate NbSeries = ActiveChart.SeriesCollection.Count For J = 1 To NbSeries If ActiveChart.SeriesCollection(J).Name = "Seuil" Then ActiveChart.SeriesCollection("Seuil").Delete Exit For End If Next J NbSeries = ActiveChart.SeriesCollection.Count ActiveChart.SeriesCollection.NewSeries ActiveChart.SeriesCollection(NbSeries + 1).Name = "Seuil" MsgBox XmaX ActiveChart.SeriesCollection("Seuil").XValues = "={" & XmiN & "," & XmaX & "}" ActiveChart.SeriesCollection("Seuil").Values = "={0.4,0.4}" End Sub

---

J'ai rajouté un

Code:

---

msgbox

---

pour que tu me dises combien vaut xmax juste avant que le code mette les valeurs d'abscisses.

Si tu me dis qu'il vaut 3 alors je comprends plus rien parceque du coup les abscisse devraient entre 1 et 3 du coup.

Tu peux aussi regarder direct sur le graphique. Une fois la série créée fait un clic droit et regarde les données qu'il y a pour la série "Seuil".
En particulier sur l'abscisse. Tu devrais avoir

Code:

---

"={1,3}"

---

valeur de seuil dans lse données du graphique

Citation:

---

={0,4.0,4}

---

pour l'etiquette des abscisse

Citation:

---

=exemple!$A$1:$A$3

---

msgbox

Citation:

---

xmax = 3

---

envoie un fichier exemple ca ira plus vite ;)

Là j'ai recrée carrement une nouvelle feuille clean et j'ai eu ces valeurs...

Voilà un exemple

J'ai un graph avec deux séries dont le détail est sur la page 1.

Quand tu exécutes la macro test tu verras bien le seuil apparaître sur le graph. (il est en violet pas trop visible mais bon ;))

En plus comme je suis gentil ;) je t'ai rajouté un deuxième seuil sur l'axe secondaire des ordonnées.

Dis moi si là ça va?

P.S : le fichier joint est en .txt n'oiublies de le repasser en .xls avant de l'ouvrir :P