If x & CBComparateur & y Then

[pacoako]

If x & Comparateur & y Then

Bonjour à tous!

Je me demandais si c'était possible d'assigner une variable comme opérateur de comparaison (=, <, >, <>, >=, <=) dans mon code.

Voici un exemple de ce que j'essaie de faire.

Dim x As String
Dim y As String
Dim Comparateur As String

Comparateur = "="

If x & Comparateur & y Then
code
End If

Je ne sais pas comment je pourrais l'expliquer autrement, merci pour vos commentaires! A + & bonne journée!

 

[Roland_M]

Re : If x & CBComparateur & y Then

bonsoir

à mon humble avis non !
surtout que si x="abc" et y="def"
ça donne if "abc=def" en une seule chaine !

de plus c'est d'aucun intérêt !

 

[pacoako]

Re : If x & CBComparateur & y Then

bonsoir

à mon humble avis non !
surtout que si x="abc" et y="def"
ça donne if "abc=def" en une seule chaine !

de plus c'est d'aucun intérêt !

Salut Rolan,

En fait mon intérêt est que je voudrais que l'utilisateur puisse décider quel opérateur est utilisé lors d'une recherche dans la base de données...

Un peu de la même manière que l'on peut filtrer les données avec le filtre automatique (personalisé).

 

[kjin]

Re : If x & CBComparateur & y Then

Bonsoir,

Sub Comparaison()
comparateur = ">"
x = Evaluate(30 & comparateur & 20)
MsgBox x 'resultat Vrai
comparateur = "+"
x = Evaluate(30 & comparateur & 20)
MsgBox x 'resultat 50
End Sub

A+
kjin

 

[pacoako]

Re : If x & CBComparateur & y Then

Ahhh vraiment cool cette fonction, on en apprend tout les jours!

Merci KJin!

En passant, est-ce que cette fonction fonctionne juste pour comparer des valeur numérique ou elle fonctionne aussi pour des «Strings» ?

exemple :

Sub Comparaison()

Dim Comparateur As String
Dim a As String
Dim b As String
Dim x As Boolean

a = "ABC"
b = "ABC"

comparateur = "="
x = Evaluate(a & Comparateur & a)
MsgBox x 'VRAI??? 

b = "CBA"
x = Evaluate(a & Comparateur & a)
MsgBox x 'Faux??? 

End Sub

Moi ici j'obtient une erreur de compatibilité de type...