السلام عليكم ورحمة الله
أخي الكريم يمكنك وضع الكود التالي في كود حدث الورقة Feuil1 وأرجو أن يلبي طلبك...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [C10] = 1 Or [C10] = 2 Then Range("E:E,J:J").EntireColumn.Hidden = False
If [C10] = 3 Then Range("E:E,J:J").EntireColumn.Hidden = True
End Sub
أو مختصرا :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [C10] = 3 Then Range("E:E,J:J").EntireColumn.Hidden = True _
Else: Range("E:E,J:J").EntireColumn.Hidden = False
End Sub
أخوك بن علية