XL 2019 afficher/masquer lignes avec case d'option (contrôle de formulaire)

[Tioneb_h]

bonjour,

je n'arrive pas à afficher/masquer lignes avec case d'option (contrôle de formulaire)... voici mon code :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("G2")) Is Nothing Then
Select Case Target.Value

 Case Is = 1
  Rows("9:14").EntireRow.Hidden = True
 Rows("9:14").EntireRow.Hidden = False
  Case Is = 2
   Rows("9:14").EntireRow.Hidden = False
 Rows("9:14").EntireRow.Hidden = True
 
End Select
End If
End Sub

merci d'avance,
ben

 

[Tioneb_h]

bonjour,

je n'arrive pas à afficher/masquer lignes avec case d'option (contrôle de formulaire)... voici mon code :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("G2")) Is Nothing Then
Select Case Target.Value

 Case Is = 1
  Rows("9:14").EntireRow.Hidden = True
 Rows("9:14").EntireRow.Hidden = False
  Case Is = 2
   Rows("9:14").EntireRow.Hidden = False
 Rows("9:14").EntireRow.Hidden = True
 
End Select
End If
End Sub

merci d'avance,
ben

j'ai trouvé

Sub Casdoption1_Cliquer()

 Rows("9:14").EntireRow.Hidden = True

End Sub
Sub Casdoption2_Cliquer()

 Rows("9:14").EntireRow.Hidden = False

End Sub