Dans un classeur de 600 onglets, comment se rendre directement à l'onglet recherché?

[Richard v]

Bonjour,

j'ai créé un classeur de 600 onglets (fiche de stock). Je souhaiterai réaliser une macro ( ou autre) qui permette d'aller directement sur l'onglet recherché ( exemple onglet 290) sans avoir à faire défiler le liste des onglets en bas de feuille.

Est ce possible ?

Merci de votre aide

 

[JNP]

Re : Dans un classeur de 600 onglets, comment se rendre directement à l'onglet recher

Bonjour Richard V et bienvenue 🙂,
Un code de départ, à peauffiner

Sub Déplacement()
Dim Feuille As String
Feuille = InputBox("Nom de l'onglet à atteindre :")
On Error GoTo ExistePas
Sheets(Feuille).Activate
On Error GoTo 0
Exit Sub
ExistePas:
MsgBox "Cette feuille n'existe pas !!!"
End Sub

Bonne soirée 😎

 

[kiki29]

Re : Dans un classeur de 600 onglets, comment se rendre directement à l'onglet recher

Salut, juste pour une autre approche, via une ComboBox

Option Explicit

Private Sub ComboBox1_Click()
    Worksheets(ComboBox1.List(ComboBox1.ListIndex)).Activate
End Sub

Private Sub ComboBox1_DropButtonClick()
Dim a() As String, n As Long
Dim Ws As Worksheet
    For Each Ws In ThisWorkbook.Worksheets
        n = n + 1
        ReDim Preserve a(1 To n)
        a(n) = Ws.Name
    Next Ws
    With ComboBox1
        .ListRows = 64
        .List = Application.Transpose(a)
    End With
End Sub

 

[kiki29]

Re : Dans un classeur de 600 onglets, comment se rendre directement à l'onglet recher

Salut, via des hyperliens

 

[soenda]

Re : Dans un classeur de 600 onglets, comment se rendre directement à l'onglet recher

Bonsoir à tous

On peut aussi faire un clic droit sur les flèches (en bas à gauche) et
soit sélectionner la feuille désirée si elle apparait, soit sélectionner "Plus de feuilles", pour faire apparaître une CBoxe très pratique.

A plus