Hatim Alhilali

السلام عليكم . من خلال الكود الذي سأدرج، تتم عملية البحث و عرض أول نتيجة ثم يتوقف عندها البحث بالرغم من النقر على زر البحث مرة أخرى. المطلوب : عند النقر من جديد على " زر البحث " يتجاوز النتيجة الاولى و ينتقل للبحث في السجلات المتبقية. ليعرض لنا النتيجة الثانية إن وجدت. و هكذا حتى اخر سجل. فإما نجد المطلوب أو يعرض لنا الرسالة المضمنة في الكود. الكود هو : Sub search_from_sheet() Application.ScreenUpdating = False Dim rng1 As Range Dim str_search As String str_search = UserForm1.TextBox4 ThisWorkbook.Sheets("Etat").Activate Set rng1 = Sheets("Etat").Range("D:D").Find(str_search, , xlValues, xlWhole) If Not rng1 Is Nothing Then rng1.Select Dim row_number As Long row_number = ActiveCell.Row UserForm1.TextBox1 = Sheets("Etat").Range("A" & row_number) UserForm1.TextBox2 = Sheets("Etat").Range("B" & row_number) UserForm1.TextBox3 = Sheets("Etat").Range("C" & row_number) UserForm1.TextBox4 = Sheets("Etat").Range("D" & row_number) Else MsgBox str_search & " N'existe pas Dans cette Base de Donées", vbInformation, "Résultat de Recherche" End If Application.ScreenUpdating = True End Sub

السلام عليكم . تابعت باهتمام شديد كيف قمتم بتفعيل الترقيم التسلسلي من أول خانة Numberx ولكن كيف نجعل الترقيم التسلسلي يستمر بشكل آلي في كل مرة نضيف سجلا جديدا دون ان نضطر لتحذيث الترقيم كل مرة . و شكرا. مهتم

السلام عليكم . تابعت باهتمام شديد كيف قمتم بتفعيل الترقيم التسلسلي من أول خانة Numberx ولكن كيف نجعل الترقيم التسلسلي يستمر بشكل آلي في كل مرة نضيف سجلا جديدا دون ان نضطر لتحذيث الترقيم كل مرة . و شكرا. مهتم.

السلام سيدي Moosak, شكرا على التفاعل و الاهتمام. التعديل لم يشتغل و لا أعلم السبب. الدالة NZ . شكرا .

السلام عليكم . كيف أتقادى عرض هذا الخطأ #Erreur في خانة حساب مجموع قيمة عدد من الخانات الاخرى المتواجدة بفورمات مستقلة ؟ بحيث عندما تكون قيمة أحد الحقول المحسوبة تساوي لا شيء يحدث المشكل. المرجو ... كود أو عبارة أو دالة ....ز لإصلاح الخطأ و تبذيله بقيمة " الصفر" ليتم حسابه بالشكل الصحيح و شكرا. sum.accdb