XL 2019 Sigle ">" remplacé par variable

carlos · 20 Décembre 2023

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 · 20 Décembre 2023

Bonsoir carlos,

Il suffit d'utiliser Evaluate :

VB:

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 · 20 Décembre 2023

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

XL 2019 Sigle ">" remplacé par variable

carlos

XLDnaute Impliqué

job75

XLDnaute Barbatruc

carlos

XLDnaute Impliqué

Discussions similaires