Liste déroulante qui ouvre des onglets

Bonjour à tous,

J'ai fait un tour sur le forum, je n'ai pas réussi a trouver une réponse récente à mon problème. Je m'excuse d'avance si c'est de la redite.. et je vous remercie d'avance si vous pouvez m'aider.

J'ai créée une liste déroulante avec l'ensemble des noms de mes onglets. J'ai essayé, sans succès, de créer une macro dont l'objectif était le suivant : quand je choisis un onglet dans ma liste, ledit onglet s'ouvre. Le macro ne s'exécute pas automatiquement, et je n'arrive pas affecter la macro à ma liste déroulante. De toute évidence, il me manque une étape clé.

Je suis très preneuse de vos conseils ou des étapes à suivre, pour que je puisse apprendre le process et pouvoir l'appliquer à d'autres fichiers.

Merci d'avance à toute âme charitable. Lydia

Bonsoir,

Une proposition.

Cordialement.

Bonsoir à tous les 2

Un autre exemple

Bonsoir à tous les 2,

Encore merci pour vos retours rapides ! C'est exactement ça ! Comment vous y êtes arrivés aussi facilement ?

Bonjour à toutes et tous,

Une 3e. proposition.

Cdlt.

Salut Lydia,
Salut léquipe,

simplissime, sans autre feuille nécessaire que les feuilles existantes.
Pour cette version, supposons que nous réservons le cellule [A1] pour opérer ce choix.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
'
If Not Intersect(Target, [A1]) Is Nothing Then
    Target.Validation.Delete
    For x = 1 To Sheets.Count
        sMsg = sMsg & IIf(sMsg = "", "", ",") & Sheets(x).Name
    Next
    Target.Validation.Add Type:=xlValidateList, Formula1:=sMsg
End If
'
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'
If Not Intersect(Target, [A1]) Is Nothing Then Worksheets([A1]).Activate
'
End Sub

Clique en [A1] et choisis...

A+

Merci à tous ! Vous êtes vraiment top !

Re,

Bon je n'ai pas regardé les autres propositions, mais j'aime la mienne !

Bonne soirée et bon weekend.

Cdlt.