Utiliser une fonction contenue dans une cellule

**Karrig** · 18/12/2009, 12h21

Bonjour à tous, mes compétences en VBA étant très limitées, je m'en remet à vous, professionnels aguerris de la macro en tout genre !

Voici mon problème, qui je l'espère n'en sera pas un pour au moins l'un d'entre vous

.

Je souhaiterais utiliser dans une macro l'expression d'une formule ( f(x) = ax + blabla ) entrée dans une cellule d'une feuille Excel.
Utiliser cette formule dans une function, plus précisément, donc x serait variable.

Le problème étant donc de récupérer cette chaîne de caractères et de l'utiliser pour faire des calculs en fonction des x qu'on lui envoi.

J'espère avoir été suffisamment clair dans ces brèves explications et j'espère également que l'un ou plusieurs d'entre vous auront une solution ( et éventuellement un petit exemple pr la syntaxe etc... ) à me proposer.

Merci

**bosk1000** · 18/12/2009, 12h54

bonjour

si c'est un formule qui existe dans une cellule (si je comprend bien) :

1) je me place sur la cellue
2) j'ctive l'enregistrement d'une macro (appelle la test par exemple)
3) sur la cellule tu appuie sur la touche f2, pour activer la cellule
4) puis entrer
5) tu arrete l'enregistrement

et normalement tu as la formule en VBA de diisponible

**Karrig** · 18/12/2009, 13h25

Tout d'abord merci, cependant je ne vois pas très bien ou vous voulez en venir3

C'est bien une formule qui est dans une cellule, c'est d'ailleurs l'utilisateur qui la l'écrit dedans.

Je souhaite obtenir quelque chose du genre, attention les yeux, c'est probablement très faux mais ça illustre bien mon objectif :

function f(x as double) as double

f = Cells(l,c).Formula

La function reprend l'expression et lorsqu'elle est appelé par un macro, elle remplace les x de l'expression par ceux qui lui sont soumis.

Je pense que j'aurais également quelques soucis de types, mais je verrais ça dans un second temps3

J'espère avoir été un peu plus clair, merci encore mais mon problème ne semble pas encore réglé.

**bosk1000** · 18/12/2009, 14h42

quelle est la formule dans la cellule ? et dans quelle cellule ?

**Karrig** · 18/12/2009, 16h27

Et bien disons

3 * x ^ 2 + 5 * x

dans la cellule L1

**bosk1000** · 18/12/2009, 18h20

donc si je comprend bien x est la variable sur laquelle s'appliquera la formule

pour bien comprendre, il faut savoir comment tu veux utiliser ta formule
car il y a plusieurs méthode

est-ce une chaine de calcul qui va s'appliquer sur tout une colonne de chiffre donc chacun sera un x
est-ce que ton x sera le résultat d'en une cellule
est-ce que tu entrera ton x par une msgbox, ou dans un formulaire
est-ce que tu veux déclencher le calcul en cliquant sur un bouton ou une icône dans la barre d'outil ?

donc si par exemple x=5
alors le résultat attendu

3 * (5) ^ 2 + 5 * (5)= 100

est-ce que j'ai bien compris ce que tu veux ?

**Didier Gonard** · 18/12/2009, 19h19

Bonjour,

très vite fait, une piste...
j'ai ceci : 3 * x ^ 2 + 5 * x en texte dans G1

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub toto()
Dim y As String
Dim strpass As String
Dim result
 
y = 8
strpass = Cells(1, 7)
strpass = Replace(strpass, "x", y)
Debug.Print strpass
result = Evaluate(strpass)
Debug.Print result
End Sub

cordialement,

Didier

**Karrig** · 18/12/2009, 19h23

C'est en effet un calcul qui va s'appliquer à un ensemble de x qui forment une colonne.

-x prend une valeur en début de boucle, c'est un double

-cette variable x remplace le caractère "x" contenu dans le string correspondant à la formule entrée dans la cellule du tableau

Le tout est, je pense, sensé être utilisé et renvoyer en double.

C'est la phase ou la formule passe de string a double pour pouvoir effectuer un calcul, et la manière de remplacer le x dont je n'ai aucune idée

**Didier Gonard** · 18/12/2009, 20h12

Bonjour,

euh, tu as regardé le code au-dessus de ton message ,

cordialement,

Didier

