Avec tes deux bouts de phrase, difficile de déterminer ce que tu sais et ce que tu as déjà essayé!?
Tu as essayé le clic droit sur les flèches à gauche du premier onglet?
Bonjour,
Comme l'as déjà dit Modeste un Click "DROIT" sur les petites flèches du bas donne la liste des feuilles et ont peut sélectionner celle qu'on désire
Merci Si.. pour ce fichier, mais cela serait mieux qu'il soit développer à l'ouverture.
Sinon, un autre code que j'ai eu du mal à trouver mais que je me rappellais que cela existait :
Code:
Sub Liste_feuilles()
If ActiveWorkbook.Sheets.Count < 17 Then
Application.CommandBars("Workbook tabs").ShowPopup 500, 200
Else
Application.CommandBars("Workbook tabs").Controls("Plus de feuilles...").Execute
End If
End Sub
Sinon, un autre code que j'ai eu du mal à trouver mais que je me rappellais que cela existait :
Code:
Sub Liste_feuilles()
If ActiveWorkbook.Sheets.Count < 17 Then
Application.CommandBars("Workbook tabs").ShowPopup 500, 200
Else
Application.CommandBars("Workbook tabs").Controls("Plus de feuilles...").Execute
End If
End Sub
il suffit d'ajouter une instrusion (n'est-ce pas Staple )
VB:
Private Sub UserForm_Initialize()
Dim n As Byte
For n = 1 To Sheets.Count: Cf.AddItem Sheets(n).Name: Next
Cf.DropDown '<----------------------------------------------- celle là
End Sub