Onglets

[boulou]

Bonjour,

Peut être ai-je trouvé un début de solution pour lister les ongletsmais je veux arriver à quelque chose de plus performant.

Base.


Sub ListeFeuille()
Dim i As Byte
For i = 1 To ThisWorkbook.Worksheets.Count
Cells(i, 1) = ThisWorkbook.Worksheets(i).Name
Next
End Sub



_______________________
Je souhaite obtenir que cette liste d'onglets se mette à jour automatiquement à chaque ajout et qu'elle se classe selon l'alphabet.

En une seconde étape il serait souhaitable qu'en cliquant sur un quelconque nom de cette liste, la feuille correspondante soit affichée.

Exigeant le bonhomme ????

Merci à vous.

 

[BOISGONTIER]

Re : Onglets

Bonjour,

Private Sub Worksheet_Activate()
  [C5:C100].ClearContents
  For i = 2 To Sheets.Count
   nf = Sheets(i).Name
   ActiveSheet.Hyperlinks.Add Anchor:=Cells(i + 3, 3), Address:="", SubAddress:="'" & _
      nf & "'" & "!A1", TextToDisplay:=nf
  Next i
  [C5:C100].Sort Key1:=Range("C5"), Order1:=xlAscending, Header:=xlGuess 
End Sub

Les liens hyper-textes

JB