Cacher des lignes selon une valeur

Bonjour,

Je rempli une valeur entre 1 et 10 dans la case C6 et selon la valeur cela me cache certaines lignes.

Lorsque je change la valeur C6, la fenêtre VBA s'ouvre en me mettant en défaut cette ligne :

Rows("52:231").EntireRow.Hidden = False

de ce code :

Private Sub Worksheet_Change(ByVal Target As Range)

Application.ScreenUpdating = 0

Rows("52:231").EntireRow.Hidden = False

If Range("C6").Value = "1" Then Rows("52:231").EntireRow.Hidden = True

If Range("C6").Value = "2" Then Rows("72:231").EntireRow.Hidden = True

If Range("C6").Value = "3" Then Rows("92:231").EntireRow.Hidden = True

If Range("C6").Value = "4" Then Rows("112:231").EntireRow.Hidden = True

If Range("C6").Value = "5" Then Rows("132:231").EntireRow.Hidden = True

If Range("C6").Value = "6" Then Rows("152:231").EntireRow.Hidden = True

If Range("C6").Value = "7" Then Rows("172:231").EntireRow.Hidden = True

If Range("C6").Value = "8" Then Rows("192:231").EntireRow.Hidden = True

If Range("C6").Value = "9" Then Rows("212:231").EntireRow.Hidden = True

Application.ScreenUpdating = -1

End Sub

Pouvez-vous m'aider s'il vous plait? Je ne comprends pas ce qu'il se passe.

Je vous remercie.

Leneh

Bonjour Leneh,

Voici un code simplifié pour ton besoin.

Private sub Worksheet_Change(ByVal Target as Range)
if Target.Address = "$C$6" then
ActiveSheet.Rows("12:231")EntireRow.Hidden = False
Dep = Target.Value  * 20 + 32
ActiveSheet.Rows(Dep & ":231").EntireRow.Hidden = True
End if
End sub

Bons tests, bonne continuation

A nouveau, cela commence à 52 et non 12 comme écrit en 3ième ligne.

Private sub Worksheet_Change(ByVal Target as Range)
if Target.Address = "$C$6" then
ActiveSheet.Rows("52:231")EntireRow.Hidden = False
Dep = Target.Value  * 20 + 32
ActiveSheet.Rows(Dep & ":231").EntireRow.Hidden = True
End if
End sub