Utilisation EVALUATE en Fonction dans Excel

Bonjour,

Je suis en train de faire un petit tableau qui additionne ou soustrait des valeurs, suivant que dans une colonne, il y a un "+" ou un "-", et j'ai voulu faire original. Plutôt que de faire une formule =SI(...), j'ai créé une formule VBA :

Code:

---

1 2 3 4

Function Eval(Ref As String) Application.Volatile Eval = Evaluate(Ref) End Function

---

Donc dans la case ou je veux le résultat, je tape par exemple en C2 =Eval(C1&A2&B2) avec un nombre en C1, "+" ou "-" en A2 et un autre nombre en B2.

Et là, je me suis rendu compte que ça ne marchait qu'avec des entiers. Par exemple :

- ça marche avec B2 qui vaut 100, mais pas avec B2 qui vaut 99,5 (#VALEUR!), mais ça marche avec =ENT(99,5).
- ça marche avec =100/4 mais pas avec =100/3 (#VALEUR)

Est ce que quelqu'un sait pourquoi ?

Merci !


Jodko.

Bonjour,
La fonction Evaluate, comme son nom l'indique évalue une formule mais pas une référence.

Exemple

Code:

---

1 2 3 4

Function Result() Application.Volatile Result = Evaluate("=SUM(D3:D7)") End Function

---

ou encore

Code:

---

1 2 3 4

Function Result() Application.Volatile Result = Evaluate("=SUM(t_Data[Montant])") End Function

---

On peut bien entendu y ajouter un ou plusieurs arguments et dans ce cas, nul besoin de la ligne Application.Volatile

Code:

---

1 2 3

Function Result(r As Range) Result = Evaluate("=SUM(" & r.Address & ")") End Function

---

Merci.

Je pense saisir le commentaire, mais je n'y vois pas de raison que ça marche avec des entiers mais pas des décimaux. C'est la présente d'une vigule et pas d'un point ?


Jodko.

Bonjour,
Exemple de l'utilisation de la fonction personnalisée directement dans Excel
Le code de la procédure

Code:

---

1 2 3

Function Result(r As Range) Result = Evaluate("=SUM(" & r.Address & ")") End Function

---

En cellule F5

Code:

---

=Result(t_Data[Montant])

---

Illustration Nous pouvons voir que le résultat renvoie bien un nombre avec décimales

Pièce jointe 622872

C'est n'est pas exactement ce que je cherche à faire.

Mon idée est de calculer la valeur de la cellule C_n en prenant la valeur de la cellule C_n-1 et en y ajoutant ou retranchant la valeur de la cellule B_n suivant que la valeur de A_n est "+" ou "-".

J'ai testé, ça marche avec des séparateurs décimaux qui sont des "." et pas des ",". Je pense que c'est donc un pur problème (récurrent) du fait que VBA est en "VO" alors que Excel est en "VF". Et je ne sais plus comment contourner ça dans VBA.


Julien.

Bonjour,
Montrez moi comment vous le feriez manuellement avec une formule excel et là sans doute que je pourrais vous aider