Bonjour.
Bonjour.
Il n'est pas possible de faire un lien vers une feuille graphique mais ...
Colle ce code dans le module ThisWorkbook.
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
On Error Resume Next
If Not Sh Is Worksheets('Sommaire') Then Exit Sub
If Intersect(Target, Sh.Range('A1:A' & Sheets.Count - 1)) Is Nothing Then Exit Sub
If ActiveSheet Is Sh Then Sheets(Target.Value).Activate
End Sub
Puis celui ci dans un module standard.
Sub AjoutSommaire()
Dim I&
Application.DisplayAlerts = False
On Error Resume Next
Worksheets('Sommaire').Delete
On Error GoTo 0
Application.DisplayAlerts = True
Worksheets.Add(Sheets(1)).Name = 'Sommaire'
For I = 2& To Sheets.Count
Worksheets(1).Range('A' & I - 1&) = Sheets(I).Name
If TypeName(Sheets(I)) = 'Chart' Then
Worksheets(1).Hyperlinks.Add Worksheets(1).Range('A' & I - 1&), '', _
Worksheets(1).Name & '!A' & I - 1&
Else
Worksheets(1).Hyperlinks.Add Worksheets(1).Range('A' & I - 1&), '', _
Worksheets(1).Range('A' & I - 1&) & '!A1'
End If
Next I
End Sub
Puis tu lance AjoutSommaire qui te crée une nouvelle feuille avec les liens que tu recherche.
Alain CROS.