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

For i = 1 To Worksheets.Count
   If sheets(i).name <> "DB" and sheets(i).name <> "DBVBA" and ....... Then
    [I7].Offset(i, 0).Value = Sheets(i).Name
   End if
Next i

Merci EngueEngue

J'ai modifier mon code en ajoutant un trie...

il me reste plus qu'a trouver comment faire pour les transformers en lien...

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
    If Sheets(i).Name <> "DB" _
        And Sheets(i).Name <> "DBVBA" _
        And Sheets(i).Name <> "DEB" _
        And Sheets(i).Name <> "INFO" _
        And Sheets(i).Name <> "TOL" _
        And Sheets(i).Name <> "EXP" Then

    [I7].Offset(i, 0).Value = Sheets(i).Name

   End If
Next i

With Sheets("INFO") ' recalcul la dernier ligne pour le trie
    DerLigne = .[I65000].End(xlUp).Row
End With

With ActiveWorkbook.Worksheets("INFO").Sort
    .SetRange Range("I8:I" & DerLigne)
'    .SetRange Range("I8:I30")
    .Apply
End With

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

End Sub 

Pas compris ton histoire de lien

En fait j’ai plusieurs proposition…

J’aimerai soit :

1. Créer un lien genre lien hypertexte, pour que l’utilisateur puisse ouvrir directement sa feuille sans utiliser les onglet en bas de page

Ou

2. En double cliquant sur la cellule du nom de l’onglet il active la feuille désirer…

Ou

Autre idée ?

Je pense que la deux est plus facile à réaliser mais il faut que le double clique soit seulement sur une plage de cellule précise

La solution la plus simple est la 2:

A mettre dans le module de la feuille qui contient tes noms de feuilles:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
Sheets(Target.value).Activate
End Sub

Merci pour votre aide..

Cela fonction très bien !

Est-il possible de valider cette commande seulement sur une plage de cellule définie ?

Oui, si l'intersection de la cellule sur laquelle tu fais double click (le target) et le range que tu choisis n'est pas vide alors:

if not intersect(Range, target) is nothing

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
if not intersect(Range("A1:C100"),target) is nothing then
Sheets(Target.value).Activate
end if
End Sub

merci pour tes explications et ton aide...

bonne soirée