Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
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 !
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
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
- 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