VBA Ajout d'arobase et erreur calcul
f
Bonjour,
je refais un autre poste pour un autre problème :
Avec un code vba, j'inclus une formule dans une base de donnée pour effectuer des calculs. Le problème c'est que quand je lance le code, la formule s'ajout bien mais Excel ajout des Arobase @ et la formule ne fonctionne plus. Voici le code qui se mets en erreur : (est compris dans un With)
.Cells(DR1, "V").FormulaLocal = "=SI(ET(ESTVIDE(C" & DR1 & ");ESTVIDE(Y" & DR1 & "));""Pas de demande"";SI(ET(C" & DR1 & "<>"""";ESTVIDE(Y" & DR1 & "));""En attente"";SI(ET(C" & DR1 & "<>"""";Y" & DR1 & "<>"""";ESTVIDE(U" & DR1 & "));""En cours"";SI(ESTNONTEXTE(U" & DR1 & ");""Soldé"";""Erreur 404""))))"Quand je lance le code :
Et la conséquence est que le calcul ne se fait plus. En retirant manuellement les @, la formule fonctionne.
D'où ça pourrait venir ?
Merci ! :)
bonjour,
le code VBA que tu as mis, ne correspond pas à la formule finale en erreur.
f
Ohh mince je me suis gourré :
.Cells(DR1, "Q").FormulaLocal = "=INDEX(STOCK!$A$2:$A$1000;EQUIV(1;(STOCK!$D$2:$D$1000=L" & DR1 & ")*(STOCK!$E$2:$E$1000=M" & DR1 & ")*(STOCK!$F$2:$F$1000=N" & DR1 & ")*(STOCK!$G$2:$G$1000=O" & DR1 & ")*(STOCK!$H$2:$H$1000>=P" & DR1 & ");0);1)"