Listbox presentant liste des onglets

  • Initiateur de la discussion Initiateur de la discussion copayo
  • Date de début Date de début

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 !

copayo

XLDnaute Occasionnel
Bonsoir à tous,

Je souhaiterais dévelloper une list box présentant les onglets visible d'un classeur.

J'ai récupéré une partie de code mais qui ne traite pas des onglets 'graph'.

Je joins un fichier montrant la strcuture à présenter. Il faudrait que les feuilles apparaissent dans le meme ordre que dans le fichier.

Merci pour votre aide,

Sub MarqueFeuillesListbox()
Dim Availablesheet As Worksheet
For Each Availablesheet In ActiveWorkbook.Worksheets
If Availablesheet.Visible = xlSheetVisible Then
LbFeuilles.AddItem (Availablesheet.Name)
Else
End If
Next Availablesheet
On Error GoTo 0
End Sub
[file name=test_generation_presentation_powerpoint_V2_20060124192149.zip size=14524]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/test_generation_presentation_powerpoint_V2_20060124192149.zip[/file]

Message édité par: copayo, à: 24/01/2006 19:21
 

Pièces jointes

Bonsoir,

Dès un double clic dans une cellule, une fenetre apparait avec la liste des onglets.

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
Application.CommandBars('Workbook tabs').ShowPopup
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

Discussions similaires

Retour