Optimisation pour tracer des courbes sur un graphique
Bonjours tous le monde,
Une de mais macro me permet de sélectionner les données à tracer dans un graphique, une fois celle-ci sélectionner je changer le type pointeur ainsi que la taille de celui-ci. Le nombre de point à tracer étant important je voulais savoir si on pouvais définir le type de pointeur ainsi que leur taille avant de les tracer et non les changer une fois qu'il ont été générer ??
Le code de ma macro pour la selection d'une des courbes:
Sheets("feuil3").Select
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ChartType = xlXYScatter
Application.CutCopyMode = False
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Name = "=Feuil3!$AD$7"
ActiveChart.SeriesCollection(1).XValues = "=Feuil2!$D$2:$D$1048576"
ActiveChart.SeriesCollection(1).Values = "=Feuil2!$E$2:$E$1048576"
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.SeriesCollection(1).Select
With Selection
.MarkerStyle = 2
.MarkerSize = 7
End With
Selection.MarkerStyle = 5
Selection.MarkerSize = 2
ActiveChart.PlotArea.Select
Range("F3").Select
Je dois parfois tracer 5 courbe suivant le même principe, le temps de réalisation est alors de 1min environ.
L'objectif est de diminuer se temps de réalisation.
Merci d'avance.
Guillaume
Bonjour Yoda le forum
j'ai un peu peur de te répondre car je pense que comme sur l'autre post je n'aurai même pas un merci, ou seulement une réponse.
juste la case cochée Résolu, bravo continu comme cela
a+
Papou
paritec a écrit :Bonjour Yoda le forum
j'ai un peu peur de te répondre car je pense que comme sur l'autre post je n'aurai même pas un merci, ou seulement une réponse.
juste la case cochée Résolu, bravo continu comme cela
a+
Papou
Bonjour paritec, désolé si je ne t'es pas répondu après que tu sois sur mon poste. J'essaye toujours de répondre aux personne qui m'aide, je dois avoir 5 ou 6 poste différent d'ouvert en se moment et je suis assez concentré dans se que je code.
J'ai du oublié de te répondre étant content que tu m'ai donné la solution et que ma feuille marche. Désolé.
Bon week end.