XL 2021 Formulaire pour Onglet

  • Initiateur de la discussion Initiateur de la discussion bobafric
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

bobafric

XLDnaute Occasionnel
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
 
Solution
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 :
VB:
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 :
Code:
Sub GoSheet()
For Each F In Worksheets
    UserForm1.ListBox1.AddItem F.Name
Next F
UserForm1.Show
End Sub
Dans Listbox :
Code:
Private Sub ListBox1_Click()
Sheets(Me.ListBox1.Value).Select
Unload Me
End Sub
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 :
VB:
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 :
Code:
Sub GoSheet()
For Each F In Worksheets
    UserForm1.ListBox1.AddItem F.Name
Next F
UserForm1.Show
End Sub
Dans Listbox :
Code:
Private Sub ListBox1_Click()
Sheets(Me.ListBox1.Value).Select
Unload Me
End Sub
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
144
Réponses
5
Affichages
253
Réponses
10
Affichages
357
Réponses
5
Affichages
116
Retour