Discussion :

[niss16]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[joe.levrai]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[niss16]

Merci pour la proposition, ça fonctionne!

Mon code, pour ceux que ca intéresserait:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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