Discussion :

[BackDev1]

Bonjour à toutes et à tous,

J’ai créé une macro, qui fonctionne parfaitement, et qui me permet de créer un graphique puis ajouter les courbes que je désire dedans.
Jusque-là j’utilise la sélection de donnée via une plage, ainsi*:

Code :

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

1
2
3
4
5
6
7
Set Serie = ActiveChart. SeriesCollection. NewSeries
With Serie
	. Values = YPlage
	. XValues = XPlage
	. Name = CurveName
	. AxisGroup = CurvesType(k)(2)
End With

Je fais ainsi, parce que mes données sont disponibles dans le fichier Excel. C’est pratique et rapide.

Toutefois, je dois désormais faire de nouvelles courbes qui sont des interpolations de valeurs. J'arrive à calculer ces valeurs, et j'avais prévu comme possibilité d'écrire ces valeurs dans une colonne dédiée à ceci, puis d'utiliser la méthode ci-dessus pour créer la courbe dédiée.
Toutefois, le temps d'écriture est assez long (on atteint presque la seconde), alors même que j'ai désactivé la mise à jour de l'écran via «*Application. Screenupdating = False*». Si je ne fais pas l'écriture et j'enregistre les valeurs calculées dans une variable, il n'y a pas ce ralentissement.

Je voudrais donc savoir s'il y a moyen de passer de la méthode ci-dessus àcelle-ci-dessous directement issue de l'enregistreur de macro, donc en mettant les valeurs de mon calcul directement dans les valeurs des axes*:

Code :

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

1
2
ActiveChart. FullSeriesCollection(3). XValues = "={1000,1500,2000,2500}"
ActiveChart. FullSeriesCollection(3). Values = "={0.02,0.02,0.02,0.03}"

Ce code, je pense sans trop me tromper pouvoir le transformer aisni*:

Code :

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

1
2
3
4
5
6
Set Serie = ActiveChart. SeriesCollection. NewSeriesWith Serie
	. Values = "={1000,1500,2000,2500}"
	. XValues = "={0.02,0.02,0.02,0.03}"
	. Name = CurveName
	. AxisGroup = CurvesType(k)(2)
End With

Toutefois, il me reste les valeurs entre guillemets, je ne sais pas comment les compléter correctement. Je suis donc ouvert à vos connaissances pour continuer dans cette voie.

[Daniel.C]

Bonjour,

Tu dois écrire les valeurs dans un tableau (array). Par exemple :

Code :

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

1
2
3
4
5
    Dim Tabl(2) As Double
  Tabl(0) = 1000
  Tabl(1) = 1500
  Tabl(2) = 2000
  ActiveChart.FullSeriesCollection(3).Values = Tabl

[mat955]

Bonjour,

Il est intéressant d'aller voir dans l'aide Microsoft quel type de données est attendu pour cette propriété.

Renvoie ou définit un tableau de valeurs X pour une série de graphiques. La **** propriété propriétéx peut être définie sur une plage dans une feuille de calcul ou sur un tableau de valeurs

Cela veut dire que tu as raison, on peut effectivement y mettre un tableau au lieu d'une plage de cellule.

Quand à la réalisation, il suffit de déclarer une variable tableau, et de lui mettre les valeurs que tu veux :

Code :

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

1
2
3
Dim Tableau() as Double
 
Tableau = Array(1000,1500,2000,2500)

Ensuite tu utilises cette même variable dans ton code qui a l'air de fonctionner :

Code :

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

1
2
3
4
5
6
7
Set Serie = ActiveChart. SeriesCollection. NewSeries
With Serie
	. Values = YPlage
	. XValues = Tableau
	. Name = CurveName
	. AxisGroup = CurvesType(k)(2)
End With

Je te laisse adapter le reste

[BackDev1]

Merci à vous 2 pour votre réponse qui fonctionne parfaitement.

En effet la documentation l'explique bien, j'aurai pu commencé par là.