Lien pour afficher onglet

Bonjour à vous,

Je suis certain que vous allez être en mesure de répondre à ma demande, comme vous le faites à tout les fois.

J'ai une feuille (Master) qui regroupe des le noms des onglets (A7 à G31). Le nom des onglets sont dynamiques. C'est à dire que si je change la valeur présente dans la feuille (Master), elle change automatiquement le nom de l'Onglet rattaché.

Mon problème est simple mais je n'ai pu le résoudre.

Dans un Range ("A7:G31") de la feuille ("Master") faire des liens sur double clic qui permet d'afficher la feuille portant le même nom que la valeur.

Merci

Bonjour,

Un test. Sans fichier compliqué de se représenter la chose :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo ERREUR
If Not Application.Intersect(Target, [A7:G31]) Is Nothing Then Worksheets(Target.Value).Activate: Exit Sub
ERREUR: MsgBox "Feuille non trouvée", vbCritical
End Sub

Avec le fichier qui va bien. Je vous laisse adapter

Cdlt,

11classeur1.xlsm (15.54 Ko)

Merci

Toujours aussi efficace

Rechercher des sujets similaires à "lien afficher onglet"