عندي استفسارات ياريت القى اجابه لها

[bouga23bouga]

السلام عليكم يا اساتذه 
عندي استفسارات ياريت القى اجابه لها 
الصورة المرفقة هي فورم (بحث وتعديل واضافة) و الحمد لله كل شئ تمام  و هد بفضل الله ثم منتدانا الرائع اوفيسنا المشكل الوحيد إلى حد الان في مربع البحث Facture كما ترون لدينا 4 انواع من الفوتير لكل عميل و كل نوع في عمود خاص بختصار اريد تعديل الكود بحيث يبحث في اربع اعمدة بدل واحد . و بارك الله فيكم

الكود

Private Sub TXB36_Change()
''Application.ScreenUpdating = False
On Error Resume Next
III = 2
Do Until Feuil9.Cells(III, "A").Text = ""
If Me.TXB36.Text = Feuil9.Cells(III, "y").Text Then
Cells(III, "A").Activate

Me.TXB0 = ActiveCell.Offset(0, 0).Text
Me.TXB1 = ActiveCell.Offset(0, 1).Text
Me.TXB2 = ActiveCell.Offset(0, 2).Text
Me.TXB3 = ActiveCell.Offset(0, 3).Text
Me.TXB4 = ActiveCell.Offset(0, 4).Text
Me.TXB5 = ActiveCell.Offset(0, 5).Text
Me.TXB6 = ActiveCell.Offset(0, 6).Text
Me.TXB7 = ActiveCell.Offset(0, 7).Text
Me.TXB8 = ActiveCell.Offset(0, 8).Text
Me.TXB9 = ActiveCell.Offset(0, 9).Text
Me.TXB10 = ActiveCell.Offset(0, 10).Text
Me.TXB11 = ActiveCell.Offset(0, 11).Text
Me.TXB12 = ActiveCell.Offset(0, 12).Text
Me.TXB13 = ActiveCell.Offset(0, 13).Text
Me.TXB14 = ActiveCell.Offset(0, 14).Text
Me.TXB15 = ActiveCell.Offset(0, 15).Text
Me.TXB16 = ActiveCell.Offset(0, 16).Text
Me.TXB17 = ActiveCell.Offset(0, 17).Text
Me.TXB18 = ActiveCell.Offset(0, 18).Text
Me.TXB19 = ActiveCell.Offset(0, 19).Text
Me.TXB20 = ActiveCell.Offset(0, 20).Text
Me.TXB21 = ActiveCell.Offset(0, 21).Text
Me.TXB22 = ActiveCell.Offset(0, 22).Text
Me.TXB23 = ActiveCell.Offset(0, 23).Text
Me.TXB24 = ActiveCell.Offset(0, 24).Text
Me.TXB25 = ActiveCell.Offset(0, 25).Text
Me.TXB26 = ActiveCell.Offset(0, 26).Text
Me.TXB27 = ActiveCell.Offset(0, 27).Text
Me.TXB28 = ActiveCell.Offset(0, 28).Text
Me.TXB29 = ActiveCell.Offset(0, 29).Text
Me.TXB30 = ActiveCell.Offset(0, 30).Text
Me.TXB31 = ActiveCell.Offset(0, 31).Text
Me.TXB32 = ActiveCell.Offset(0, 32).Text
Me.TXB33 = ActiveCell.Offset(0, 33).Text

 

Exit Sub
End If
III = III + 1
Loop

Me.TXB0.Text = ""
Me.TXB1.Text = ""
Me.TXB2.Text = ""
Me.TXB3.Text = ""
Me.TXB4.Text = ""
Me.TXB5.Text = ""
Me.TXB6.Text = ""
Me.TXB7.Text = ""
Me.TXB8.Text = ""
Me.TXB9.Text = ""
Me.TXB10.Text = ""
Me.TXB11.Text = ""
Me.TXB12.Text = ""
Me.TXB13.Text = ""
Me.TXB14.Text = ""
Me.TXB15.Text = ""
Me.TXB16.Text = ""
Me.TXB17.Text = ""
Me.TXB18.Text = ""
Me.TXB19.Text = ""
Me.TXB20.Text = ""
Me.TXB21.Text = ""
Me.TXB22.Text = ""
Me.TXB23.Text = ""
Me.TXB24.Text = ""
Me.TXB25.Text = ""
Me.TXB26.Text = ""
Me.TXB27.Text = ""
Me.TXB28.Text = ""
Me.TXB29.Text = ""
Me.TXB30.Text = ""
Me.TXB31.Text = ""
Me.TXB32.Text = ""
Me.TXB33.Text = ""
End Sub