Sub toto1()
Dim plg As Range
With Sheets("Evaluations")
.Rows("12:613").EntireRow.Hidden = False
Select Case Range("G8").Value
Case "Première période": Set plg = .Rows("62:143")
Case "Seconde période": Set plg = Union(.Rows("45:61"), .Rows("74:143"))
Case "Troisième période": Set plg = Union(.Rows("45:73"), .Rows("86:143"))
Case "Quatrième période": Set plg = Union(.Rows("45:85"), .Rows("102:143"))
Case "Cinquième période": Set plg = Union(.Rows("45:101"), .Rows("123:143"))
Case "Sixième période": Set plg = .Rows("45:122")
End Select
End With
If Not plg Is Nothing Then plg.EntireRow.Hidden = True
Set plg = Nothing
End Sub
Sub toto2()
With Sheets("Evaluations")
.Rows("12:613").EntireRow.Hidden = False
If Range("G8").Value = "Première période" Then
.Rows("62:143").EntireRow.Hidden = True
ElseIf .Range("g8").Value = "Seconde période" Then
Union(.Rows("45:61"), .Rows("74:143")).EntireRow.Hidden = True
ElseIf .Range("g8").Value = "Troisième période" Then
Union(.Rows("45:73"), .Rows("86:143")).EntireRow.Hidden = True
ElseIf .Range("g8").Value = "Quatrième période" Then
Union(.Rows("45:85"), .Rows("102:143")).EntireRow.Hidden = True
ElseIf .Range("g8").Value = "Cinquième période" Then
Union(.Rows("45:101"), .Rows("123:143")).EntireRow.Hidden = True
ElseIf .Range("g8").Value = "Sixième période" Then
.Rows("45:122").EntireRow.Hidden = True
End If
End With
End Sub
Sub toto3()
Dim plg As Range
With Sheets("Evaluations")
.Rows("12:613").EntireRow.Hidden = False
If Range("G8").Value = "Première période" Then
Set plg = .Rows("62:143")
ElseIf .Range("g8").Value = "Seconde période" Then
Set plg = Union(.Rows("45:61"), .Rows("74:143"))
ElseIf .Range("g8").Value = "Troisième période" Then
Set plg = Union(.Rows("45:73"), .Rows("86:143"))
ElseIf .Range("g8").Value = "Quatrième période" Then
Set plg = Union(.Rows("45:85"), .Rows("102:143"))
ElseIf .Range("g8").Value = "Cinquième période" Then
Set plg = Union(.Rows("45:101"), .Rows("123:143"))
ElseIf .Range("g8").Value = "Sixième période" Then
Set plg = .Rows("45:122")
End If
End With
If Not plg Is Nothing Then plg.EntireRow.Hidden = True
Set plg = Nothing
End Sub