évaluer une chaîne comme critère de condition en VBA

Version imprimable

04/12/2014, 11h55
niko9600

évaluer une chaîne comme critère de condition en VBA

Bonjour à tous,

J'ai lu cette discussion.

J'aimerais savoir si cela existe en vba mais dans Access (et pour traiter une variable et non une cellule excel).

J'ai essayé Evaluate(MaVar & "< 10") par ex, mais cela ne fonctionne pas (erreur "incompatibilité de type") quel que soit le type de MaVar (testé avec double, string, variant...).

Quelqu'un a-t-il une solution pour effectuer ce genre de calcul ?

Bonjour,
Sauf erreur de ma part, la fonction EVALUATE n'est pas présente dans Access.
Voici un exemple vite fait qui fonctionne avec Excel ou avec Access
Le code de la fonction

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Function Compare(Valeur1 As Double, comparateur As String) As Boolean
  Select Case True
    Case InStr(comparateur, ">=") > 0
      Compare = Valeur1 >= Val(Mid(comparateur, 3))
    Case InStr(comparateur, "<=") > 0
      Compare = Valeur1 <= Val(Mid(comparateur, 3))
    Case InStr(comparateur, ">") > 0
      Compare = Valeur1 > Val(Mid(comparateur, 2))
    Case InStr(comparateur, "<") > 0
      Compare = Valeur1 < Val(Mid(comparateur, 2))
    Case InStr(comparateur, "<>") > 0
      Compare = Valeur1 <> Val(Mid(comparateur, 3))
    Case InStr(comparateur, "=") > 0
      Compare = Valeur1 = Val(Mid(comparateur, 2))
    Case Else
      Compare = False ' Ou afficher un msgbox 
  End Select
End Function

La procédure de test

Code:

1
2
3
Sub test()
  Debug.Print Compare(40, "<>40")
End Sub

04/12/2014, 15h11
niko9600

Bonjour et merci pour l'astuce. En fait je viens de trouver la solution avec la fonction eval(). Je l'avais testé mais elle ne fonctionnait pas car mes décimaux utilisaient une virgule en séparateur.. il faut un point.
Donc en gros elle fait la même chose que evaluate, mais pour Access.