transmettre des données entre macro et tableur [Résolu]

[guynux]

Bonjour!

je vous explique mon problème:
j'ai créer la fonction suivante:

Code :

1
2
3
Function fonc(x) As Double
fonc = x*x
End Function

Ainsi dans mon programme principale, je calculer les différentes valeurs de x² en appelant ma fonction.

Cependant, je suis obligé de rentrer dans ma macro si je veux changer ma fonction à étudier.
J'aimerais pouvoir la changer directement depuis mon tableur.
J'ai essayé de faire fonc=Cells(1,1).value où j'ai écris dans la cellule A1: x*x
mais cela ne marche pas.
Je pense que c'est dû au fait que j'ai déclaré fonc(x) comme un double et quand j'appelle la cellule A1 elle revient comme un string.
Je n'ai vraiment pas d'idées pour corriger ce problème
Pouvez vous m'aider svp?

[gFZT82]

Bonjour,

Si j’ai bien compris, tu cherches à faire une fonction personnelle.

La fonction doit être placée dans un module standard.
Dans VBE, Modules / Module 1 tu copies

Code :

1
2
3
Function fonc(x As Double) As Double
    fonc = x * x
End Function

Ensuite,
- dans la feuille, en A1 par exemple, tu places ton nombre x (tu saisis 12 par exemple)
- dans la feuille, en B1 par exemple, tu écris = =fonc(A1)
et tu obtiens le résultat (144).

Tu peux en profiter pour regarder la fonction PUISSANCE dans l’aide EXCEL.

Voici un lien sur les fonctions personnelles
http://silkyroad.developpez.com/vba/fonctions/

Cordialement.

[guynux]

Bonjour,
non ce n'est pas exactement ça

j'aimerais écrire n'importe quelle fonction dans A1 ( par exemple x*x ou sin(x)...)

et ensuite calculer f(12) (par exemple)dans mon programme principlal après avoir rempli la cellule A1

[BlueMonkey]

Bonsoir,

J'aimerais écrire n'importe quelle fonction dans A1
et ensuite calculer f(12) (par exemple)dans mon programme principlal

(1) : Ecrire la fonction au format texte avec en paramètre (x) ... avec les parenthèses pour limiter les ambiguïtés de décodage de la fonction.

(2) Appeler la fonction :

Code :

1
2
3
Function fonc(x as Double) As Double
      fonc = CDbl(Evaluate(Strings.Replace(CStr([A1].Value), "(x)", CStr(x))))
End Function

Attention : Cette fonction fait appel à la méthode Evaluate.
Le principe est qu'elle est capable d'appeler les fonctions présente dans Worksheetfunctions (SIN, COS ...).
Mais pas les fonctions françaises SOMME, ET ... Utiliser leur équivalents SUM, OR ...

Testé sur les formules suivantes en A1 :
- (x)*(x)
- (x)/(1 + (x))
- sin(2*pi()*(x))

[guynux]

Bonjour,

merci pour ta réponse!
La fonction que tu m'as donné marche bien.
Le seul problème c'est qu'elle fonctionne uniquement pour les entiers. Dès que je met un décimal, ça ne marche pas.

A vrai dire je ne comprend pas vraiment pourquoi puisque tu déclares x comme un double dans dans la function fonc.

Aurais tu une idée?

[BlueMonkey]

Bonjour,


Si tu utilise le séparateur décimal "," ceci devrait résoudre le problème.

Code :

1
2
3
Function fonc(x as Double) As Double
     fonc = CDbl(Evaluate(Strings.Replace(CStr([A1].Value), "(x)", Strings.Replace(x, ",", "."))))
End Function

[guynux]

Merci beaucoup!
tu m'as rendu un grand service!