accès onglets

eastwick

XLDnaute Impliqué
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.
 

job75

XLDnaute Barbatruc
Re : accès onglets

Bonjour à tous,

Ces 2 macros sont à placer dans ThisWorkbook :

Code:
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+
 

Discussions similaires

Réponses
12
Affichages
331

Statistiques des forums

Discussions
312 932
Messages
2 093 733
Membres
105 802
dernier inscrit
Witchun