XL 2021 Formulaire pour Onglet

[bobafric]

Bonjour à tous, existe t'il une macro ou autre qui permet d'ouvrir un onglet parmi tous les onglets du classeur en tapant le nom de l'onglet dans un userforme (par exemple). J'ai une cinquantaine d'onglets et ça faciliterai la recherche

 

[sousou]

Bonjour
c'est possible sans difficulté, mais avec un fichier c'est mieux.
Dans l'exemple lance la macro avec ctrl d

 

[sylvanu]

Bonjour Bobafric, Gégé,
Un peu à labourd mais puisque c'est fait, voir PJ.
L'action se lancer sur appui sur "²" jamais utilisé avec :
Dans Thisworkbook :

Private Sub Workbook_Open()
     Application.OnKey "²", "GoSheet"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
     Application.OnKey "²", ""
End Sub

En module pour faire la liste des feuilles :

Sub GoSheet()
For Each F In Worksheets
    UserForm1.ListBox1.AddItem F.Name
Next F
UserForm1.Show
End Sub

Dans Listbox :

Private Sub ListBox1_Click()
Sheets(Me.ListBox1.Value).Select
Unload Me
End Sub

 

[sylvanu]

Re,
Et en bidouillant un peu, on peut avoir uniquement la feuille désirée visible.

 

[bobafric]

Merci Barbatruc c'est nickel comme d'hab Bonne apre'm