Erreur 1004 Impossible de définir la propriété hidden de la classe range

Bonjour,

J'ai un souci avec une macro.

J'ai une cellule avec une liste déroulante qui m'affiche un tableau selon la sélection de la liste.

Et rien si ma cellule est vide.

J'ai des cellules verrouillé dans mes tableau.

Cela marche très bien sans le mode feuille protégé, mais quand j'active la protection de la feuille cela me met Erreur 1004.

Voici mon code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$B$4" Then

Rows("8:" & Rows.Count).EntireRow.Hidden = True

If Target = "Golden" Then

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

ElseIf Target = "Gala" Then

Rows("57:83").EntireRow.Hidden = False

ActiveWindow.ScrollRow = 8

End If

End If

End Sub

Je ne comprend pas le problème !!!

Merci

Bonjour Loris,

Je te propose ce code VBA :

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address <> "$B$4" Then Exit Sub
  ActiveSheet.Unprotect
  Rows("8:" & Rows.Count).EntireRow.Hidden = True
  If Target = "Golden" Then
    Rows("9:55").EntireRow.Hidden = False
  ElseIf Target = "Gala" Then
    Rows("57:83").EntireRow.Hidden = False
    ActiveWindow.ScrollRow = 8
  End If
  ActiveSheet.Protect
End Sub

Bien sûr, si la feuille est protégée par un mot de passe, il faudra l'indiquer après .Unprotect

exemple : ActiveSheet.Unprotect "ton_mot_de_passe"

Cordialement,

dhany

Merci dhany c'est parfait