Discussion :

[boboss123]

bonjour,

Dans une cellule excel, j'ai la définition d'une fonction. ex: "5*x^2 + 3*x + 2"
En VBA, je récupère la valeur de cette cellule dans une variable de type String.

Comment faire pour remplacer "x" par une valeur et retourner le resultat du calcul dans une variable de type Single ?

merci d'avance,

[PPz78]

Bonsoir,

Si j'ai bien compris dans une cellule tu as le texte décrivant la formule :"5*x^2 + 3*x + 2"
Ensuite il faut interpréter la formule et faire le calcul, cela me semble compliqué surtout si tu souhaites que cela marche pour toutes les formules.

Tu as aussi une solution en utilisant Excel, tu recopies la formule dans une cellule en ajoutant "=" devant et en remplaçant les "x" par l'adresse d'une cellule.
Il te suffit de mettre la valeur souhaitée dans la cellule pour récupérer le résultat du calcul.

Une autre solution si tu es costaud en Excel : par macro tu génère un autre fichier avec une macro qui calcule la fonction en question. Ensuite il faut appeler la dite macro pour avoir le résultat.

Bon chance.

PPz

[mercatog]

Dans un module public

Code :

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

1
2
3
Public Function f(ByVal fct As String, ByVal Xo As Double) As Double
f = Evaluate(Replace(fct, "x", Xo))
End Function

Exemple d'utilisation
en B1: la fonction en x: 5*x^2 + 3*x + 2
en B2: le point Xo: -1
en B3: =f(B1; B2)

Attention quand même, cette approximation ne fonctionnera pas pour les fonctions comportant un x (exemple exp: l'exponentiel), sinon partout on prendra comme paramètre la lettre µ par exemple.

[boboss123]

Dans un module public

Code :

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

1
2
3
Public Function f(ByVal fct As String, ByVal Xo As Double) As Double
f = Evaluate(Replace(fct, "x", Xo))
End Function

merci, c'est parfait