Utilisation des opérateurs greater, lower, equal suivant une string

Bonjour,

J'ai un petit souci de syntaxe.
Je souhaiterai en fait avoir une liste déroulante avec "<", ">", "=", "<=", ">=" , "<>", et ensuite récupérer le résultat pour effectuer un calcul.

En gros, je voudrais quelque chose qui me permet de faire :
if valeur1 ComboBox.value valeur2 then ....

Mon problème est donc de transformer cette string en opérateur. J'ai essayé quelque chose comme ça, mais je me doutais bien que ça ne marcherait pas.

Code:

---

1 2 3 4 5 6 7 8 9

Sub test() Dim operat As XlFormatConditionOperator operat = xlEqual if 12 operat 12 then Debug.Print "OUAIIIIIIS" Else Debug.Print "Ohhhhhh!" End If End Sub

---

Je suis preneur de toute idée !

Salut,

Peut etre comme ceci:

Code:

---

1 2 3 4 5 6 7 8 9

Sub test() Dim operat As String operat = "<=" If Evaluate(13 & operat & 15) Then Debug.Print "OUAIIIIIIS" Else Debug.Print "Ohhhhhh!" End If End Sub

---

Méthode un peu longue à écrire mais qui marchera sans problème dans ton cas :

Utilise un Case :

Code:

---

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

Sub toto   Select Case operateur 'oéprateur est un string Case ">" If value 1 > value 2 then 'mettre le truc à faire ici' End if Case "<" If value 1 < value 2 then 'mettre le truc à faire ici End if End Select   End Sub

---

J'ai été confronté au même problème que toi hier et comme j'ai pas réussi, j'ai fait comme ceci. Donc si tu trouves un truc, n'hésite pas à poster car ça m'intéresse :)

Merci Minick, c'est exactement ce que je voulais !
Je connaissais pas la fonction Evaluate, mais c'est magique, je vais me renseigner dessus.
En plus ta méthode est encore mieux que celle de créer un type Operator.

Merci FanTasTik, mais je ne voulais justement pas utiliser de switchcase, parce que l'on essaie d'optimiser le code et la vitesse d'execution, et les cases sont pas top:
http://fordom.free.fr/tuto/OPTIMISATION.htm