Lien hypertexte vers un graphe

Bonjour,

Copie -----

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.

fin de copie ----

Alain CROS

----- Original Message -----
From: "JièL Goubert" <NoSPAM_JieL.Goubert@laposte-net.NoSPAM>
Newsgroups: microsoft.public.fr.excel
Sent: Tuesday, January 24, 2006 12:06 PM
Subject: Lien hypertexte vers un graphe


| Salutatous
|
| il est possible de créer un lien hypertexte dans le même classeur vers
| n'importe quelle feuille de calcul et n'importe quelle cellule, mais je
| ne trouve pas comment le faire pour une feuille graphique...
|
| Evidement on peut faire une macro, mais c'était pour harmoniser afin
| d'avoir des lien HT de partout pour se promener dans un classeur
|
| Si vous avez une astuce... merci d'avance.
|
| --
| JièL / Jean-Louis GOUBERT
| La FAQ Outlook est la : http://faq.outlook.free.fr

Bonjoir© Alain CROS

merci beaucoup, c'est tip top

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr

Le 24/01/2006 21:29 vous avez écrit... :

Bonjour,

Copie -----

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.

fin de copie ----

Alain CROS

----- Original Message -----
From: "JièL Goubert" <NoSPAM_JieL.Goubert@laposte-net.NoSPAM>
Newsgroups: microsoft.public.fr.excel
Sent: Tuesday, January 24, 2006 12:06 PM
Subject: Lien hypertexte vers un graphe


| Salutatous
|
| il est possible de créer un lien hypertexte dans le même classeur vers
| n'importe quelle feuille de calcul et n'importe quelle cellule, mais je
| ne trouve pas comment le faire pour une feuille graphique...
|
| Evidement on peut faire une macro, mais c'était pour harmoniser afin
| d'avoir des lien HT de partout pour se promener dans un classeur
|
| Si vous avez une astuce... merci d'avance.
|
| --
| JièL / Jean-Louis GOUBERT
| La FAQ Outlook est la : http://faq.outlook.free.fr