VBA evaluate if retourne erreur 2015 [Résolu]

[Guy_M]

Bonjour,

J'ai écrit la ligne VBA suivante

FeuilleCollecte.Cells(NumLigCour, j) = FeuilleCourante.Evaluate(FeuilleReferences.Cells(j + 1, 2).Value)

évidemment, ça ne marche pas

J'ai fait une exécution pas à pas avec un espion sur les expression

FeuilleReferences.Cells(j + 1, 2).Value : "if(E47="Oui";E48;"")"
FeuilleCourante.Evaluate(FeuilleReferences.Cells(j + 1, 2).Value) : Erreur 2015

Pensant que c'était un problème de syntaxe de la formule Excel, j'ai testé les expressions suivantes avec l'espion

FeuilleCourante.Evaluate("e47") : "non"
FeuilleCourante.Evaluate("upper(e47)") : "NON"

puis

FeuilleCourante.Evaluate("IF(E47;0;1)") : Erreur 2015
FeuilleCourante.Evaluate("IF(true;0;1)") : Erreur 2015
FeuilleCollecte.Evaluate("IF(true;0;1)") : Erreur 2015
Evaluate("IF(true;0;1)") : Erreur 2015

Les 3 dernières lignes m'ont convaincues que j'ai raté quelque chose ou qu'il existe une incompatibilité entre IF et EVALUATE.

Quelqu'un aurait-il une idée ?

Je vous prie de noter que je ne peux pas contourner avec du code vba de type

if FeuilleCollecte.range("e47")

Par avance, je vous remercie de vos réponses
Guy

 

[Guest]

Re : VBA evaluate if retourne erreur 2015

Bonjour,

Cela irait sans doute mieux avec des virgules à la place des points-virgules.

Debug.Print ActiveSheet.Evaluate("IF(E47,0,1)")
Debug.Print ActiveSheet.Evaluate("IF(true,0,1)")
Debug.Print ActiveSheet.Evaluate("IF(true,0,1)")
Debug.Print Evaluate("IF(true,0,1)")

A+

 

[Guy_M]

Re : VBA evaluate if retourne erreur 2015

Merci, c'était ça.