Affichache de ligne masqué sous condition

Re : Affichache de ligne masqué sous condition

Bonjour,
ecrire dans "statut du porteur"
- "entreprise" -> les lignes apparaissent
- ou "autre chose" -> les lignes disparaissent

Code en Feuil1 :
Private Sub Worksheet_Change(ByVal Target As Range)
If Selection.Count = 1 Then
If Target.Address = "$H$6" Then
If Target.Value = "Entreprise" Then
Rows("8:28").EntireRow.AutoFit
Else
Rows("8:28").EntireRow.Hidden = True
End If
End If
End If
End Sub

Dis moi
Frédéric

Re : Affichache de ligne masqué sous condition

je vous remercie pour votre reponse mais j'ai fait une autre methode

Private Sub CommandButton1_Click()
For I = 6 To 8
If Cells(I, 8) = "Entreprise" Then
Range("A14:A20").Select
Selection.EntireRow.Hidden = False
ElseIf Cells(I, 8) = "Laboratoire de recherche" Then
Range("A21:A27").Select
Selection.EntireRow.Hidden = False
ElseIf Cells(I, 8) = "Indépendant" Then

Range("A9:A13").Select
Selection.EntireRow.Hidden = False
End If

Next I
End Sub