Private Sub Worksheet_Activate()
' Automatismes à l'ouverture de l'onglet
' Déprotège l'onglet
ActiveSheet.Unprotect
' Masque les lignes vides des Equipes et Agents non saisis en BDD, et les détails des Agents
' Equipe 01
' Nom Equipe 01
If Sheets("BDD").Range("F3") = 0 Then
Rows("5").EntireRow.Hidden = True
Else
Rows("5").EntireRow.Hidden = False
End If
' Agent 01 de l'Equipe 01
If Sheets("BDD").Range("H4") = 0 Then
Rows("6:13").EntireRow.Hidden = True
Else
Rows("6:13").EntireRow.Hidden = False
Rows("7:12").EntireRow.Hidden = True
End If
' Agent 02 de la Brigade 01
If Sheets("BDD").Range("H5") = 0 Then
Rows("14:21").EntireRow.Hidden = True
Else
Rows("14:21").EntireRow.Hidden = False
Rows("15:20").EntireRow.Hidden = True
End If
' Il y a ainsi au total 7 Equipes de 10 Agents chacune!
' Sélectionne la liste déroulante des mois
Range("A4").Select
' Reprotège l'onglet
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub