Discussion :

[alexxx69]

Bonjour,

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

Cette variable prend une valeur par l'expression suivante:

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

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

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

[Phifi]

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

Code :

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

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

[alexxx69]

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

[Phifi]

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

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

[zazaraignée]

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.


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.

[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

Code :

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

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