**Karrig** · 18/12/2009, 21h05

Oui je l'ai regardé, je ne l'ai pas essayé comme vous me l'avez donné, j'ai directement essayé de l'appliquer à mon problème et cela ne fonctionne pas ^^.

Cependant je vous remercie pour cette piste, je vais essayer de la travailler, mais demain

.

Merci encore et bonne soirée

**mercatog** · 18/12/2009, 21h51

adapte cette fonction (celle de Ormonth)

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Function f(ByVal s As Double) As Double
Dim expr As String
Dim t
 
expr = Range("A1").Value  'en A1 la formule sous forme de f(x)=... (à l'exception de exp()
If Len(expr) > 0 Then
    t = Split(expr, "=")
    f = Evaluate(Replace(t(UBound(t)), "x", s))
End If
End Function

en A1 tu mets ta fonction (à l'exception de l'exponentiel exp(t))

**Karrig** · 27/12/2009, 11h26

Bonjour, je me remet enfin à mon projet laissé de coté durant les fêtes.

Je viens de jeter un oeil à la proposition faite par Mercatog, je l'ai meme essayée et j'avoue que j'aimerais bien 2 ou 3 petite précision sur les commandes utilisées pour essayer de la faire fonctionner.
Comme par exemple le Evaluate, le Ubound etc ...

Il y a une incompatibilité de types dans les fonctions.

Ce qui me parait étrange c'est le replace, vu que apparemment cette commande ne se destine qu'aux string. On remplace bien x string par s string, on donne bien une valeur à s, mais il ne s'agit pas du même s que précédemment.

Merci et bonnes fêtes

**mercatog** · 27/12/2009, 12h05

As tu testé la fonction?
quel est le problème?

ps. testé chez moi et fonctionnel

**Karrig** · 27/12/2009, 12h13

J'ai repris ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Function f(ByVal s As Double) As Double
Dim expr As String
Dim t
 
expr = Range("L1").value
If Len(expr) > 0 Then
 
    f = Evaluate(Replace(t(UBound(t)), "x", s))
End If
End Function

Et l'erreur est une incompatibilité de type sur la ligne

Code :

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

  f = Evaluate(Replace(t(UBound(t)), "x", s))

**mercatog** · 27/12/2009, 12h33

Etrange, ça fonctionne chez moi. (Testée dans Excel 2003)
sinon, tu peux la remplacer par

Code :

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

f = Evaluate(Replace(t(UBound(t)), "x", CStr(s)))

Testé dans Excel 2003

**Karrig** · 27/12/2009, 13h15

J'ai modifié un peu cette fonction pour arriver à :

Code :

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

1
2
3
4
5
6
7
8
9
Public Function f(ByVal s As Double) As Double
Dim expr As String
 
    expr = Range("L1").value
    expr = (Replace(expr, "x", s))
 
    f = CDbl(expr)
 
End Function

J'ai un problème au niveau du f = CDbl(expr) : une incompatibilité de type.

Ce qui précède semble bon : quand je met ma souris sur expr Excel 2007 me dit bien que expr = 2^3 ( 2 étant la 1ere valeur de la série ).

Je pense que je suis sur la bonne voie, il me faut juste un moyen de convertir ce 2^3 string en double.

**mercatog** · 27/12/2009, 13h37

Il faut faire

Code :

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

1
2
3
expr = Range("L1").value
expr = Replace(expr, "x", s)
f = Evaluate(expr)

Je ne saurai dire que Evaluate n'existe plus sur Excel2007

si tu faisais un F1 (Help) sur Evaluate

**Karrig** · 27/12/2009, 14h16

Je viens d'essayer avec Evaluate, dont l'aide est :

"Cette méthode convertit un nom Microsoft Excel en un objet ou une valeur."

J'ai également une incompatibilité de type.

Ce qui est étrange c'est qu'il semblerait que cela fonction pour x = 2, mais plus pour x = 2.1.
Evaluate ne fonctionnerait que sur les entiers ?

Ou alors le probleme vient de la ","

**Karrig** · 27/12/2009, 14h30

Voila !

Il semblerait que cela fonctionne en remplaçant la , par un . .

Je n'ai pas encore controlé mes valeurs, mais au moins j'en ai ^^.

Je vous tiens au courant, merci pour le coup de main!

A plus tard