Discussion :

[laguernette]

Bonjour,

J'ai dans ma cellule A1 un nombre quelconque
dans ma cellule A2, un opérateur >= ou <= ou =
dans ma cellule A3 un nombre décimal
J'aimerais récupérer les valeurs de A2 et A3 et les mettre dans une variable puis via une macro, comparer avec la cellule A1
exemple :
A1 : 0,2 A2 : >= A3 : 0,5
Avec la macro, j'aimerais savoir si 0,2 >= 0,5 sachant que le comparateur dans A2 peut changer à tout moment.

J'ai essayé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Dim operateur As String, seuil As Single
operateur = range("A2").value
seuil = range("A3").value
If range("A1").value & operateur & seuil then
Range("A1").Interior.ColorIndex = 4
End if

Bien sûr, ça n'a pas marché ! Pouvez-vous m'aider svp ?

[Invité]

Bonjour Laguernette

Il faut utiliser "Evaluate" pour évaluer le résultat d'une formule, voici le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Test()
  Dim Operateur As String, Seuil As Single
  Dim MaFormule As String
  ' Récupérer les valeurs nécessaires
  Operateur = Range("A2").Value
  Seuil = Range("A3").Value
  ' Définir la formule en remplaçant si nécessaire le séparateur décimal
  MaFormule = Replace(Range("A1"), ",", ".") & Operateur & Replace(Seuil, ",", ".")
  ' Test de la formule
  If Application.Evaluate(MaFormule) Then
    Range("A1").Interior.ColorIndex = 4
  End If
End Sub

A+

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Test()
Dim Op As String
 
Op = [A2]
If Evaluate("A1" & Op & "A3") Then
    [A1].Interior.ColorIndex = 4
Else
    [A1].Interior.ColorIndex = xlNone
End If
End Sub

[laguernette]

Merci pour ces réponses si rapides. ça fonctionne très bien, je ne connaissais pas du tout la fonction "evaluate".
Un grand merci à vous !