!...un classeur comprenant 36000 feuilles.
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
Salut, effectivement, tu as raison. Sur 2010 aussi !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+
Bonsoir,
!
Dans le module de la feuille...
...la liste étant en A1Code: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
A+
kjin