Problème avec Worksheet_change sur deux feuilles différentes

Bonjour,

J'ai utilisé cette formule qui fonctionne très bien sur un classeur nommé "nouveaux" et lorsque j'ai voulu copié le fichier sur un autre onglet (classeur "anciens") en modifiant quelques informations, la formule ne fonctionnait pas sur le fichier recopié.

Y a-t'il un code à rajouter pour différencier les deux classeurs ?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Range
Application.ScreenUpdating = False
If Not Application.Intersect(Target, Range("N5")) Is Nothing Then
Range("A11:A55").EntireRow.Hidden = False
For Each Cel In Range("A11:A55")
If Cel.Value <> "" And Cel.Value = 0 Then
Cel.EntireRow.Hidden = True
End If
Next
End If
End Sub

Merci de vos conseils

Bonsoir,

cette procédure événementielle doit se trouver sur la feuille qu'elle surveille et non dans un module "standard".
Maintenant si le disfonctionnement ne vient pas de là, cette procédure surveille le changement de valeur de la feuille à laquelle elle se rapporte, mais cette surveillance ne se fait que sur la cellule N5, donc si Target (cellule dont la valeur a changé) est en intersection avec N5, alors le code se déroule.

Voyez si cette cellule surveillée est bien celle que vous voulez surveiller sur le nouveau classeur.

Sinon pour ma part je ne vois pas pourquoi elle ne fonctionnerait pas...

@ bientôt

LouReeD

Merci de votre réponse. Votre message m'a aidée à retrouver l'erreur commise. Dans ma 2e feuille, j'ai ajouté une ligne , ce qui m'a conduit à voir qu'il suffisait juste de changer la cellule "N5" par "N6". Merci pour votre explication claire.

Bonne soirée

Merci pour vos remerciements !

@ bientôt

LouReeD