Courbe point par point

JOZAN · 23 Octobre 2003

Bonjour,
Dans le cadre d'un tpe sur les toiles d'araignées, élève de terminale S, je cherche à tracer une spirale sur excel ( logarithmique et archimède dont j'ai les equations ) cependant, il faudrait que celle ci soit tracée point par point c'est à dire que l'on voit la courbe se tracer petit à petit
Comment puis-je le faire avec excel sinon connaissez vous un autre logiciel
Merci de votre compréhension
Thibault JOZAN

PhiBou · 24 Octobre 2003

Bonjour JOZAN, Le Forum

Une macro que j'avais mise au point il y a quelque temps...
Les données étant dans "Feuil1" colonne B et C

Sub Graphe_Point_Par_Point()
Xmin = -2
Xmax = 2
Ymin = -2
Ymax = 2
NbrePoints = 43
Tempo = 0.2 ' En secondes
Charts.Add
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("B1:C1")
With ActiveChart.Axes(xlValue)
.MinimumScale = Xmin
.MaximumScale = Xmax
End With
ActiveChart.Axes(xlCategory).Select
With ActiveChart.Axes(xlCategory)
.MinimumScale = Ymin
.MaximumScale = Ymax
End With
For i = 1 To NbrePoints
ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("B1:C" & i), PlotBy:=xlColumns
Start = Timer
Do While Timer < Start + Tempo
DoEvents
Loop
Next i
End Sub

A adapter les variables Xmin, Xmax, Ymin, Ymax et Tempo (delta t entre 2 points) selon les besoins.

Il te restera plus qu'à modifier le ActiveChart.ChartType pour le
tracé toile d'araignée.

Bonne journée

PhiBou

Courbe point par point

JOZAN

Guest

PhiBou

Guest

Discussions similaires