أب مارية

السلام عليكم أخي وأستاذي ابراهيم آسف لقد نسيت رفع الملف فيما يخص بدفع المبلغ نقدا لمبلغ السلعة يتم تسجيله في الصفحة الثانية (Fournisseurs) في العمود التاسع والعاشر (Versement) و (Reste) وهنا إذا تحقق شرط أن الباقي يساوي الصفر يتم حذف اللون الأحمر للسلعة في صفحة الثانية (Stock). Originale6.rar

السلام عليكم أخي ابراهيم بارك الله فيك هذا هو المطلوب أسأل الله أن يحفظك ويرعاك لكن هناك مشكل بسيط وهو متعلق بالـListbox أريد أن ندرج فيه اسم السلعة فقط وليس جميع معلومات السطر. الآن أنتقل إلى الشطر الثاني من السؤال وهو كما يلي: عند الدفع نقدا لمبلغ السلعة ويصبح الباقي يساوي الصفر هنا يجب تغيير لون السطر إلى اللون العادي بدل اللون الأحمر أما اذا تم دفع شطر من المبلغ يبقى اللون الأحمر على حاله. بالاضافة إلى زر الحفظ الذي يقوم بحفظ التغييرات المتعلقة بالمبلغ المدفوع والباقي في الصفحة Fournisseurs في العمود التاسع والعاشر

السلام علليكم أعضاء هذا المنتدى الراقي لدي فورم متعلق بديون الموردين حيث يشمل السلع التي تم اقتناؤها ولم يدفع ثمنها بعد (حيث يتم تلوينها تلقائيا باللون الأحمر وهذا شرط أن يكتب في العمود العاشر عبارة A Terme) والمطلوب هو كما يلي: عند الاختيار من الـcombobox أحد الموردين يتم ادراج جميع السلع التي تكون باللون الأحمر وتحمل اسم هذا المورد داخل الـListbox الموجود في جانب الفورم. وعند اختيار أحد هاته السلع التي في الـListbox يتم استدعاء بياناتها من صفحة Stock هذا الشطر الأول من السؤال في انتظار مساعدتكم تقبلو مني فائق التقدير والاحترام Originale5.rar

بارك الله فيك أخي عبد الله أسأل الله الكريم رب العرش العظيم أن ينور قلبك

بارك الله فيك أخي عبد الله لو تكرمت لقد نسيت رفع الملف المطلوب العمل عليه فأرجو المعذرة وتطبيق المطلوب على الملف المرفق كما أرجو افادتي بالخلل الذي كان موجود. اسالك اللهم بقدرتك التي حفظت بها بها يونس في بطن الحوت ...... ورحمت بها أيواب بعظيم الابتلاء ......... أن لا تبقى له هما ......... ولا حزنا .... ولا ضيقا ... ولا سقما .... وأن أصبح في حزن فاأمسة على فرح .... وأسالك اللهم ............. أن كان مهموما ..............................تمنحه فرحا . وأن تحفظه لمن يحب ........................... وأن تحفظ من يحب له . اللهم أنك لا تحمل نفسا فوق طاقتها ...........................فلا تحمله من كرب الحياة مالا طاقة لة . وباعد بينه وبين مصائب الدنيا ........................كما باعدت بين المشرق والمغرب . اللهم من أرد به شرا ً...................................فأشغة في نفسة . ومن أرد به غدراً...........................................فر د كيده في نحره. ومن أرد به مكراً........................................فأمكر به وأنت خير الماكرين . اللهم بشره بالخير كما بشرت .....................يعقوب بيوسف . وبشره بالفرح كما بشرت ........................... زكريا بيحيى . اللهم يامن لاتضيع لديك الودائع أني خباتها كاالامانة لديك . فأحفظ اللهم أمانتي من كل شر و سواء . وأنت خير الحافظين . اللهم أمين stoks_5.rar

