XL 2019 Sigle ">" remplacé par variable

[carlos]

Bonjour,
J'aimerais pouvoir remplacer Sigle ">" par une variable
If montant > Sup.Value Then ...
remplacé par
If montant & Mavariable & Sup.Value Then...
Ma variable pourrait changer bien sur par = ou autre
Merci et bonne soirée

 

[job75]

Bonsoir carlos,

Il suffit d'utiliser Evaluate :

Sub a()
Dim montant, Sup, Mavariable$
montant = 150.5
Sup = 100
Mavariable = ">"
If Evaluate(Replace(montant, ",", ".") & Mavariable & Replace(Sup, ",", ".")) Then MsgBox "Seuil dépassé"
End Sub

Dans Evaluate le séparateur décimal doit être le point.

A+

 

[carlos]

Bonjour Job75,
Super ca marche.
Merci beaucoup.
Bonne soirée