[XL-2003] utilisation de la fonction Evaluate [Résolu]

[alainb]

Bonjour,
cette fonction génère une message d'erreur = #VALEUR!, avez-vous une idée du bug ?

Code :

1
2
3
4
Function score(a As Range)
    Application.Volatile
    score = Evaluate("=if(and(a>0,2;a<0,4);1;2)")
End Function

Alain

[jfontaine]

Bonjour,

A essayer

Code :

score = Evaluate("=if(and(" & a.address & ">0,2;" & a.address & "<0,4);1;2)")

[alainb]

Envoyé par jfontaine

Code :

score = Evaluate("=if(and(" & a.address & ">0,2;" & a.address & "<0,4);1;2)")

merci Jérôme,
mais le test n'est pas concluant

[alainb]

ce code "très simple" ne fonctionne pas non plus
score = Evaluate("=" & a)
y a t il à votre avis un problème extérieur à la fonction ?

[jfontaine]

ou as tu placé cette fonction? dans un module?

[alainb]

la fonction est dans un module

Code :

1
2
3
4
Function score(a As Range)
    Application.Volatile
    score = Evaluate("=if(and(" & a.Address & ">0;" & a.Address & "<1);1;2)")
End Function

dans la feuille :
cellule A1 : la valeur testée
cellule B1 : score(A1)

ce code fonctionne correctement

Code :

score = Evaluate("=1+" & a.Address)

Alain

[jfontaine]

les formules anglaises on comme séparateur d'argument une virgule a la place du point virgule.

Comme cela ca fonctionne

Code :

score = Evaluate("=if(and(" & a.Address & ">0," & a.Address & "<1),1,2)")

[alainb]

Effectivement avec le new séparateur cela fonctionne mieux,

Autre question avant de diner... est-il possible d'utiliser SELECT CASE à la place de IF imbriqués dans la fonction Evaluate ?

[jfontaine]

Autre question avant de diner... est-il possible d'utiliser SELECT CASE à la place de IF imbriqués dans la fonction Evaluate ?

Non pas dans evaluate, mais directement dans la fonction

Code :

1
2
3
4
5
6
7
8
9
10
11
Function score(a As Range)
    Application.Volatile
 
    Select Case a.Value
        Case 0 To 1
            score = 1
        Case Else
            score = 2
    End Select
 
End Function

[alainb]

merci Jérôme,
je vais clore cette discussion
tout est ok
Alain
bon Téléthon