lien hypertexte vers graph

[franckm]

Bonjour,
Je souhaiterais savoir s'il y a un moyen de faire un lien hypertexte d'une feuille de calcul vers un onglet graph. Car je souhaiterais faire un sommaire mais je ne peu faire de lien hypertexte que vers des feuilles de calcul est pas vers les onglets Graph.
Merci pour vous lumères, cordialement.

 

[Alain CROS]

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.

 

[franckm]

Alain CROS écrit:

Puis tu lance AjoutSommaire qui te crée une nouvelle feuille avec les liens que tu recherche.

Alain CROS.

Tu me peux dire où je dois lancer AjoutSommaire car je ne trouve pas