Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel SheetFollowHyperlink pour afficher une feuille

SheetFollowHyperlink pour afficher une feuille

8 réponses
Avatar
Patrick BASTARD
Bonjour à tous.

Je cherche le moyen d'afficher l'une des feuille masquées de mon classeur en
cliquant sur son lien hypertexte, qui se trouve sur une feuille récap, dans
le même classeur. (excel 2002).
Les liens hypertexte fonctionnent correctement lorsque les feuilles sont
affichées.

Pas quand les feuilles sont masquées.

J'ai trouvé cet événement, mais l'aide ne m'aide pas beaucoup !
Et ce code, mis dans un module standard, ou dans la feuille récap, n'affiche
pas ma feuille :

Private Sub SheetFollowHyperlink _
(ByVal Sh As Object, ByVal Target As Excel.Hyperlink)
Sh.Visible = xlSheetVisible
End Sub

L'un d'entre vous aurait(-il la gentillesse de corriger ma copie, et de me
dire où le code doit être écrit ?

Merci en tous cas,


--
Bien cordialement,
P. Bastard
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jacques
Bonsoir,
Bonjour à tous.

Je cherche le moyen d'afficher l'une des feuille masquées de mon classeur en
cliquant sur son lien hypertexte, qui se trouve sur une feuille récap, dans
le même classeur. (excel 2002).
Les liens hypertexte fonctionnent correctement lorsque les feuilles sont
affichées.

Pas quand les feuilles sont masquées.

J'ai trouvé cet événement, mais l'aide ne m'aide pas beaucoup !
Et ce code, mis dans un module standard, ou dans la feuille récap, n'affiche
pas ma feuille :

Private Sub SheetFollowHyperlink _
(ByVal Sh As Object, ByVal Target As Excel.Hyperlink)
Sh.Visible = xlSheetVisible
End Sub

L'un d'entre vous aurait(-il la gentillesse de corriger ma copie, et de me
dire où le code doit être écrit ?

Merci en tous cas,




Private Sub Workbook_SheetFollowHyperlink _
(ByVal Sh As Object, ByVal Target As Excel.Hyperlink)
Sheets("Feuil2").Visible = True
Sheets("Feuil2").Activate
End Sub

dans ThisWorkbook

--
Cordialement,

Jacques.

Avatar
Patrick BASTARD
Bonjour, *Jacques*
Je te remercie de l'intérêt que tu portes à ma demande.

Le code que tu as bien voulu me communiquer fonctionne bien pour une feuille
définie.
Cependant il ne répond pas totalement à mon besoin :
J'ai en effet actuellement 24 liens sur mon récap, pointant sur 24 onglets
différents (nombre appelé à évoluer).
Comment modifier dans ton code "Feuil2" par le nom de l'onglet concerné ?
Pour info, le nom de l'onglet se trouve dans la même cellule que le lien qui
pointe vers cet onglet..

Encore merci de ton aide,


--
Bien cordialement,
P. Bastard



Bonsoir,
Bonjour à tous.

Je cherche le moyen d'afficher l'une des feuille masquées de mon
classeur en cliquant sur son lien hypertexte, qui se trouve sur une
feuille récap, dans le même classeur. (excel 2002).
Les liens hypertexte fonctionnent correctement lorsque les feuilles
sont affichées.

Pas quand les feuilles sont masquées.

J'ai trouvé cet événement, mais l'aide ne m'aide pas beaucoup !
Et ce code, mis dans un module standard, ou dans la feuille récap,
n'affiche pas ma feuille :

Private Sub SheetFollowHyperlink _
(ByVal Sh As Object, ByVal Target As Excel.Hyperlink)
Sh.Visible = xlSheetVisible
End Sub

L'un d'entre vous aurait(-il la gentillesse de corriger ma copie, et
de me dire où le code doit être écrit ?

Merci en tous cas,




Private Sub Workbook_SheetFollowHyperlink _
(ByVal Sh As Object, ByVal Target As Excel.Hyperlink)
Sheets("Feuil2").Visible = True
Sheets("Feuil2").Activate
End Sub

dans ThisWorkbook



Avatar
MichDenis
Bonjour Patrick,

As-tu essayé ceci :

'Dans le module feuille où sont tes liens hypertextes:
'-------------------------
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

Dim A As String
A = Split(Target.SubAddress, "!")(0)
If Sheets(A).Visible = False Then
Sheets(A).Visible = True
Target.Follow True
Sheets(A).Select
End If

End Sub
'-------------------------


Salutations!
Avatar
Patrick BASTARD
Bonjour, *Denis*

Comme les Scouts, toujour prêt.
;-)
Hélàs :
"Erreur d'exécution 9 : l'indice n'appartient pas à la sélection."

Mais on se rapproche...


--
Bien cordialement,
P. Bastard

'Dans le module feuille où sont tes liens hypertextes:
'-------------------------
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

Dim A As String
A = Split(Target.SubAddress, "!")(0)
If Sheets(A).Visible = False Then
Sheets(A).Visible = True
Target.Follow True
Sheets(A).Select
End If

End Sub
'-------------------------


Salutations!


Avatar
MichDenis
Il me semble que ceci serait davantage approprié :

'--------------------
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

Dim A As String
A = Split(Target.SubAddress, "!")(0)
If Sheets(A).Visible = False Then
Sheets(A).Visible = True
Application.Goto Worksheets(A).Range(Target.SubAddress)
End If

End Sub
'--------------------


Salutations!




"MichDenis" a écrit dans le message de news:
Bonjour Patrick,

As-tu essayé ceci :

'Dans le module feuille où sont tes liens hypertextes:
'-------------------------
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

Dim A As String
A = Split(Target.SubAddress, "!")(0)
If Sheets(A).Visible = False Then
Sheets(A).Visible = True
Target.Follow True
Sheets(A).Select
End If

End Sub
'-------------------------


Salutations!
Avatar
Denis Michon
Bonjour Patrick,

Que te renvoie la variable : A , un nom de feuille qui n'appartient pas au classeur ?


Salutations!


"Patrick BASTARD" a écrit dans le message de news:
ul%
Bonjour, *Denis*

Comme les Scouts, toujour prêt.
;-)
Hélàs :
"Erreur d'exécution 9 : l'indice n'appartient pas à la sélection."

Mais on se rapproche...


--
Bien cordialement,
P. Bastard

'Dans le module feuille où sont tes liens hypertextes:
'-------------------------
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

Dim A As String
A = Split(Target.SubAddress, "!")(0)
If Sheets(A).Visible = False Then
Sheets(A).Visible = True
Target.Follow True
Sheets(A).Select
End If

End Sub
'-------------------------


Salutations!


Avatar
Patrick BASTARD
Bonjour, *Denis *



Bonjour Patrick,

Que te renvoie la variable : A , un nom de feuille qui n'appartient
pas au classeur ?



la feuille que je cherche à atteindre : (Name) = Feuil4, name = 4
et la variable A me renvoie bien "'4'"


Salutations!


"Patrick BASTARD" a écrit dans
le message de news: ul%
Bonjour, *Denis*

Comme les Scouts, toujour prêt.
;-)
Hélàs :
"Erreur d'exécution 9 : l'indice n'appartient pas à la sélection."

