,
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 SubJ'ai mis 2 code dans un Module mais il ne marche pas. Je suis très nul dans userform. Pouvez vous m'éclairer ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 Sub ChoixOnglet() Load fmListeOngletsClasseur fmListeOngletsClasseur.Show End Sub
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.
Partager