Sub AfficheMasquePMI()
Rows("7:41").EntireRow.Hidden = False 'Affiche toutes les lignes
Select Case [L1]
Case Is = "PMIA"
Rows("20:30").EntireRow.Hidden = True 'Masque PMIB
Rows("31:40").EntireRow.Hidden = True 'MASQUE PMIC
Case Is = "PMIB"
Rows("7:19").EntireRow.Hidden = True 'Masque PMIA
Rows("31:40").EntireRow.Hidden = True 'MASQUE PMIC
Case Is = "PMIC"
Rows("7:19").EntireRow.Hidden = True 'Masque PMIA
Rows("20:30").EntireRow.Hidden = True 'MASQUE PMIB
End Select
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$L$1" Then
Call AfficheMasquePMI
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Not Intersect(Target, Range("L1")) Is Nothing Then
With ActiveSheet
.Range("PMIA").EntireRow.Hidden = True
.Range("PMIB").EntireRow.Hidden = True
.Range("PMIC").EntireRow.Hidden = True
.Range(Target).EntireRow.Hidden = False
End With
End If
Application.ScreenUpdating = True
End Sub
.Range("PMI" & Target).EntireRow.Hidden = False
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Not Intersect(Target, Range("N6")) Is Nothing Then
With ActiveSheet
.UsedRange.Offset(9, 0).EntireRow.Hidden = True
On Error GoTo fin
.Range("PMI" & Target).EntireRow.Hidden = False
Application.ScreenUpdating = True
End With
Exit Sub
End If
fin:
MsgBox "la plage nommée: PMI" & Target & " n'existe pas"
Application.ScreenUpdating = True
End Sub