Evaluate avec des strings?

[pacoako]

Bonjour à tous!

J'aimerais pouvoir permettre à un utilisateur de modifier un Comparateur (=, <,>, etc. ) via une combobox. J'ai essayé plusieurs méthodes mais rien ne semble fonctionner. À date, la fonction me permettant le plus de se rapprocher de mon but est «EVALUATE(string)». Cependant, cette fonction ne semble fonctionner que pour des valeur numérique, j'obtient une erreur de Compatibilité de Type avec des strings.

Merci d'avance pour vos réflexions!! Bonne journée!

voici un exemple simplifié de mon problème :

Sub Comparaison()

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

a = "ABC"
b = "ABC"

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

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

End Sub

 

[James007]

Re : Evaluate avec des strings?

Bonjour,

Je ne comprends pas exactement ton objectif ultime ...
Peut-être devrais-tu partager avec nous un peu plus du problème sur lequel tu travailles ...
Pour ton info, evaluate() fonctionne sur un string qui contient une formule correcte ...
Avec des strings, comment veux-tu utiliser des opérateurs numériques ... à la rigueur la concaténation & ... mais pas besoin de la fonction evaluate() pour cela ...

A +

 

[JNP]

Re : Evaluate avec des strings?

Bonjour Pacoako, James007 🙂,
Pour éviter tout problème, je passerais par un Select Case en utilisant un combobox avec liste obligatoire.

Select Case comparateur
Case ">"
If A > B Then ...
Case "<"
If A < B Then...
etc.
Case Else
MsgBox("Votre opérateur n'est pas correct")
End Select

Bon courage 😎