tracer un courbe d'équation

[raven]

Bonjour a tous les Experts.
Je voudrais savoir s'il existe dans Excel un outil ou bien via (Vba) permettant d'obtenir une courbe à partir de son équation. Par exemple écrire "y=2x+1" ou "y=x^2+1" et obtenir la droite ou le parabole directement sans construire d'abord des points.
Merci ce serait bien si vous m'aidiez.Cordialement

 

[Lone-wolf]

Re : tracer un courbe d'équation

Bonsoir raven

Essaie comme ceci, mais sans conviction.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
x = 3.14
y = Range("d5")
Range("d5") = Evaluate(x ^ 2 + 1)
End Sub

 

[job75]

Re : tracer un courbe d'équation

Bonjour raven, Lone-wolf,

Pour tracer une courbe il faut calculer des points, voyez le fichier joint et cette macro :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A2:E2]) Is Nothing Then Exit Sub
Dim n&, pas, f$, i&, x
n = 200 'nombre d'intervalles, modifiable
pas = ([E2] - [C2]) / n
f = LCase(Mid([A2], 3))
Application.ScreenUpdating = False
Range("A5:B" & Rows.Count).ClearContents 'RAZ
For i = 0 To n
  x = [C2] + pas * i
  [A5].Offset(i) = x
  [B5].Offset(i) = Evaluate(Replace(Replace(f, "x", x), ",", "."))
Next
If ChartObjects.Count Then ChartObjects.Delete
With ChartObjects.Add(Left:=120, Width:=500, Top:=75, Height:=300).Chart
  .ChartType = xlXYScatterSmoothNoMarkers
  .SetSourceData Source:=[A5].Resize(n + 1, 2)
  .SeriesCollection(1).Name = [A2]
  .SetElement msoElementLegendNone
End With
End Sub

Edit : s'il faut mettre beaucoup d'équations dans la liste de validation on ne pourra pas les écrire en dur dans la liste.

Il faudra mettre les textes dans une plage de cellules.

A+

 

[ROGER2327]

Re : tracer un courbe d'équation

Bonjour à tous.

Une variante sans écriture dans la feuille de calcul.​

Bonne journée.


ℝOGER2327
#8284

Samedi 14 Gidouille 143 (Saint Colon, artilleur - fête Suprême Quarte)
10 Messidor An CCXXIV, 1,2683h - faucille
2016-W26-2T03:02:38Z


P. s. : pièce jointe supprimée. Voir le message suivant.

 

[ROGER2327]

Re : tracer un courbe d'équation

Suite...

Je me suis trompé de classeur. Voici le bon.​

Et maintenant, en route pour la manif. Bonne journée.


ℝOGER2327
#8285

Samedi 14 Gidouille 143 (Saint Colon, artilleur - fête Suprême Quarte)
10 Messidor An CCXXIV, 4,9081h - faucille
2016-W26-2T11:46:46Z

 

[ROGER2327]

Re : tracer un courbe d'équation

Suite...

Vu la vivacité de l'intérêt porté à nos propositions par le demandeur, il serait inconvenant de ne pas faire un effort pour lui en donner un peu plus.
En pièce jointe, version à quatre tracés simultanés, autorisant l'utilisation de l'axe secondaire pour les ordonnées.​

Bonne soirée.


ℝOGER2327
#8288

Lundi 16 Gidouille 143 (Saint Inventaire, poète - fête Suprême Quarte)
12 Messidor An CCXXIV, 7,6183h - artichaut
2016-W26-4T18:17:03Z