Bonjour Anne, Thierry et le forum,
ben moi j'ai compris une feuille qui liste tous les onglets...enfin j'me lance je ne sais pas si c'est çà...lol
Donc voici une macro qui va créer une feuille
"Onglet Général" qui se placera en première position et sur laquelle sera listé l'ensemble des onglets présents dans le fichier...
le p'tit plus est d'avoir un lien Hypertexte sur chaque nom de feuille...
'*****************************************
Option Explicit
' Vériland Juillet 2003
Sub ListerFeuilles()
Dim Cherche As Variant
Dim Boucle As Long
Application.ScreenUpdating = False
Set Cherche = Sheets.Add(Before:=Sheets(1))
On Error GoTo Gestion_feuille_existe
Debut_Procedure:
Cherche.Name = "Onglet Général"
[A1] = "Liste des onglets du classeur"
With Selection.Font
.Bold = True
.Size = 16
End With
For Boucle = 2 To Sheets.Count
Cherche.Cells(Boucle, 1).Value = "Onglet N° " & Boucle - 1
With Worksheets(Cherche.Name)
ActiveSheet.Hyperlinks.Add Anchor:=.Cells(Boucle, 2), _
Address:="", SubAddress:=Sheets(Boucle).Name & "!A1", _
TextToDisplay:="Lien vers " & Sheets(Boucle).Name
End With
Next Boucle
[F1].Activate
ActiveWindow.DisplayGridlines = False
Exit Sub
Gestion_feuille_existe:
Application.DisplayAlerts = False
Sheets("Onglet Général").Delete
Application.DisplayAlerts = True
GoTo Debut_Procedure
End Sub
'*****************************************
