cerhu > microsoft.* > microsoft.excel

garnote (04/01/2004, 20h44)
Bonsoir mes vous tous,

Je tente de mettre au point une macro qui donnerait
le minimum et le maximum d'une fonction sur un
intervalle quelconque. Celle-ci semble compétente
pour au moins 100 000 cas !
Pourrais-je avoir votre avis sur les tenants et les aboutissants
de ladite macro ?

Sub Minimum_Et_Maximum_De_f_Sur_Un_Intervalle()
On Error Resume Next
f = InputBox("Écrire une fonction en x suivi des bornes" & _
vbNewLine & "séparées par des deux-points." & _
vbNewLine & "Exemple: x^3-12*x^2+x-6:-2:-12:20,345" & _
vbNewLine & "Si vous entrez des nombres décimaux, utilisez la virgule." _
, "Votre fonction")
ff = Split(f, ":")
fm = Replace(ff(0), "-x", "+0-x")
pas = (ff(2) - ff(1)) / 9999
gros = Evaluate(Replace(Replace(ff(0), "-x", "+0-x"), "x", ff(1)))
petit = gros
For i = ff(1) To ff(2) Step pas
n = Str(i)
v = Evaluate(Replace(fm, "x", n))
If v >= gros Then gros = v
If v <= petit Then petit = v
Next i
MsgBox "Minimum : " & Format(petit, "0.000") & _
vbNewLine & "Maximum : " & Format(gros, "0.000")
End Sub

Serge
Fanfan (04/01/2004, 20h51)
"garnote" <rien> a écrit dans le message de
news:9459
> Bonsoir mes vous tous,
> Je tente de mettre au point une macro qui donnerait
> le minimum et le maximum d'une fonction sur un
> intervalle quelconque. Celle-ci semble compétente
> pour au moins 100 000 cas !


C'est très compliqué et pas à la portée du premier venu car il faut d'abord
faire l'étude de cette fonction dans l'intervalle défini.
Discussions similaires
quelque chose là ?

Quelque chose

J'ai quelque chose à dire

Cherche quelque chose


Fuseau horaire GMT +2. Il est actuellement 19h40. | Privacy Policy