Mais on se rapproche...



'Dans le module feuille où sont tes liens hypertextes:
'-------------------------
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

Dim A As String
A = Split(Target.SubAddress, "!")(0)
If Sheets(A).Visible = False Then
Sheets(A).Visible = True
Target.Follow True
Sheets(A).Select
End If

End Sub
'-------------------------


Salutations!




Avatar
Denis Michon
Bonjour Patrick,

Envoie moi un exemplaire allégé de ton fichier dans ma boîte aux lettres. J'ai de la difficulté à te suivre ...


Salutations!



"Patrick BASTARD" a écrit dans le message de news:

Bonjour, *Denis *



Bonjour Patrick,

Que te renvoie la variable : A , un nom de feuille qui n'appartient
pas au classeur ?



la feuille que je cherche à atteindre : (Name) = Feuil4, name = 4
et la variable A me renvoie bien "'4'"


Salutations!


"Patrick BASTARD" a écrit dans
le message de news: ul%
Bonjour, *Denis*

Comme les Scouts, toujour prêt.
;-)
Hélàs :
"Erreur d'exécution 9 : l'indice n'appartient pas à la sélection."

Mais on se rapproche...



'Dans le module feuille où sont tes liens hypertextes:
'-------------------------
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

Dim A As String
A = Split(Target.SubAddress, "!")(0)
If Sheets(A).Visible = False Then
Sheets(A).Visible = True
Target.Follow True
Sheets(A).Select
End If

End Sub
'-------------------------


Salutations!