Discussion :

[P96O1004]

,

Voici le code que j'ai choppé sur l'internet :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Private Sub cbListeOngletsClasseur_Change()
   cbListeOngletsClasseur.MatchRequired = True
   cbListeOngletsClasseur.MatchEntry = fmMatchEntryComplete
End Sub
 
Private Sub cbListeOngletsClasseur_Click()
     Select Case cbListeOngletsClasseur.ListIndex
     End Select
End Sub
 
Private Sub cmdOK_Click()
    Num = (cbListeOngletsClasseur.ListIndex) + 1
        If Num = 0 Then
        MsgBox "Vous n'avez rien sélectionné, RECOMMENCER!!!"
        Unload fmListeOngletsClasseur
        Call ChoixOnglet
        Else
        Sheets.Item(Num).Select
        Unload fmListeOngletsClasseur
        End If
End Sub
 
Private Sub cmdOK_Enter()
Num = (cbListeOngletsClasseur.ListIndex) + 1
        If Num = 0 Then
        MsgBox "Vous n'avez rien sélectionné, RECOMMENCER!!!"
        Unload fmListeOngletsClasseur
        Call ChoixOnglet
        Else
        Sheets.Item(Num).Select
        Unload fmListeOngletsClasseur
        End If
End Sub
 
Private Sub cmdQuitter_Click()
    fmListeOngletsClasseur.Hide
    Unload fmListeOngletsClasseur
End Sub
 
 
Private Sub UserForm_Initialize()
    Dim Numfeuille As Integer
    Dim NomFeuille As Variant
 
        For Numfeuille = 1 To Worksheets.Count
            NomFeuille = Worksheets(Numfeuille).Name
            cbListeOngletsClasseur.AddItem "" & NomFeuille
        Next Numfeuille
   cbListeOngletsClasseur.Style = fmStyleDropDownCombo
 
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub ChoixOnglet()
    Load fmListeOngletsClasseur
    fmListeOngletsClasseur.Show
End Sub

J'ai mis 2 code dans un Module mais il ne marche pas. Je suis très nul dans userform. Pouvez vous m'éclairer ?

Ce sera utile pour les gens qui travaillent avec les fichiers d'excel de centaines onglets.

Merci par avance.

P/S : j'ai fait une recherche avec mot clé "naviguer" mais les résultats ne sont pas satisfaisantes.

[Maxence HUBICHE]

Le premier code est à mettre dans un UserForm !
Pas dans un module...

[P96O1004]

merci Maxence

Je suis en train de "manger" le tutoriel userform de developpez mais il parait dur.

J'ai essaie de trouver une autre plus simple pour voir comment mettre code dans userform.

[Maxence HUBICHE]

ben...
tu regardes dans l'explorateur de projets (en haut à gauhe de ton écran, normalement)
Il y a un petit bouton "Afficher le code"
Tu cliques dessus
tu arrives alors dans un "module" UserForm1 (Code)
Tu colles le code dedans.

[JPierreM]

Si ton code répond à un besoin pédagogique alors continue par contre je peux te proposer le code suivant qui t'affiche la barre des onglets du classeur par un double clic et te permet de sélectionner la feuille souhaitée. J'en suis resté à Excel 2003

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    Application.CommandBars("Workbook tabs").ShowPopup '500, 200
End Sub

Bonne continuation avec les formulaires