accès onglets

[eastwick]

Bonjour,
Voilà le challenge : j'ai un fichier avec de nombreux onglets.
J'aimerais que sur chaque onglet, il y ait une liste de tous les autres (onglets !) et qu'en cliquant sur le nom de l'onglet correspondant dans cette liste, on y arrive !!!
D'avance, merci et bonne continuation à ce précieux site.

Dimitri.

 

[CHALET53]

Re : accès onglets

Bonjour,

Pourquoi pas un onglet Récap disposant de toute la liste avec :
un accès à l'onglet recherché à partir d'une sélection dans la liste
et
dans chaque onglet un bouton Retour à cet onglet Récap

a+

 

[Pierrot93]

Re : accès onglets

Bonjour,

click droit sur les boutons à gauche du 1er onglet devrait répondre à ta problèmatique...

bon après midi
@+

Edition : bonjour Chalet

 

[eastwick]

Re : accès onglets

Merci, mais j'ai déjà procédé ainsi. J'aimerais ne pas avoir à retourner sur une page "sommaire" mais aller directement à n'importe quel onglet depuis n'importe quel autre.

 

[eastwick]

Re : accès onglets

Merci mais beaucoup trop rudimentaire...

 

[job75]

Re : accès onglets

Bonjour à tous,

Ces 2 macros sont à placer dans ThisWorkbook :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim tablo(), s As Object, n As Integer
ReDim tablo(Sheets.Count - 2)
For Each s In Sheets
  If s.Name <> Sh.Name Then
    tablo(n) = s.Name
    n = n + 1
  End If
Next
Sh.[A1] = "Onglets": [A1].Font.Bold = True
If n Then Sh.[A2].Resize(n) = Application.Transpose(tablo)
Sh.Range("A" & n + 2 & ":A" & Rows.Count).ClearContents
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
  On Error Resume Next
  Sh.[A1].Select
  Sheets(Target.Text).Activate
End If
End Sub

A+

 

[eastwick]

Re : accès onglets

Wow génial !!!
Merci