منيير

اخي ياسر عندما اسجب المعادلة لاكثر من 30 سطر الملف يصبح ثقييل خصوصا عندما اضغط على Ajouter une feuille لاكثر من مرة ادا امكن الله يخليك اضافة كود الى الموديل NewMonthSheet يقوم بالامر تلقائيا ادا كان ممكن الله يبارك فيك

اخي خليل اريد ان اقوم بالعملية عن طريق الكود لانه بسحب المعادلة يقع لي Block للملف لا ادري السبب,,,, لو امكن اخي الفاضل ان تضيف سطر في الكود يقوم بالعملية اكون شاكر لك

السلام عليكم ورحمة الله و بركاته في الملف المرفق والذي ساعدني فيه مجموعة من الاخوان في هذا المنتدى خصوصا الاخ ياسر خليل في الموديل المسمى NewMonthSheet لدي كود متكامل ينقصه فقط تعديل اخير او بالاحرى اضافة ليكون مكتمل من جميع الجوانب عندما اقوم بالضغط على الزر المسمى ajouter une feuille يقوم الكود بانشاء ورقة جديدة و يقوم باضافة سطر في الورقة المسماة Total Général ما اريده هو بالاضافة الى هدا هو عندما تضاف ورقة جديدة ان يقوم الكود بنسخ المعادلة الموجودة في الخلية G2 في الورقة Donnée الى الخلية G3 وهكذا دواليك مثلا اذا قمت بالذهاب الى الورقة Juillet-2013 وضغطت على زر Ajouter une feuille ستضاف ورقة جديدة اسمها Août-2013 وما اريده هو ان يتم نسخ المعادلة الموجودة في G2 في الورقة Donnée الى الخلية G3 و عند الضغط على Ajouter une feuille في الورقة Aout-2013 ستضاف ورقة اسمها Septembre-2013 وما اريده هو نسخ المعادلة الموجودة في G3 الى G4 في الورقة المساماة Donnée وهكذا دواليك Suivi Calcestruzzo.zip

بارك الله فيك اخي الفاضل ياسر خليل و لك جزيل الشكر على الجواب الشافي هذا بالضبط ما كنت ابحث عنه

ساعدوني اخواني الكرام بارك الله فيكم

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

السلام عليكم اخواني الكرام عدت اليكم اليوم بسؤال اتمنى من الاخوة ان يجيبوني عليه ان امكن في الملف المرفق لدي كود في الموديل المسمى NewMonthSheet اريد تعديله او بالاحرى اضافة كود عليه بحيث بالاضافة الى الدور الذي يقوم به الكود اريد كلما ضغطت مثلا على Ajouter une feuille في الورقة Août-2013 ان يتم اضافة سطر اوتوماتيكيا في الورقة المسماة Total Général قبل السطر الموجود به Total و ان يتم نسخ تفس المعادلة الموجودة في السطر الذي قبله بارك الله فيكم Calcestruzzo.zip

شكرا كثيرا اخي ياسر خليل الكود يعمل جيدا بارك الله فيك في هذه الجمعة المباركة لك و لكل الاخوة الساهرين على الرقي بهذا المنتدى الى الامام شكرا مرة اخرى

اخي العزيز ياسر ما اريده هو تعديل الكود الموجود في الموديل المسمى NewMonthSheet والذي يقوم بنسخ الورقةJuillet-2013 و يبقي على جميع المعادلات و الورقة المنسخة تحافظ على المعادلات و اسمها يتغير لياخد اسم الشهر الموالي للشهر المسمى في الروقة السابقة المشكل اخي ياسر في الكود هو انه يقوم بكل هذا و لكنه ثقيل ياخد وقت قبل ان يقوم بالعملية Suivi Béton - Copie.zip

تفضل اخي ابو عبيد Suivi Béton - Copie.zip

مساعدة بارك الله فيكم

مساعدة بارك الله فيكم

السلام عليكم و رحمة الله و بركاته في الملف اسفله لدي كود ربطته بالزر المسمى Add A New Sheet يقوم باضافة ورقة جديدة بنفس مقاييس الورقة القديمة كما يقوم بمسح النطاق B9:J39 مع المحافظة على المعادلات المشكل يا اخواني في الكود هو عندما اضغط على زر Add A New Sheet ياخد وقت كثير لعمل Copy هل ممكن تعديل الكود بارك الله فيكم ؟؟؟؟ Suivi Béton - Copie.zip

بارك الله فيك اخي ابو اسامة و جزاك الله كل خير على الجواب القيم

السلام عليكم و رحمة الله و بركاته في الملف المرفق لدي كود اريد ان اعدله لان به خطا لا اعلم ما هو ليقوم بما يلي عندما اضغط على زر اضافة ورقة جدية بالملف ان ينسخ الورقة و ان يكون اسمها هو اسم الشهر الموالي للشهر المسمى في الورقة الاولى و هكذا دواليك بارك الله فيكم Suivi Béton - Copie.zip

بارك الله فيك اخي ابو اسامة

شكرا جزيلا اخي ابو اسامة بعد التجريب وجدت ان الكود يبحث في العمود الاول و الثاني اتمنى ان تعدله اخي ليقوم بالبحث فقط في العمود الثاني اي العمود B و بارك الله فيك

السلام عليكم ورحمة الله و بركاته في الملف اسفله لدي كود يقوم بالبحث في جميع الخلايا الموجودة في جميع الشيتات المطلوب هو تعديل الكود ليقوم فقط بالبحث في العمود B لكل الشيتات بارك الله فكم Find All VBA.zip

هذا هو ملف العمل عندما اشغل الماكرو يعطيني ريالة خطا 13 اتمنى من الاخوة التعديل عليه حتى استطيع البحث في العمود C فقط وفي كل الشيتات Suivi Béton - Copie.zip

والله يا اخي ياسر لا يشتغل معايا ادا ممكن قم بتطبيقه على الملف اسفله و ارفعه بارك الله فيك Suivi Béton - Copie.zip

اخي ياسر لا يعمل الكود يعطيني رسالة خطا

تفضل اخي ياسر الملف في المرفقات بارك الله فيك Search.zip

السلام عليكم ورحمة الله و بركاته في المثال اسفله لدي كود يقوم بالبحث في جميع الشيتات الموجودة في ملف العمل ما اريده هو ان يقوم الكود بالبجث فقط في العمود C بارك الله فيكم وهذا هو الكود : Sub MySearsh() Dim Searsh As String Dim FirstValue As String Dim NextValue As String Searsh = Application.InputBox(prompt:="Veuillez saisir une valeur", Title:="Microsoft Excel", Type:=2) For Each sh In Worksheets With sh If .Cells.Find(What:=Searsh, After:=ActiveCell) Is Nothing Then GoTo 1 .Activate With .Cells.Find(What:=Searsh, After:=ActiveCell) .Activate FirstValue = .Address End With Do If .Cells.FindNext(After:=ActiveCell) Is Nothing Then GoTo 1 If MsgBox("Rechercher un autre résultat", vbYesNo, "Microsoft Excel") = vbNo Then Exit Sub With .Cells.FindNext(After:=ActiveCell) .Activate NextValue = .Address End With Loop Until FirstValue = NextValue End With 1 Next sh End Sub

الا يوجد من يساعدني بارك الله فيكم

الا يوجد من يساعدني بارك الله فيكم