Listing des onglets avec Lien

Bonjour le forum,

J'ai placé un code dans un fichier pour lister les sheets, mais est-il possible que la liste obtenue puisse aussi contenir un lien vers le sheet en question?

Sub Refresh()
Dim i As Integer

    Range(Worksheets("Liste client").Range("A2"), Worksheets("Liste client").Range("A2").End(xlDown)).Clear
    Range("A2").Select

    For i = 1 To Sheets.Count
        ActiveCell.Value = Sheets(i).Name
        ActiveCell.Offset(1, 0).Select
    Next i

End Sub

bonjour,

une proposition

Sub Refresh()
Dim i As Integer

    Range(Worksheets("Liste client").Range("A2"), Worksheets("Liste client").Range("A2").End(xlDown)).Clear
    Range("A2").Select

    For i = 1 To Sheets.Count
        ActiveCell.Value = Sheets(i).Name
        ActiveSheet.Hyperlinks.Add Anchor:=ActiveCell, Address:="", SubAddress:= _
        Sheets(i).Name & "!A1", TextToDisplay:=Sheets(i).Name
        ActiveCell.Offset(1, 0).Select
    Next i

End Sub

Bonjour Heavy_B, le forum,

Peut-être ainsi :

Sub Refresh()
 Dim i As Integer
  With Sheets("Liste client")
   .Columns(1).Clear
   .Range("A2").Select
    For i = 1 To Sheets.Count
     ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & Sheets(i).Name & "'!A1", TextToDisplay:=Sheets(i).Name
     ActiveCell.Offset(1, 0).Select
    Next i
   End With
End Sub

Cordialement,

J'ai essayé le code de h2so4 et effectivement il y avais une petite erreur dans le nom, (il manquais les ' dans le lien) mais ca marche super.

Merci beaucoup à tout les 2 pour votre aide.

re-bonjour,

(il manquais les ' dans le lien)

En effet les ' sont nécessaires si le nom de la feuille contient des espaces.