Voici une tite macro qui évalue la valeur d'une fonction
pour x = 2. Mais elle échoue quand elle rencontre
Sqr(x) et Exp(x). Quelqu'un saurait-il me dire pourquoi ?
Et toujours ma zone de liste qui disparaît quand je
demande un Plein écran ( 10/10/03 16:57 ) !!!
Sub Valeur()
nf = Array("1+x^2", "sin(x)", "abs(x)", "Sqr(x)", "Exp(x)")
For i = 0 To 4
MsgBox Evaluate(Replace(nf(i), "x", 2))
Next i
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
AV
2 raisons : N°1 : "Replace(......,"x"....) " remplace les x de la chaîne donc Exp(x) devient E2p(2) !! N°2 la fonction "Sqr" est inconnue pour XL ! Ne serait-ce pas Sqrt (racine) ?
Alternative :
Sub Valeur() nf = Array("1+y^2", "sin(y)", "abs(y)", "Sqrt(y)", "Exp(y)") For i = 0 To 4 MsgBox Evaluate(Replace(nf(i), "y", 2)) Next i End Sub
AV
"garnote" a écrit dans le message news: 6Tcib.156829$
Bonjour à tous,
Voici une tite macro qui évalue la valeur d'une fonction pour x = 2. Mais elle échoue quand elle rencontre Sqr(x) et Exp(x). Quelqu'un saurait-il me dire pourquoi ? Et toujours ma zone de liste qui disparaît quand je demande un Plein écran ( 10/10/03 16:57 ) !!!
Sub Valeur() nf = Array("1+x^2", "sin(x)", "abs(x)", "Sqr(x)", "Exp(x)") For i = 0 To 4 MsgBox Evaluate(Replace(nf(i), "x", 2)) Next i End Sub
Merci et bon dimanche
Serge
2 raisons :
N°1 : "Replace(......,"x"....) " remplace les x de la chaîne donc Exp(x)
devient E2p(2) !!
N°2 la fonction "Sqr" est inconnue pour XL !
Ne serait-ce pas Sqrt (racine) ?
Alternative :
Sub Valeur()
nf = Array("1+y^2", "sin(y)", "abs(y)", "Sqrt(y)", "Exp(y)")
For i = 0 To 4
MsgBox Evaluate(Replace(nf(i), "y", 2))
Next i
End Sub
AV
"garnote" <rien@absent.net> a écrit dans le message news:
6Tcib.156829$C92.141765@charlie.risq.qc.ca...
Bonjour à tous,
Voici une tite macro qui évalue la valeur d'une fonction
pour x = 2. Mais elle échoue quand elle rencontre
Sqr(x) et Exp(x). Quelqu'un saurait-il me dire pourquoi ?
Et toujours ma zone de liste qui disparaît quand je
demande un Plein écran ( 10/10/03 16:57 ) !!!
Sub Valeur()
nf = Array("1+x^2", "sin(x)", "abs(x)", "Sqr(x)", "Exp(x)")
For i = 0 To 4
MsgBox Evaluate(Replace(nf(i), "x", 2))
Next i
End Sub
2 raisons : N°1 : "Replace(......,"x"....) " remplace les x de la chaîne donc Exp(x) devient E2p(2) !! N°2 la fonction "Sqr" est inconnue pour XL ! Ne serait-ce pas Sqrt (racine) ?
Alternative :
Sub Valeur() nf = Array("1+y^2", "sin(y)", "abs(y)", "Sqrt(y)", "Exp(y)") For i = 0 To 4 MsgBox Evaluate(Replace(nf(i), "y", 2)) Next i End Sub
AV
"garnote" a écrit dans le message news: 6Tcib.156829$
Bonjour à tous,
Voici une tite macro qui évalue la valeur d'une fonction pour x = 2. Mais elle échoue quand elle rencontre Sqr(x) et Exp(x). Quelqu'un saurait-il me dire pourquoi ? Et toujours ma zone de liste qui disparaît quand je demande un Plein écran ( 10/10/03 16:57 ) !!!
Sub Valeur() nf = Array("1+x^2", "sin(x)", "abs(x)", "Sqr(x)", "Exp(x)") For i = 0 To 4 MsgBox Evaluate(Replace(nf(i), "x", 2)) Next i End Sub
Merci et bon dimanche
Serge
garnote
N°1 : "Replace(......,"x"....) " remplace les x de la chaîne donc Exp(x) devient E2p(2) !! Mais c'est bien sûr !
N°2 la fonction "Sqr" est inconnue pour XL ! Ne serait-ce pas Sqrt (racine) ? On ne peut donc pas utiliser le Sqr de VBA.
Merci bien
Serge
"AV" a écrit dans le message de news: bmbn10$c6p$
2 raisons : N°1 : "Replace(......,"x"....) " remplace les x de la chaîne donc Exp(x) devient E2p(2) !! N°2 la fonction "Sqr" est inconnue pour XL ! Ne serait-ce pas Sqrt (racine) ?
Alternative :
Sub Valeur() nf = Array("1+y^2", "sin(y)", "abs(y)", "Sqrt(y)", "Exp(y)") For i = 0 To 4 MsgBox Evaluate(Replace(nf(i), "y", 2)) Next i End Sub
AV
"garnote" a écrit dans le message news: 6Tcib.156829$
Bonjour à tous,
Voici une tite macro qui évalue la valeur d'une fonction pour x = 2. Mais elle échoue quand elle rencontre Sqr(x) et Exp(x). Quelqu'un saurait-il me dire pourquoi ? Et toujours ma zone de liste qui disparaît quand je demande un Plein écran ( 10/10/03 16:57 ) !!!
Sub Valeur() nf = Array("1+x^2", "sin(x)", "abs(x)", "Sqr(x)", "Exp(x)") For i = 0 To 4 MsgBox Evaluate(Replace(nf(i), "x", 2)) Next i End Sub
Merci et bon dimanche
Serge
N°1 : "Replace(......,"x"....) " remplace les x de la chaîne donc Exp(x)
devient E2p(2) !!
Mais c'est bien sûr !
N°2 la fonction "Sqr" est inconnue pour XL !
Ne serait-ce pas Sqrt (racine) ?
On ne peut donc pas utiliser le Sqr de VBA.
Merci bien
Serge
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de news:
bmbn10$c6p$1@news-reader5.wanadoo.fr...
2 raisons :
N°1 : "Replace(......,"x"....) " remplace les x de la chaîne donc Exp(x)
devient E2p(2) !!
N°2 la fonction "Sqr" est inconnue pour XL !
Ne serait-ce pas Sqrt (racine) ?
Alternative :
Sub Valeur()
nf = Array("1+y^2", "sin(y)", "abs(y)", "Sqrt(y)", "Exp(y)")
For i = 0 To 4
MsgBox Evaluate(Replace(nf(i), "y", 2))
Next i
End Sub
AV
"garnote" <rien@absent.net> a écrit dans le message news:
6Tcib.156829$C92.141765@charlie.risq.qc.ca...
Bonjour à tous,
Voici une tite macro qui évalue la valeur d'une fonction
pour x = 2. Mais elle échoue quand elle rencontre
Sqr(x) et Exp(x). Quelqu'un saurait-il me dire pourquoi ?
Et toujours ma zone de liste qui disparaît quand je
demande un Plein écran ( 10/10/03 16:57 ) !!!
Sub Valeur()
nf = Array("1+x^2", "sin(x)", "abs(x)", "Sqr(x)", "Exp(x)")
For i = 0 To 4
MsgBox Evaluate(Replace(nf(i), "x", 2))
Next i
End Sub
N°1 : "Replace(......,"x"....) " remplace les x de la chaîne donc Exp(x) devient E2p(2) !! Mais c'est bien sûr !
N°2 la fonction "Sqr" est inconnue pour XL ! Ne serait-ce pas Sqrt (racine) ? On ne peut donc pas utiliser le Sqr de VBA.
Merci bien
Serge
"AV" a écrit dans le message de news: bmbn10$c6p$
2 raisons : N°1 : "Replace(......,"x"....) " remplace les x de la chaîne donc Exp(x) devient E2p(2) !! N°2 la fonction "Sqr" est inconnue pour XL ! Ne serait-ce pas Sqrt (racine) ?
Alternative :
Sub Valeur() nf = Array("1+y^2", "sin(y)", "abs(y)", "Sqrt(y)", "Exp(y)") For i = 0 To 4 MsgBox Evaluate(Replace(nf(i), "y", 2)) Next i End Sub
AV
"garnote" a écrit dans le message news: 6Tcib.156829$
Bonjour à tous,
Voici une tite macro qui évalue la valeur d'une fonction pour x = 2. Mais elle échoue quand elle rencontre Sqr(x) et Exp(x). Quelqu'un saurait-il me dire pourquoi ? Et toujours ma zone de liste qui disparaît quand je demande un Plein écran ( 10/10/03 16:57 ) !!!
Sub Valeur() nf = Array("1+x^2", "sin(x)", "abs(x)", "Sqr(x)", "Exp(x)") For i = 0 To 4 MsgBox Evaluate(Replace(nf(i), "x", 2)) Next i End Sub
Merci et bon dimanche
Serge
AV
On ne peut donc pas utiliser le Sqr de VBA.
Ben pas avec la méthode Evaluate... Ou alors tu passes tout en fonction vba sans passer par Evaluate
AV
On ne peut donc pas utiliser le Sqr de VBA.
Ben pas avec la méthode Evaluate...
Ou alors tu passes tout en fonction vba sans passer par Evaluate
