lien hypertexte et graphique

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.

"Francis Van" <anne@onyme.fr> a écrit dans le message de news: cmhvnt$si5$1@news.tiscali.fr...

Bonjour à tous,

dans un fichier, j'aimerai faire une page de garde avec des liens
hypertextes,
pas de problème pour naviguer dans les différentes feuilles mais j'ai créé
quelques graphiques que j'ai choisi de mettre dans des feuilles graphiques
et là je ne sais pas m'y rendre avec des liens hypertextes

Quelqu'un a-t'il une idée ?
je suis preneur

Merci d'avance
Bon week end studieux
Francis

--

Merci Monsieur Alain Cros

dès lundi je vais pouvoir le gros balèze vis à vis d'une collègue qui m'avit
posé la question

Je tiens à remercier tous ceux qui nous aident

Francis


--

"Alain CROS" <Personne@ICI> a écrit dans le message de news:
#yCH3A$wEHA.3336@TK2MSFTNGP11.phx.gbl...

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.

"Francis Van" <anne@onyme.fr> a écrit dans le message de news:
cmhvnt$si5$1@news.tiscali.fr...

Bonjour à tous,

dans un fichier, j'aimerai faire une page de garde avec des liens
hypertextes,
pas de problème pour naviguer dans les différentes feuilles mais j'ai
créé

quelques graphiques que j'ai choisi de mettre dans des feuilles
graphiques

et là je ne sais pas m'y rendre avec des liens hypertextes

Quelqu'un a-t'il une idée ?
je suis preneur

Merci d'avance
Bon week end studieux
Francis

--