Re : créer fonction math
Bonjour FredOo,
Ça ne marche pas.
Voici mon code :
[QUOTE
Option Explicit
Public x As Double, y As Double, k As Double, Formule As Variant
Sub couleur()
y = Sheets("Feuil1").Range("B1").Value ' valeur entrée: 1
k = Sheets("Feuil1").Range("C1").Value ' valeur entrée: 1.5, avec un entier ça va
Formule = ActiveCell.Formula
Formule = Replace(Formule, "y", y)
Formule = Replace(Formule, "k", k)
x = Evaluate(Formule)
MsgBox "Formule = " & Formule
Sheets("Feuil1").Range("D1").Value = x ' affiche le résultat
MsgBox ("Formule " & Formule & ", x = " & x)
End Sub
][/QUOTE]
Donne : 'Incompatibilté de type' pour x = ...
A+