Bonjour,
J'ai une case C6 dans laquelle je peux entrer une valeur de 1 à10.
Selon la valeur indiquée, je souhaite cacher plus ou moins de lignes. Pour éviter d'utiliser la fonction If, j'ai choisi d'utiliser la fonction Case.
Voici mon code actuel. Il ne fonctionne pas, et je n'arrive pas à voir pour quelles raisons.
Je vous remercie par avance.
Sub Cacherlignes()
'
' Cacherlignes Macro
'
machine = Range("C6")
Select Case machine
Case Is = 1
Rows("52:231").EntireRow.Hidden = True
Case Is = 2
Rows("72:231").EntireRow.Hidden = True
Case Is = 3
Rows("92:231").EntireRow.Hidden = True
Case Is = 4
Rows("112:231").EntireRow.Hidden = True
Case Is = 5
Rows("132:231").EntireRow.Hidden = True
Case Is = 6
Rows("152:231").EntireRow.Hidden = True
Case Is = 7
Rows("172:231").EntireRow.Hidden = True
Case Is = 8
Rows("192:231").EntireRow.Hidden = True
Case Is = 9
Rows("212:231").EntireRow.Hidden = True
End Select
End Sub