VBA/xl/97 Sectarisme chez Evaluate() ?

**ouskel'n'or** · 07/12/2005, 12h28

Bonjour,
Dans cet exemple, Evaluate refuse "IsNumeric", quelqu'un peut-il m'expliquer pourquoi ? Ou est-ce spécifique à VBA97 où Evaluate n'est utilisable que pour les formules mathématiques ?
(Il n'y a pas de précision là-dessus dans l'aide)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim ok As Boolean, Formule, valeur, msg
    ok = IsNumeric(12) And IsNumeric("12")
    Debug.Print ok                          ' = Vrai
 
    Formule = "Isnumeric(12)"
    Debug.Print Evaluate(Formule)           'Erreur 2029
 
    valeur = 12
    Formule = "IsNumeric(" & valeur & ")"
    msg = Evaluate(Formule)                 'Erreur 2029
    Debug.Print msg
 
    valeur = "12"
    Formule = "IsNumeric(" & valeur & ")"
    msg = Evaluate(Formule)                 'Erreur 2029
    Debug.Print msg
 
    valeur = "SIN(30*pi()/180)"
    Debug.Print Evaluate(valeur)            'Ok (= 0,5)
    Debug.Print Evaluate("SIN(30*pi()/180)") 'Ok (= 0,5)

Par avance, merci de vos réponses

**SfJ5Rpw8** · 07/12/2005, 12h48

non c'est pas du sectarisme ... sous 2000 , evaluate ne reconnait pas non-plus isNumeric.. ( isDate aussi..) , j'ai pas trouvé de liste de fonctions reconnues par Evaluate ..

**Megaxel** · 07/12/2005, 13h02

Mais, heu... Ça me parait normal. Evaluate sert à évaluer une expression mathématique, et pas à interpréter une commande VB, VBA, ou autre.
En gros, + - * / , fonctions trigo, puissances, racines, logarithmes...
Ou alors je dis une bêtise...

**ouskel'n'or** · 07/12/2005, 14h00

Merci pour vos réponses.

Megaccel, où as-tu trouvé "Evaluate sert à évaluer une expression mathématique". Pas que je veuille vérifier, mais... j'aimerais bien savoir si on peut affecter une variable à une formule, autre que mathématique, donc...
Et là où tu as trouvé "ça", il y a peut-être une réponse à ma question.

Merci

A+

**random** · 07/12/2005, 14h36

evaluate renvoie aussi des valeurs logiques
evaluate ("nomdevar=nomdevar2")

**ouskel'n'or** · 07/12/2005, 14h54

Merci random.

Je laisse ma question le temps que megapixel trouve la réponse à ma dernière question

A+

**Megaxel** · 07/12/2005, 15h15

Ha la la, si on ne peut même plus s'autoriser un petit resto de temps en temps... Vous partez 2 minutes, et on vous poignarde...

Non, j'avoue que mon apprentissage de VBA comporte une bonne partie de transmission orale, et effectivement, je n'ai pas la moindre référence écrite à ce que j'ai avancé. Mais toutes les fois où j'ai utilisé EVALUATE, c'était pour des calculs.
J'adresse donc toutes mes plus plates confuses à Ousk.

Minixel

**ouskel'n'or** · 07/12/2005, 15h19

je n'ai pas la moindre référence écrite à ce que j'ai avancé

T'es pardonné. Je crois que je vais mettre résolu avant de partir, ce soir...

A+

**leroissejp** · 07/12/2005, 20h54

Bonsoir,
ouskel'n'or, j'ai essayé ton code (pour voir le résultat, j'ai remplacé Debug.Print à la fin du code par Range("A1") = et celà me donne 0.5

jpleroisse

**SfJ5Rpw8** · 07/12/2005, 21h10

Envoyé par leroissejp

Bonsoir,
ouskel'n'or, j'ai essayé ton code (pour voir le résultat, j'ai remplacé Debug.Print à la fin du code par Range("A1") = et celà me donne 0.5

jpleroisse

bravo ... debug.print donne aussi le même résultat ...

**leroissejp** · 08/12/2005, 00h41

Re,
Bbil, je sais, mais chez moi Debug.Print ne donne aucun résultat. Pourquoi, je n'en sais rien. Alors j'ai mis A1. C'était juste pour dire à ouskel'n'or que son code fonctionnait sous Excel 97.

jpleroisse

**SfJ5Rpw8** · 08/12/2005, 08h59

oui je me suis douté que tu connaissais pas debug.print ... , debug.print affiche ces résultat dans fenêtre exécution .., Sous VBA (ou VB) Menu Affichage , Fenêtre exécution ... ( CTRL G)

le fenêtre exécution gagne à être connue... tu peu par exemple y taper

Code :

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

?Evaluate("SIN(30*pi()/180)")

et le fameux résultat la ligne en dessous ... 0.5...

tu peu aussi en mode debug..., lorsque ton programme bloqué sur un point d'arrêt ... modifier la valeur de variable ..

Code :

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

MAvariable =1

en fait tu peu ewxécuter dans la fenêtre exécution n'importe qu'elle ligne de commande ...

**ouskel'n'or** · 08/12/2005, 09h46

Hello leroissejp,
Tu mets :

j'ai essayé ton code (pour voir le résultat, j'ai remplacé Debug.Print à la fin du code par Range("A1") = et celà me donne 0.5

Tu parles de quelle ligne de code ? Toutes les lignes sur evaluate(sin...) on fonctionné. Le pb survient quand la fonction n'est pas numérique. Ce qui m'étonne c'est que ça marche pour les boolean (cf - Random) mais pas sur Isnumeric qui pourtant en renvoie un.

Je poursuis ma lecture de vos réponses...

Voilà, j'ai fini... Merci à tous... mais n'ai pas trouvé de réponse supplémentaire. Vous croyez que je déleste ?

A+

**AlainTech** · 08/12/2005, 10h49

Evaluate permet aussi d'accéder à une variable en composant son nom.
Exemple:
J'ai 3 variables
Var1
Var2
Var3
Je peux y accéder en faisant un

Code :

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

Evaluate("Var" & intIndex)

pour intIndex de 1 à 3

Ce n'est pas très utile car il est préférable d'utiliser un tableau pour cet usage mais la question d'un accès indirect à une variable revient souvent sur le forum.

**ouskel'n'or** · 08/12/2005, 10h56

Merci Alain,
Cette question avait effectivement été posée mais comme toi, je préfère le tableau. Mais peut-être existe-t-il un usage auquel je n'ai pas pensé (?)

A+

**Megaxel** · 08/12/2005, 10h57

Ça marche, ça!!?!!??
Incroyable! Alors il est possible de reconstruire un nom de variable, pour accéder à son contenu. C'est vrai que cette question a été posée il n'y a pas très longtemps, et tout le monde a été d'accord pour dire que ce n'était pas possible, et qu'il fallait passer par un tableau...

**SfJ5Rpw8** · 08/12/2005, 11h10

Envoyé par AlainTech

Evaluate permet aussi d'accéder à une variable en composant son nom.
Exemple:
J'ai 3 variables
Var1
Var2
Var3
Je peux y accéder en faisant un

Code :

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

Evaluate("Var" & intIndex)

pour intIndex de 1 à 3

Ce n'est pas très utile car il est préférable d'utiliser un tableau pour cet usage mais la question d'un accès indirect à une variable revient souvent sur le forum.

? ça ne marche pas chez-moi (Excel 2000..) , => ERREUR 2029