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

jjj002

XLDnaute Nouveau
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
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 902
Membres
101 834
dernier inscrit
Jeremy06510