liste onglet de classeur

[mariobross]

bonsoir le forum, quelqu'un aurai une idée pour avoir la liste des onglets du classeur actif accessible depuis une liste de choix. merci à tous ceux qui planchent sur ce forum .

 

[Fabien]

bonsoir mariobross

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

bonne soirée

 

[mariobross]

merci fabien , mais j'ai un pb avec ce code , qaund je fais un d cliq rien n'apparait .

 

[mariobross]

autant pour moi fabien je viens de m'apercevoir qu'il fallait inscrire le code dans this workbook ,mais comment faire pour pouvoir selectionner un nom dans la liste et que celui ci s'incrive dans une cellule ?