[Résolu][Calc] Fonction de calcul suivant un point donné

[julior]

Bonjour,
je souhaite créer une macro qui me permet de calculer la valeur d'une fonction mathématiques en un point x donné.
Après plusieurs essais et beaucoup de recherche j'ai trouvé ce que je voulais mais cela ne marche que sous Excel.
Voici le code :

Code : Tout sélectionner

Function F(ByVal Equation As String, Optional ByVal X As Variant = 0) As Double
'Evalue la fonction f(x) au point x

'MISE EN FORME
Equation = UCase(Equation)
With WorksheetFunction
'évite la confusion de l'exponentielle EXP avec exp et X
Equation = .Substitute(Equation, "EXP", "exp")
'met la valeur X à la place de la lettre X
Equation = .Substitute(Equation, "X", X)
'converti virgule en point décimal
Equation = .Substitute(Equation, ",", ".")
'Interprète )( par )*(
Equation = .Substitute(Equation, ")(", ")*(")
End With

'calcul de l'expresion
F = Evaluate(Equation)

End Function

Je n'arrive pas à traduire cette macro pour open office.
Quelqu'un pourrait il m'aider svp.
Merci d'avance
Ju

[MrPropre]

Bonjour,

Cette section a des règles très précises que vous devez obligatoirement suivre pour obtenir de l'aide.

Il est demandé aux auteurs de faire précéder le titre de leur question d'une balise adéquate. Ce balisage est extrêmement important car il permet d'avoir une base de connaissance optimum en cas de recherche.

Lisez ce fil pour savoir quelle balise utiliser :
http://user.services.openoffice.org/fr/ ... html#27295

N'oubliez pas que le terme "Macro" ou "OpenOffice" ne doit pas être employé car il est implicite. Essayer de synthétiser au mieux ce que vous cherchez à faire.

Un titre accrocheur vous permettra d'une part d'être aidé plus rapidement et d'autre part, d'enrichir notre base de connaissances.

Nous l'avons fait pour vous cette fois-ci mais lors de votre prochaine question, nous vous remercions de le faire vous-même sous peine de voir votre sujet verrouillé.

Merci de votre collaboration.

[squenson]

Cet ancien message (en anglais) décrit une méthode pour créer une fonction EVAL:
http://www.oooforum.org/forum/viewtopic ... eval+macro
Cela devrait te donner une excellente piste, il "suffit" d'utiliser la fonction SUBSTITUE() pour la variable x et le signe décimal.

[julior]

Merci beaucoup et désolé de ne pas avoir respecter les règles de post.
Ju