Liste d'onglet avec liens

Bonjour le forum...

J'aurais deux question technique pour réaliser ma liste d'onglet

1. Pourriez-vous m'aider à modifier ce code pour qu'il exclut du résultat les feuilles suivantes:

"DB" ; "DBVBA" ; "INFO" ; "DEB" ; "EXP" et "TOL"

2. M'indiquer comment faire pour transformer les résultat en liens vers les onglets, le but est de faire une récap de tous les onglets pour pouvoir les selectionnent plus facilement...

Petit précision les feuilles qui seront rajouter dans le classeur se nomerons de la façon suivante : par ex, 100.2, 100.3 ou 231.5 etc..

Private Sub CommandButton1_Click()
Dim DerLigne As String

Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False

With Sheets("INFO")
    DerLigne = .[I65000].End(xlUp).Row
    .Range("I8:I" & DerLigne).ClearContents
End With

For i = 1 To Worksheets.Count
    [I7].Offset(i, 0).Value = Sheets(i).Name
Next i

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

End Sub

Merci d'avance

Bonjour

Essaie ce code :

Dim f, DerLigne, i

Sub Liste()
    Application.Calculation = xlCalculationManual
    Application.ScreenUpdating = False

    With Sheets("INFO")
        DerLigne = .[I65000].End(xlUp).Row
        .Range("I8:I" & DerLigne).ClearContents
        For Each f In Worksheets
            If f.Name <> "DB" And f.Name <> "DBVBA" And f.Name <> "DEB" _
                    And f.Name <> "EXP" And f.Name <> "TOL" Then
                DerLigne = Application.Max(8, .[I65000].End(xlUp).Row + 1)
                Range("I" & DerLigne) = f.Name
            End If
        Next f
     End With
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
End 

Bye !

Vraiment top

merci

Si la première partie te convient, qu'en est-il de la suite :

Sub Liste()
    Application.Calculation = xlCalculationManual
    Application.ScreenUpdating = False

    With Sheets("INFO")
        DerLigne = .[I65000].End(xlUp).Row
        .Range("I8:I" & DerLigne).ClearContents
        For Each f In Worksheets
            If f.Name <> "DB" And f.Name <> "DBVBA" And f.Name <> "DEB" _
                    And f.Name <> "EXP" And f.Name <> "TOL" Then
                DerLigne = Application.Max(8, .[I65000].End(xlUp).Row + 1)
                Range("I" & DerLigne) = f.Name
                If f.Name <> ActiveSheet.Name Then
                    ActiveSheet.Hyperlinks.Add Anchor:=Range("I" & DerLigne), Address:="", SubAddress:= _
                    f.Name & "!A1", TextToDisplay:=f.Name
                End If
            End If
        Next f
     End With
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
End Sub

Bye !

Code parfait merci pour ton aide c’est exactement ce que je voulais…

Passe un bonne journée