Re : Championnat à 25 équipes
Re travolta,
Les feuilles ne sont pas protégées, le code VBA non plus,
Avec Alt F11, et dans ProjectVba, tu as Feuilles et Menu, tu cliques dessus et à droite tu auras ceci :
Private Sub ListBox1_Change()
Dim Clubs2 As Variant
Clubs2 = Array("Ajaccio", "Auxerre", "Bastia", "Bordeaux", _
"Guingamp", "Le Mans", "Lens", "Lille", "Lyon", _
"Marseille", "Metz", "Monaco", "Montpellier", "Nantes", _
"Nice", "PSG", "Rennes", "Sochaux", "Strasbourg", "Toulouse")
Application.ScreenUpdating = False
If initialisation = False Then
For i = 0 To 19
If ListBox1.Selected(i) = True Then
Sheets(Clubs2(i)).Visible = True
ElseIf ListBox1.Selected(i) = False Then
Sheets(Clubs2(i)).Visible = False
End If
Next i
If ListBox1.Selected(ListBox1.ListIndex) = True Then
Sheets(Clubs2(ListBox1.ListIndex)).Select
End If
End If
Application.ScreenUpdating = True
End Sub
Déjà là, tu peut changer les noms de tes clubs.... ensuite aussi le nom des onglets, double clic dessus et tu modifies....
Pour le reste, je te laisse découvrir, tant dans le VBA, que dans les feuilles....
Le classeur est sous MDP, mais à priori cela ne gène pas...
Tu reviens pour compléments.
A te lire donc.
Jean-Pierre
Pour les 25, pas encore regardé...