variable associée à un signe (= < > >=)

Bonjour,

Pour une recherche multicritères j'ai créé une variable string opérateur.

Cette variable prend une valeur par l'expression suivante:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Select Case SPSheet.Cells(3, 2) Case "égal à" opérateur = "=" Case "différent de" opérateur = "<>" Case "supérieur à" opérateur = ">" Case "supérieur ou égal à" opérateur = ">=" Case "inférieur à" opérateur = "<" Case "inférieur ou égal à" opérateur = "<=" End Select

---

ensuite je teste une condition mais je n'arrive pas à remplacer le signe par opérateur c'est à dire :

Code:

---

1 2 3 4 5 6 7 8 9

if AFP >= 5 then   'je veux remplacer >= par opérateur   'si je met :   if AFP & opérateur & 5 then 'erreur type incompatible

---

est-ce possible, peut-être avec un type de donnée différent pour opérateur ?

Merci d'avance pour vos réponses

Normal, un opérateur arithmétique n'est pas un string

Code:

---

1 2 3 4 5 6 7 8

Select Case SPSheet.Cells(3, 2) Case "égal à" If AFP = 5 Then ... End If   End Select

---

j'avais pensé à cette éventualité mais je voulais économiser un peu de code, doit bien y avoir un moyen d'associer un opérateur arithmétique à une variable non ?

Merci pour ta réponse

Citation:

---

Envoyé par alexxx69

doit bien y avoir un moyen d'associer un opérateur arithmétique à une variable non ?

---

Vraiment, cela m'étonnerait... attendons les autres avis

Je ne sais pas trop si la suggestion que je vais faire ici est valide... alors les plus experts me corrigeront si je raconte des bobards.
:aie:

J'étais toi, que je regarderais du côté des expressions régulières (RegEx, ou quelque chose comme ça). J'ai déjà vu passer une commande du nom de Eval, mais c'était en VBScript. Faudrait voir s'il y a l'équivalent en VB.

Je viens de faire un essai :

Il faut ajouter Microsoft Script Control 1.0 dans les références du projet VB6

Le code suivant affiche une boite de dialogue avec 25 :D

Code:

---

1 2 3 4 5

With New MSScriptControl.ScriptControl .Language = "VBScript" MsgBox .Eval("5 * 5") End With

---

merci pour cette réponse mais je ne vois pas comment m'en servir avec mon programme et je n'y connait rien en script :cry:

J'ai ecrit une routine d'evaluation d'expression en string, (sous forme d'un ocx)
Tu pourras trouver sa description ici
Il suffit de contruire le string et de le soumettre au composant pour obtenir le resultat. Si tu est interessé, dis moi et je t'enverrais le composant par MP

Citation:

---

Envoyé par Najdar

Je viens de faire un essai :

Il faut ajouter Microsoft Script Control 1.0 dans les références du projet VB6

Le code suivant affiche une boite de dialogue avec 25 :D

Code:

---

1 2 3 4 5

With New MSScriptControl.ScriptControl .Language = "VBScript" MsgBox .Eval("5 * 5") End With

---

---

Si j'avais regardé plus loin que le bout de mon nez (qui est long pourtant!) :lol:

La solution est pourtant simple. Il suffit d'utiliser la fonction Eval du VBScript inclus dans le MSSCriptcontrol que tu ajoute à ton projet via l'instruction New. Le paramètre de la fonction Eval étant une chaîne de caractères tu y mets la chaîne comprenant tes variables qui remplacent tes opérateurs...