BONJOUR FORUM,
Je cherche un code qui soit plus simple a celui-ci
VB:
If Not Intersect(Rows(Target.Row), [M1]) Is Nothing Then
Application.ScreenUpdating = False
n = CInt([M1])
Rows("4:13").Hidden = True
Select Case n
Case 1
Rows("4:4").Hidden = False
Case 2
Rows("4:5").Hidden = False
Case 3
Rows("4:6").Hidden = False
Case 4
Rows("4:7").Hidden = False
Case 5
Rows("4:8").Hidden = False
Case 6
Rows("4:9").Hidden = False
Case 7
Rows("4:10").Hidden = False
Case 8
Rows("4:11").Hidden = False
Case 9
Rows("4:12").Hidden = False
Case 10
Rows("4:13").Hidden = False
End Select
End If
afficher les lignes de la ligne 4 a la ligne 13 selon le chiffre saisi dans la cellule M1
Salutation