Activer feuille du classeur à partir d'un menu

[horace]

Bonjour,
J'ai un classeur avec 15 feuilles et j'ai créé une feuille "Menu" à partir de laquelle je souhaiterai activer les feuilles en cliquant sur leurs noms dans le menu.
Je n'ai pas trouver dans ma recherche sur le site de code à adapter, je demande donc de l'aide.

 

[Lolote83]

Salut HORACE,
Voir ici si cela te convient
@+ Lolote83

 

[Robert]

Bonjour Horace, Lolote, bonjour le forum,

Tu peux utiliser des liens Hypertexte ou adapter ce code de la macro événementielle SelectionChange à placer dans l'onglet Menu :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next 'Si les noms dans la plage correspondent exactement au noms des onglet tu peux supprimer cette ligne
If Application.Intersect(Target, Range("A1:A15")) Is Nothing Then Exit Sub 'plage A1:A15 à adapter à ton cas
Sheets(Target.Value).Activate
End Sub

 

[horace]

Bonjour Robert, Bonjour Lolote,

Merci à vous deux pour votre réponse rapide et efficace! J'ai finalement choisi la proposition de Robert qui rempli à 100% mon besoin.
Pour ceux qui souhaiteraient l'utiliser également il manque juste le end if à positionner après le exit sub.
Pour conclure, c'est super de pouvoir compter sur ce genre de site.

 

[Robert]

Re,

Non, non, le End If n'est pas nécessaire, sauf si tu as renvoyé Exit Sub dans la ligne suivante...
La ligne telle que je l'ai écrite signifie : Si la cellule active se trouve en dehors de la plage A1:A15, alors on sort de la procédure et rien ne se passe.

 

[horace]

Effectivement j'avais renvoyé le exit sub en ligne suivante! Donc en copiant/collant le code sans modification CA MARCHE.