Bonjour,
J'ai écrit la ligne VBA suivante
évidemment, ça ne marche pas
J'ai fait une exécution pas à pas avec un espion sur les expression
Pensant que c'était un problème de syntaxe de la formule Excel, j'ai testé les expressions suivantes avec l'espion
puis
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
Par avance, je vous remercie de vos réponses
Guy
J'ai écrit la ligne VBA suivante
Code:
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
Code:
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
Code:
FeuilleCourante.Evaluate("e47") : "non"
FeuilleCourante.Evaluate("upper(e47)") : "NON"
puis
Code:
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
Code:
if FeuilleCollecte.range("e47")
Par avance, je vous remercie de vos réponses
Guy
Dernière édition: