Discussion :

[mathilde13870]

Bonjour,

J'ai un petit problème avec la création d'un graphique dans une macro.

J'ai utilisé l'enregistreur pour avoir une base et m'en inspiré, et regardé un peu sur les forums, et la syntax me semblait plutot simple, mais impossible de l'exécuter finalement.

Ou plutôt le graphique s'affiche mais pas du tout avec la bonne courbe, ils tracent des séries un peu au hasard. Est ce que c'ets un problème de syntax ? J'ai vérifié, la variable "Nb_mois" est bien passée donc ça ne viendrait à priori pas de la

Code :

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

1
2
3
4
5
6
Charts.Add
ActiveChart.ChartType = xlXYScatterSmooth
    ActiveChart.SeriesCollection(1).Name = _
   "=""Activité en fonction du cumul de charge"""
    ActiveChart.SeriesCollection(1).XValues = Range(Cells(17, 2), Cells(17, Nb_Mois))
    ActiveChart.SeriesCollection(1).Values = Range(Cells(5, 2), Cells(5, Nb_Mois))

[vanhoa]

Bonjour

Je pense que c'est parce que tu ne precise pas le fait que tu ajoutes une nouvelle series. Au passage, ton code permets de creer une feuille graphique et non un graphique dans une feuille (qui se nommerait a ce moment chartobject).

Je suis etonne que le graphique marche en mettant juste Range(Cells......) car pour moi, en general je dois definir mes plage de donnees en tant que range avant

J'ai teste ce code (en ayant definis Nb_Mois) et ca marche:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
 
sub graphique ()
dim plage1 as range, plage2 as range
'j'imagine que tu as egalement defini ta variable Nb_Mois dans ta procedure
 
'j'ai mis sheet1 par defaut mais remplace par le nom de ta feuille contenant tes donnees
set plage1=Sheet1.Range(Cells(17, 2), Cells(17, Nb_Mois))
set plage2=Sheet1.Range(Cells(5, 2), Cells(5, Nb_Mois))
 
ThisWorkbook.Charts.Add
ActiveChart.ChartType = xlXYScatterSmooth
ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(1).Name = "=""Activité en fonction du cumul de charge"""
    ActiveChart.SeriesCollection(1).XValues = plage1
    ActiveChart.SeriesCollection(1).Values = plage2
 
end sub

[mathilde13870]

ça fonctionne merci !

Par contre il m'affiche la bonne courbe mais également d'autres séries prises au hasard dans le tableau.

Est ce le fait que j'ai déclaré une série ?

Et si je ne veux pas écrire le code en ajoutant des séries mais directement la courbe sur le graphique (je sais pas si c'est compréhsensible la !), j'enlève "seriescollection" ?

Et question subsidiaire à y être : Je veux ensuite rajouter une courbe mais défini dans une autre macro, comment faire ? Est ce que si je donne un nom au graphique et que dans l'autre macro je mets "SeriesCollection(2)" ce sera bon ?


Merci beaucoup pour ton aide, c'est pour le boulot, donc rester coincée ce n'est jamais facile !

[vanhoa]

En creant ton cette feuille Chart, tu as a la base aucune serie. C'est en utilisant .NewSeries que tu crees ta premieres series.

Je ne vois donc pas pourquoi tu as une autre series qui affiche des valeurs au hasard. Quand tu cliques droit sur ton graph, tu as combien de series?

Au passage, je remarque que ta selection est: Range(Cells(5, 2), Cells(5, Nb_Mois))
si tu as 12 mois, d'apres le nom de ta variable j'en deduis que Nb_Mois=12 c'est bien ca?
Si oui, a ce moment la, ta selection doit etre: Range(Cells(5, 2), Cells(5, Nb_Mois+1))
car ta premiere colonne c'est la 2eme et non la premiere!

Si non, et bien je ne vois pas pourquoi tu as d'autres valeurs que la plage de donnees definie

Est ce que c'est seulement ton code? est ce que tu applique ce code a l'interieur d'une procedure qui possede du code supplementaire et qui peut faire varier cette plage de donnees?


Pour inserer une courbe d'une autre macro dans ton 1er graphe, pour ma part, je pense que tu n'as pas d'autre choix que de creer une nouvelle serie (donc .newseries). Ensuite, dans cette autre macro, a un moment tu as du definir ta series, je donnerai donc un nom a cette serie de valeurs (via la methode Names.Add) et je reutiliserai ce nom dans la procedure du 1er graph. Quand tu fais le .newseries, tu fais juste SeriesCollection(2).Values = nom que tu as donne

je ne sais pas si j'ai ete precis dans mes explications

Mais sinon si tu veux simplement rajouter une courbe, tu as simplement a reselctionner la plage de donnees en question non? ca tient en 2 ligne de code.
Ou alors j'ai peut etre mal compris la question

[mathilde13870]

Finalement je n'ai plus le problème de plusieurs séries, ça devait être un reste d'un de mes essais parcequ'en faisant re retourner ça a fonctionné !

Et oui j'ai corrigé pour Nb_mois+1, sinon ça ne fonctionnait pas !


En fait je pense qu'il faut que je mette la partie du code sur le graphique dans la feuille elle même, parceque la elle se trouve dans le code de l'userform, et du coup je crois que ça plante un peu.

Je vais tenter de me dépatouiller et je reviens vers toi si je n'y arrive pas !

Merci =)

[Gado2600]

Bonjour,
Je n'ai pas tout lu dans le topic mais ai noté quelques points :
Lorsque tu génères les données d'un graphique sous Excel, je crois qu'il faut avant tout supprimer les éventuelles séries présentes.
J'ai développé récemment une application concernant les graphes sous Excel et j'ai rencontré ce type de problème.

Ensuite, concernant le code dans l'userform, je ne pense pas que cela ait d'impacts. Par contre, j'identifierai le graphique et les séries avec des "set".

Cordialement,

[mathilde13870]

Des set comme pour les plages c'est ça ?
Oui ce sera plus simple à manipuler

Et pour les séries je crois que c'est ce qui s'est passé, je les ai supprimé et je n'ai plus se problème

[Gado2600]

Ok.
Si problème, mets ton code actuel afin de voir où tu en es.
Cordialement,