Discussion :

[zllzn]

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 :

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

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 !

[Minick]

Salut,

Peut etre comme ceci:

Code :

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

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

[FanTasTik]

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

Utilise un Case :

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

[zllzn]

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