...bin, parce que je ne pouvais pas imaginer qu'il n'y avait pas de solution sur la v2003
pour la version 2003 je ne voyais pas d'autre solution que de vérifier le résultat de la formule utilisée,
sur le fichier que tu as transmit, j'ai fait les test suivant avec en cellule F3, F15 et D15 la valeur 43836
Sub ttt1()
f = Range("F15").FormatConditions(1).Formula1
t = Evaluate(f)
End Sub
Sub ttt2()
f = "ET(F3>43000,D15<=F3,F15>=F3)"
t = Evaluate(f)
End Sub
et là je suis bluffer, jusqu'à présent je n'aurais pas cru que la méthode Evaluate
pouvait faillir
mais là c'est le cas!
je vient de trouver l'erreur, c'est la langue,
celui-ci fonctionne si (And à la place de ET)
Sub ttt3()
f = "And(F3>43000,D15<=F3,F15>=F3)"
t = Application.Evaluate(f)
End Sub
pour pallier à ça, il faut passer par une cellule intermédiaire,
Sub ttt4()
Range("P1").FormulaLocal = Range("F15").FormatConditions(1).Formula1
f = Range("P1").Formula
t = Application.Evaluate(f)
End Sub