اخي الكريم سليم حاصبيا
الخطأ كان من برنامج تحويل المعادلات إلى أكواد و عند تحويل المعادلات إلى أكواد و تطبيق الكود تكون النتيجة خطأ أرسلت لك نموذج من هذا الخطأ و عند ردك فهمت أن المشكلة في ; في الكل و قمت بتغييرها فنجحت معضمها إلا واحدة المهم سأرسل لك الملف قبل التحويل و بعد التحويل من دون أن أغير فيه شيئا لتنظر أين الخطأ أنت و الإخوة الكرام و بارك الله فيكم
للعلم الملفين فيهما البرنامج الذي يحول المعادلات إلى أكواد
أرجوا أنك فهمتني أخي الكريم
Sheets("Medellel").Range("M12") = Evaluate("=IF(ROW()-11<=$W$2,IF(OR(TEXT($V$2+ROW()-13,""JJJJ"")=""vendredi"",TEXT($V$2+ROW()-13,""JJJJ"")=""samedi""),0,1),"""")")
أنظر المرفق
Lazhar.rar