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

Tioneb_h

XLDnaute Nouveau
bonjour,

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

VB:
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

XLDnaute Nouveau
bonjour,

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

VB:
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é :)

VB:
Sub Casdoption1_Cliquer()

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

End Sub
Sub Casdoption2_Cliquer()

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

End Sub
 

Discussions similaires

Réponses
12
Affichages
203
Réponses
17
Affichages
405

Statistiques des forums

Discussions
300 988
Messages
1 989 087
Membres
210 367
dernier inscrit
miss.margotte61