Ouvrir des onglets à partir d'une liste déroulante comportant le nom des onglets

Nessie à dit:

...un classeur comprenant 36000 feuilles.

Cliquez pour agrandir...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Count = 1 Then
    Sheets(CStr(Target)).Activate
End If
End Sub

Gorfael à dit:

Salut Nessie et le forum
Sur 2003, il y a des icones pour se déplacer à gauche des noms d'onglets (premier, précédent suivant derniers) et quand on clic-droit dessus, la liste des feuilles pour aller directement à celle qui nous intéresse.
A+

Cliquez pour agrandir...

kjin à dit:

Bonsoir,

!
Dans le module de la feuille...

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Count = 1 Then
    Sheets(CStr(Target)).Activate
End If
End Sub

...la liste étant en A1
A+
kjin

Cliquez pour agrandir...