khaldounabouisrae

الله يشدليك في الوالدة و الوالد اخي محمد هشام

لدس قائمة التلاميذ و اود البحث عموديا عن كل المعطيات كما في الكود الذي اخذته عن الاخ الرائع محمد هشام Private Sub TextBox1_Change() 'Sheet donnes Dim a As Variant, b As Variant, clé As String Dim i&, j&, k&, m& Dim WS As Worksheet: Set WS = Worksheets("donnes") Dim F As Worksheet: Set F = Worksheets("search") If Me.TextBox1 = "" Then F.Range("b6:c" & Rows.Count).ClearContents Else On Error Resume Next a = WS.Range("E5", WS.Range("F" & Rows.Count).End(3)).Value ReDim b(1 To UBound(a, 1), 1 To UBound(a, 2)) clé = "*" & F.Range("b3").Value & "*" For i = 1 To UBound(a, 1) For j = 1 To UBound(a, 2) If LCase(a(i, j)) Like clé Then k = k + 1 For m = 1 To UBound(a, 2) b(k, m) = a(i, m) Next Exit For End If Next Next F.Range("B6:C" & Rows.Count).ClearContents F.Range("b6").Resize(k, UBound(b, 2)).Value = b End If End Sub Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) If Not iGblInhibitTextBoxEvents Then TextBox1.Value = "" End If End Sub بحث VBA.xlsm

شكرا اخي محمد هشام جازاك الله الف الف خير

تحية طيبة اخي لكني لم اجد كود الترحيل

لدي ملف اكسل اود ان ارحل البيانات الخاصة بكل ورقة و جمعها في واحدة بكود المرجو مساعدتي و جازاكم الله خيرا ListEleve_20240320.xlsx

المساعدة في انشاء كود vba لاستيراد المعلومات من جدول اكسل الى اكسس الملف في المرفقات و جازاكم الله الف خير Database1.accdb

حقل محسوب في جدول

ترتيب الاعداد في اكسس لا يتم بالشطل المطلوب لا ادري ماذا يجب على فعله اخواني اخواتي حساب المعدلات المعدل العام 3,54 4,98 4,62 4,23 4,15 4,49 5,77 5,31 5,39 5,89 5,86 5,14 5,47 5,24 5,97 5,46 6,33 6,13 6,05 6,46 6,40 6,15 6,81 6,83 6,98 6,93 6,60 6,37 6,43 6,58 6,29 6,86 6,63 7,46 7,92 7,30 7,06 7,75 7,42 7,05 7,66 7,07 7,09 7,74 7,60 7,64 7,99 7,10 8,06

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

شكرا لقد اخطات في املف اعدت تحميله https://drive.google.com/open?id=1OjIC5n80_J1oz27aXF1zbRFXfg4y35JT هذا هو الملف الذي اريد العمل عليه و تحويله الى ملف قابل للتعديل مرة اخرى https://drive.google.com/open?id=1OjIC5n80_J1oz27aXF1zbRFXfg4y35JT

جازاكم الله خيرا فقط يتم استيراد الجداول و LES REQUETES لكن اريد كل الاستعلامات و جداول الطباعة https://drive.google.com/open?id=11wdDB5V2StQImD3LLM17e4MX1475gmdg

لدي ملف مستعجل جدا للامتحانات بصيغة ACCDE اريد التعديل عليه كيف لي ذلك و جازاكم الله الف خير مع الاحتفاظ بكل تقارير الطباعة و الاستعلامات https://drive.google.com/open?id=11wdDB5V2StQImD3LLM17e4MX1475gmdg

المشكل لا زال قائما دائما يضيف يوم فمثلا اذا كان اليوم هو الجمعة النتيجة السبت