Fonction VBA accessible par Excel

Bonjour,


Cordialement,

Laurent

Merci Laurent pour la fonction. Elle m'a permis d'investiguer sur le net ...

Après quelques recherches, voici une version un peu plus sophistiquée :

======
Public Function EVAL(expression As Variant) As Variant

Dim expEvaluee As Variant
Application.Volatile

On Error GoTo fonctionErronnee

If Not IsEmpty(expression) Then
If TypeOf Application.Caller.Parent Is Worksheet Then
expEvaluee = Application.Caller.Parent.Evaluate(CStr(expression))
Else
expEvaluee = Application.Evaluate(CStr(expression))
End If

If IsError(expEvaluee) Then
EVAL = CVErr(xlErrValue)
Else
EVAL = expEvaluee
End If
End If
Exit Function

fonctionErronnee:
EVAL = CVErr(xlErrNA)
End Function
======

serge🙂

Bonjour,

Attention à la gestion du point décimal, sous peine d'obtenir une erreur de type '#VALEUR', si la valeur du séparateur décimal définie dans Windows est la virgule (,).
Dans ce cas, au niveau de l'onglet 'International' de la commande 'options...' du menu 'Outils' d'Excel, il vaut mieux décocher la case 'Utiliser les séparateurs système' et fixer la valeur du champ 'Séparateur de décimale' à un point (.).
De plus, la saisie rapide de listes de nombres décimaux en sera facilitée, sans obliger à chercher la virgule à chaque fois.