تعديل البيانات في الليست بوكس في حالة البحث

بواسطه 1anass
يونيو 4, 2020 في منتدى الاكسيل Excel

https://www.officena.net/ib/topic/103242-%D8%AA%D8%B9%D8%AF%D9%8A%D9%84-%D8%A7%D9%84%D8%A8%D9%8A%D8%A7%D9%86%D8%A7%D8%AA-%D9%81%D9%8A-%D8%A7%D9%84%D9%84%D9%8A%D8%B3%D8%AA-%D8%A8%D9%88%D9%83%D8%B3-%D9%81%D9%8A-%D8%AD%D8%A7%D9%84%D8%A9-%D8%A7%D9%84%D8%A8%D8%AD%D8%AB/

متابعين 0

الردود الموصى بها

1anass

قام بنشر يونيو 4, 2020

السلام عليكم

تحياتي للجميع

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

Dim Ligne As Long
 
    If ListBox1.ListIndex = -1 Then Exit Sub
    Ligne = ListBox1.ListIndex + 2
    
    Range("B" & Ligne) = TextBox1
    Range("C" & Ligne) = TextBox2
    Range("D" & Ligne) = TextBox3
    Range("E" & Ligne) = ComboBox1
    Range("F" & Ligne) = ComboBox2
    Call UserForm_Initialize