Discussion :

[Jodko]

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 :

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

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.

[Philippe Tulliez]

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

Exemple

Code :

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

1
2
3
4
Function Result()
  Application.Volatile
  Result = Evaluate("=SUM(D3:D7)")
End Function

ou encore

Code :

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

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 :

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

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

[Jodko]

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.

[Philippe Tulliez]

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

Code :

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

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

En cellule F5

Code :

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

=Result(t_Data[Montant])

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

[Jodko]

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.

[Philippe Tulliez]

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