chaelie2015
XLDnaute Accro
Bonjour Forum
Je souhaite simplifier ce code par une boucle de A33=0 jusqu’à A33=20
MERCI
Je souhaite simplifier ce code par une boucle de A33=0 jusqu’à A33=20
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case [A33]
Case 1
Rows("13:13").Hidden = False
Rows("14:32").Hidden = True
Case 2 'cas 2
Rows("13:14").Hidden = False
Rows("15:32").Hidden = True
Case 3
Rows("13:15").Hidden = False
Rows("16:32").Hidden = True
Case 4
Rows("13:16").Hidden = False
Rows("17:32").Hidden = True
Case 5 'cas 2
Rows("13:17").Hidden = False
Rows("18:32").Hidden = True
Case 6
Rows("13:18").Hidden = False
Rows("19:32").Hidden = True
Case Else 'autre cas
Rows("13:32").Hidden = True 'Masquer toutes les lignes
End Select 'fin de l'action en fonction de...
End Sub