السلام عليكم
اتفضل الملف مع مراعاة ان اول طلب وهو ( كلما أغير قيمة الخلية B3 يقوم بمسح البيانات في العمود D4 : D500) بيتحل بإضافه كود للحدث Worksheet_change ولكن ده ممكن يبطيء العمل عند فتح هذا التبويب
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Row = 3 Then
Sheets("Saisi").Range("D4:D500") = ""
End If
End Sub
والباقى موجود فى الملف مع زرار بديل للمسح لانه من وجهة نظري الافضل تلغى الكود السابق وتستعمل الكود البسيط اللى مع الزرار
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب