VBA/xl/97 Sectarisme chez Evaluate() ?

Version imprimable

Voir 40 message(s) de cette discussion en une page

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:

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

07/12/2005, 12h48
SfJ5Rpw8

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 .. :wink:
07/12/2005, 13h02
Megaxel

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...
:D
07/12/2005, 14h00
ouskel'n'or

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+
07/12/2005, 14h36
random

evaluate renvoie aussi des valeurs logiques
evaluate ("nomdevar=nomdevar2")
07/12/2005, 14h54
ouskel'n'or

Merci random.

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

A+ :wink:
07/12/2005, 15h15
Megaxel

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... :D
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
:D
07/12/2005, 15h19
ouskel'n'or

Citation:

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+
07/12/2005, 20h54
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
07/12/2005, 21h10
SfJ5Rpw8

Citation:

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 ...
08/12/2005, 00h41
leroissejp

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
08/12/2005, 08h59
SfJ5Rpw8

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)

:wink:

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

Code:

?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:

MAvariable =1

en fait tu peu ewxécuter dans la fenêtre exécution n'importe qu'elle ligne de commande ... :wink:
08/12/2005, 09h46
ouskel'n'or

Hello leroissejp,
Tu mets :

Citation:

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+
08/12/2005, 10h49
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:

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.
08/12/2005, 10h56
ouskel'n'or

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+
08/12/2005, 10h57
Megaxel

Ç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...
:oops:
08/12/2005, 11h10
SfJ5Rpw8

Citation:

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:

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
08/12/2005, 11h39
Igloobel

il me semble que l'erreur 2029 vient d'un probléme de format pas en texte ?

Igloobel
08/12/2005, 12h17
ouskel'n'or

C'est ce que dit error(2029) ? (je n'ai pas regardé) Pourtant, que la variable soit une valeur ou un chaîne la représentant, j'ai la même erreur.

Citation:

tout le monde a été d'accord pour dire que ce n'était pas possible

Erreur Pasmoilsel, il me semble bien qu'AlainTech avait déjà fait cette réponse... :wink:

A+
08/12/2005, 13h39
AlainTech

J'ai aussi l'erreur sur une variable...

Je cherche :koi:

Voir 40 message(s) de cette discussion en une page