أب مارية

للرفع

السلام عليكم أخي Yasser مشكور على التنبيه فقد وقع لبس في الملف المرفقـ وقد رفعت الملف المطلوب مرة ثانية فأرجو المعذرة. سأحاول شرح المطلوب بإعطاء المثال التالي: في الجدول نجد هناك بعض الاسماء المكررة في العمود "C" ومثال ذلك الاسم "toto" حيث يوجد في السطر "21" و"25" أي العملية رقم (12 و 16). نأتي إلى الفورم حيث عند كتابة اسم "toto" في التكست يوكس يظهر في الليست بوكس مكرر كما هو موجود في الجدول. عند تحديد الاسم الثاني من الليست بوكس (الاسم الموجود في السطر 25 والذي يحمل رقم العملية 16) واجراء تعديل في التكست بوكس باللون الأصفر والبنفسجي هنا كل شيئ تمام. الآن وبعد الضغط على زر Enregistrer فإنه يقوم بترحيل التعديلات أسفل سطر "toto" الموجود في السطر 21 والذي يحمل رقم العملية 12 أي أنه يرحل إلى أول اسم موجود في الجدول وليس الاسم الثاني الذي تم تحديده. ألمطلوب هنا هو كيفة ظبط الكود بحيث يقوم بترحيل التعديل إلى أسفل الاسم المختار بالضبط. Originale24.rar

للرفع

السلام عليكم في المرفق لدي فورم لتعديل وترحيل البيانات إلى الشيت لكن المشكل الذي أواجهه هو عند وجود اسم مكرر يقوم بادراج التعديلات في الاسم الأول فقط وليس الاسم المختار مثال: عند وجود اسم أحمد مثلا في السطر الرابع والسابع والعاشر وقمنا بتعديل بيانات أحمد في السطر السابع فعند ترحيل البيانات يقوم بترحيلها إلى أحمد في السطر الرابع وليس السابع، ونفس الشيئ بالنسبة للسطر العاشر. أرجو المساعدة ولكم مني جزيل الشكر. Originale24.rar

السلام عليكم بارك الله فيك أخي أبو سليمان في انتظار الحل تقبل تحياتي.

السلام عليكم أرجو من الاخوة المساعدة في ايجاد الخطأ في الكود التالي: Private Sub CommandButton12_Click() If TextBox88.Value = 0 Then Dim i As Integer i = 9 While Feuil2.Cells(i, 3) <> TextBox88.Value i = i + 1 Wend If Feuil2.Cells(i, 3) = TextBox88.Value Then Feuil2.Cells(i, 3) = TextBox88 Feuil2.Cells(i, 3).Offset(0, 8) = TextBox118 Feuil2.Cells(i, 3).Offset(0, 10) = TextBox95 Feuil2.Cells(i, 3).Offset(0, 11) = TextBox120 With Feuil1 Dim iRow As Long Dim ws As Worksheet Set ws = Worksheets("Vents") TextBox120 = Format(Date, "dd/mm/yyyy") iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row ws.Cells(iRow, 1).Value = iRow - 9 ws.Cells(iRow, 2).Value = CDate(Me.TextBox120.Value) ws.Cells(iRow, 3).Value = Me.TextBox89.Value ws.Cells(iRow, 4).Value = Me.TextBox92.Value ws.Cells(iRow, 5).Value = Me.TextBox96.Value ws.Cells(iRow, 6).Value = Me.TextBox91.Value ws.Cells(iRow, 7).Value = Me.TextBox97.Value ws.Cells(iRow, 8).Value = Me.TextBox93.Value ws.Cells(iRow, 10).Value = Me.TextBox98.Value End With Else While Feuil2.Cells(i, 3) <> TextBox88.Value i = i + 1 Wend Cells(i + 1, 3).Select: Selection.EntireRow.Insert Cells(i, 11) = CDbl(Me.TextBox94) + CDbl(Me.TextBox118) Cells(i + 1, 14) = Me.TextBox120 Cells(i + 1, 11) = Me.TextBox118 Cells(i, 13) = CDbl(Me.TextBox95) Me.TextBox88.Value = "" Me.TextBox89.Value = "" Me.TextBox90.Value = "" Me.TextBox94.Value = "" Me.TextBox95.Value = "" Me.TextBox118.Value = "" Me.TextBox120.Value = "" Me.TextBox92.Value = "" Me.TextBox136.Value = "" Me.TextBox91.Value = "" Me.TextBox137.Value = "" Me.TextBox93.Value = "" Me.TextBox138.Value = "" End If End If End Sub

للرفع

للرفع

السلام عليكم هل يمكن ترحيل بيانات إلى سطرين مختلفين مع توفر شرط معين. الشرح مفصل في الملف المرفق. Originale23.rar

السلام عليكم لدي فورم مدرج به تسع ComboBox كل واحد مخصص لجلب بينات معينة كما هو موضح في الكود لكن المشكل الذي أواجهه هو عدم جلب البيانات في حالة ما إذا كانت مكررة. أرجو من الاخوة المساعدة في جعل الكود يجلب جميع البيانات المتعلقة بالكومبو بوكس حتى ولو كانت مكررة. Private Sub UserForm_Initialize() Set ws = Sheets("Stocks") lrw = ws.Cells(Rows.Count, "B").End(xlUp).Row Ary = ws.Range("B12:B" & lrw).Value ListCmb "Boitie", "ComboBox7" ListCmb "Carte Mére", "ComboBox8" ListCmb "Processeur", "ComboBox9" ListCmb "Ventilateur", "ComboBox10" ListCmb "Disque Dur", "ComboBox11" ListCmb "Graveur", "ComboBox12" ListCmb "Ram", "ComboBox13" ListCmb "Carte graphique", "ComboBox14" ListCmb "Ecran", "ComboBox15" End Sub

أكيد أن أحد الأعضاء لديه الحل

هل المطلوب ثعب لهذه الدرجة؟؟؟؟

أين أنتم يا أحبائي

للرفع

السلام عليكم في المرفق لدي اليوزر فورم به عدة كومبو بوكس كل واحد يقوم بجلب بيانات معينة لكن بدون تكرار بينما أريد جلب حتى البيانات المكررة أرجو المساعدة وبارك الله فيكم Originale19V1.rar