Code VBA par feuille ou par classeur

Bonjour à tous,

Pour me faciliter la vie dans la navigation des pages de mes classeurs Excel, j'ai trouvé une fonctionnalité VBA permettant d'aller dans une feuille souhaitée en utilisant une liste déroulante. Corollaire: je n'ai plus à utiliser ma souris!

Sauf que le code en question doit être répliqué sur chaque page:

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub With Sheets(Target.Value) .Visible = True .Activate End With End Sub

---

Or, j'aimerais bien ne pas avoir à copier/coller ce code à chaque fois que j'ouvre une nouvelle feuille.

Ainsi, il me semble que trois possibilités s'offrent à moi:
1 - Faire en sorte que la macro fonctionne sur l'ensemble du classeur et non page par page;
2 - Créer une macro qui s'active automatiquement à chaque création de feuille, qui écrirait elle-même la macro dans la nouvelle feuille. Je ne sais pas si c'est possible;
3 - Trouver une autre façon de procéder pour obtenir le même résultat. Je suis ouvert à vos suggestions :)

Par avance merci pour vos lumières!

Bonne journée.

Bonjour,

tu peux utiliser l'évènement SheetChange du module Thisworkbook

Code:

---

1 2 3

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)   End Sub

---

Il s'activera à chaque fois que tu change de feuille

Merci pour la proposition, ça fonctionne!

Mon code, pour ceux que ca intéresserait:

Code:

---

1 2 3 4 5 6 7

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub With Sheets(Target.Value) .Visible = True .Activate End With End Sub

---

Citation:

---

Envoyé par joe.levrai

Bonjour,

tu peux utiliser l'évènement SheetChange du module Thisworkbook

Code:

---

1 2 3

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)   End Sub

---

Il s'activera à chaque fois que tu change de feuille

---