السلام عليكم لقد قمت باضافة زر للحذف بالكود التالي: Private Sub CommandButton11_Click() Sheet2.Activate If TextBox77 = "" Then MsgBox ("Il faur choisiser un numéro pour la suppression") Exit Sub End If Q = 0 xxx = 11 Do Until Sheet2.Cells(xxx, "A").Text = "" If Me.TextBox77.Text = Sheet2.Cells(xxx, "A").Text Then Q = 1 KK = MsgBox("Vous étes sur de supprimé cette article", vbYesNo) If KK = vbYes Then TextBox77 = "" ActiveCell.EntireRow.Delete MsgBox ("Article supprimer avec succée !!") Else MsgBox ("La supprission ne pas faite !!") End If End If xxx = xxx + 1 Loop Range("A12").Select ActiveCell.FormulaR1C1 = "1" Range("A13").Select ActiveCell.FormulaR1C1 = "2" Range("A12:A13").Select Selection.AutoFill Destination:=Range("A12:A[a7]"), Type:=xlFillDefault End Sub لكن المشكل الذي وقعت فيه هو عند أحد الأرقام التالية للحذف لا يقوم باستدعاء الامعلومات الخاصة بالعنصر وهذه الأرقام هي :(1، 3، 10، 13) أما بقية الأرقام فيقوم باستدعائها وتتم عملية الحذف بشكل عادي. أرجو المساعدة في ايجاد الخلل

للرفع

السلام عليكم لدي مشكل في استدعاء البيانات لبعض الأسطر حيث عند ادخال أحد الأرقام التالية 1، 3، 10، 13 في خانة Nember لا يتم استدعاء البيانات المتعلقة بذلك السطر مع العلم أنه قبل أيام كان كل شيء على ما يرام حيث يوجد خطأ في الكود التالي: Selection.AutoFill Destination:=Range("A12:A[a7]"), Type:=xlFillDefault فأرجو المساعدة من الاخوة الكرام.

للرفع

للرفع

هل المطلوب صعب إلى هذا الحد؟؟؟؟؟؟؟؟؟؟؟

السلام عليكم لدي مشكل في استدعاء البيانات لبعض الأسطر حيث عند ادخال أحد الأرقام التالية 1، 3، 10، 13 في خانة Nember لا يتم استدعاء البيانات المتعلقة بذلك السطر مع العلم أنه قبل أيام كان كل شيء على ما يرام فأرجو المساعدة من الاخوة الكرام. STOCKS.rar

السلام عليكم أخي عبد الله وبارك الله فيك على العمل جاري التجريب وسأوافيك بالجديد ان شاء الله

السلام عليكم لدي مشكل أثناء الترحيل حيث يقوم باضافة سطرين في أول الجدول بالاضافة إلى الترقيم المستمر إلى غاية 990 في أخر الجدول، أرجو من الاخوة الكرام افادتي بالحل. STOCKS.rar

بارك الله فيك أخي عبد الله ربي هذا أخي أحبه فيك أعصمه ألا يعصيك وأرزقه الفردوس يوم يلاقيك

أرجو المعذرة

أخي عبد الله بولنوار جزاك الله كل خير على العمل الرائع أرجو افادتي بالشرح الوافي لكيفية اجراء التغييرات والكود الذي أضفته فقد قمت بنسخ الكود على العمل الأصلي لكن الأمر لم ينجح معي. وهذا الكود الذي قمت بنسخه Range("A11").Select ActiveCell.FormulaR1C1 = "1" Range("A12").Select ActiveCell.FormulaR1C1 = "2" Range("A11:A12").Select Selection.AutoFill Destination:=Range("A11:A500"), Type:=xlFillDefault وقد قمت برفع الملف الأصلي للعمل عليه. مشكور مرة ثانية ORIGINALE1.rar

السلام عليكم شكر جزيل للاخوة الكرام على المساعدة

للرفع

بارك الله فيكم اخواني على الاهتمام أخي عبد الله بالنوار هذا هو المطلوب لكن ظهرت مشكلة حيث أثناء كتابة أي رقم بعد الرقم 10 لا يذهب للرقم المطلوب حيث يقوم بطرح عشرة من الرقم الطكتوب فأرجو تدارك الخطأ مشكور مرة ثانية الأخ سليم مشكور على المعلومة المهمة.

السلام عليكم ورحمة الله تعالى وبركاته لدي مشكل في ترتيب الترقيم عند عملية الحذف فبعد فتح الفورم والكتابة في خانة Nember أي رقم من الأرقام الموجدة في العمود A وعند الضغط على زر Delete يقوم بحذف المنتج لكن أريد جعل الأرقام تترتب تلقائيا بعد عملية الحذف (مثلا عند حذف المنتج رقم 10 فالمنتج رقم 11يأخذ الرقم 10 بدل ذلك وهكذا بالنسبة للبقية) مشكورين على الاهتمام. numération produit de stock.rar

UP

للرفع

السلام عليكم هل هناك كود ثاني يعمل نفس العمل لأنه في بعض الحلات لا يستجيب

السلام عليكم ورحمة الله تعالى وبركاته رمضان كريم اخي ابو عيد بارك الله فيك على العمل هذا هو المطلوب