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