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