Masquer plage nommée en VBA et toute la ligne !

[jjj002]

bonjour,

sur une ligne j'ai deux tableaux en parallèle quid avec entire row ca cache toute la ligne :-/
moi j'aimerai que ca s'applique que à la plage nommée

voici mon code :

Private Sub Worksheet_Activate()

End Sub


Private Sub Worksheet_Change(ByVal Target As Range)

Application.ScreenUpdating = False

Select Case Target.Address

Case "$C$67"

Range("rng.em.01, rng.em.02, rng.em.03").EntireRow.Hidden = True
For i = 1 To CDbl(Target.Value)
Range("rng.emp.0" & i).EntireRow.Hidden = False
Next i

Case "$G$67"

Range("rng.en.01, rng.en.02, rng.en.03").EntireRow.Hidden = True
For i = 1 To CDbl(Target.Value)
Range("rng.en.0" & i).EntireRow.Hidden = False
Next i

End Select
Application.ScreenUpdating = True
End Sub


d'avance merciii

 

[job75]

Re : Masquer plage nommée en VBA et toute la ligne !

Bonjour jjj002, bienvenue sur XLD,

moi j'aimerai que

Nous on aimerait voir le fichier 🙄

A+