Re : Afficher des lignes en fonction de la valeur "oui" ou "non" d'une cellule
Après avoir entré les codes dans le fichier original (Worksheet et ThisWorkBook), enfin, disons dans une copie car j'ai compris qu'il fallait être prudent, j'obtiens une demande de débogage sur le Woksheet avec le commentaire suivant : Erreur d'exécution '424' :
Private Sub Worksheet_Change(ByVal Target As Range)
If R.Address <> "$D$19" Then Exit Sub
Me.Unprotect "XXX"
Range("20:48,59:64,80:83").EntireRow.Hidden = IIf(R = "Non", 1, 0)
Me.Protect "XXX"
End Sub
c'est la ligne If R.Address <> "$D$19" Then Exit Sub qui est surlignée. Elle doit donc être le lieu de la difficulté.
J'ajoute que pour recopier les formules, j'ai commencé par tout effacer ce que j'avais déjà écrit pour recommencer sur une bonne base puis recopier strictement en modifiant les variables (numéro de feuille, cellule "oui/non" et lignes à masquer.
Pardon de vous redemander un coup de main...
cordialement,