Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel lien hypertexte vers feuille non visible

lien hypertexte vers feuille non visible

14 réponses
Avatar
Sunburn
Bonjour,
j'ai un lien sur mon onglet "feuil1" qui pointe vers "feuil2".
sauf que "feuil2" est actuellement non visible (Visible = false)
comment faire que cette feuille soit affichée losrque je clique sur le lien ?
j'ai pas mal de liens dans cette feuille, qui pointent vers des feuilles non
visible.
comment automatiser pour rendre les feuilles pointées visibles lorsqu'on
clique sur le lien.....
c'est pas évident.
Faut-il une macro du genre :
---
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
If [K11] click Then Sheets("feuil2").Visible = True
end sub
---

Je vous remercie beaucoup de votre aide.
YANN
Signaler un problème avec ce contenu

10 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
1 2
Avatar
isabelle
bonjour Yann,

copie cette macro sur la page code de tes liens hp

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim h As Hyperlink
For Each h In Worksheets(1).Hyperlinks '<----- modifier la feuille
If h.Range.Address = Target.Range.Address Then
Sheets(Split(h.SubAddress, "!")(0)).Visible = True
Next
End Sub

isabelle

Sunburn a écrit :
Bonjour,
j'ai un lien sur mon onglet "feuil1" qui pointe vers "feuil2".
sauf que "feuil2" est actuellement non visible (Visible = false)
comment faire que cette feuille soit affichée losrque je clique sur le lien ?
j'ai pas mal de liens dans cette feuille, qui pointent vers des feuilles non
visible.
comment automatiser pour rendre les feuilles pointées visibles lorsqu'on
clique sur le lien.....
c'est pas évident.
Faut-il une macro du genre :
---
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
If [K11] click Then Sheets("feuil2").Visible = True
end sub
---

Je vous remercie beaucoup de votre aide.
YANN




Avatar
isabelle
correction :

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim h As Hyperlink
For Each h In Worksheets(1).Hyperlinks
If h.Range.Address = Target.Range.Address Then
Sheets(Split(h.SubAddress, "!")(0)).Visible = True
h.Follow
Exit Sub
End If
Next
End Sub

isabelle

Sunburn a écrit :
Bonjour,
j'ai un lien sur mon onglet "feuil1" qui pointe vers "feuil2".
sauf que "feuil2" est actuellement non visible (Visible = false)
comment faire que cette feuille soit affichée losrque je clique sur le lien ?
j'ai pas mal de liens dans cette feuille, qui pointent vers des feuilles non
visible.
comment automatiser pour rendre les feuilles pointées visibles lorsqu'on
clique sur le lien.....
c'est pas évident.
Faut-il une macro du genre :
---
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
If [K11] click Then Sheets("feuil2").Visible = True
end sub
---

Je vous remercie beaucoup de votre aide.
YANN




Avatar
Sunburn
Isabelle,
je te remercie de ton aide, mais ça plante à "sheets(split(...)"
voici ma amcro que j'ai, je l'ai mis dans le code de ma feuille "GA02"
--------
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim h As Hyperlink
For Each h In Worksheets("GA02").Hyperlinks
If h.Range.Address = Target.Range.Address Then
Sheets(Split(h.SubAddress, "!")(0)).Visible = True
h.Follow
Exit Sub
End If
Next
End Sub
-------
Merci de ton aide.
YANN

"isabelle" a écrit :

correction :

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim h As Hyperlink
For Each h In Worksheets(1).Hyperlinks
If h.Range.Address = Target.Range.Address Then
Sheets(Split(h.SubAddress, "!")(0)).Visible = True
h.Follow
Exit Sub
End If
Next
End Sub

isabelle

Sunburn a écrit :
> Bonjour,
> j'ai un lien sur mon onglet "feuil1" qui pointe vers "feuil2".
> sauf que "feuil2" est actuellement non visible (Visible = false)
> comment faire que cette feuille soit affichée losrque je clique sur le lien ?
> j'ai pas mal de liens dans cette feuille, qui pointent vers des feuilles non
> visible.
> comment automatiser pour rendre les feuilles pointées visibles lorsqu'on
> clique sur le lien.....
> c'est pas évident.
> Faut-il une macro du genre :
> ---
> Private Sub Worksheet_Activate()
> Application.ScreenUpdating = False
> If [K11] click Then Sheets("feuil2").Visible = True
> end sub
> ---
>
> Je vous remercie beaucoup de votre aide.
> YANN
>
>



Avatar
isabelle
bonjour Yann,

tu travaille sur quel version d'excel ?

isabelle

Sunburn a écrit :
Isabelle,
je te remercie de ton aide, mais ça plante à "sheets(split(...)"
voici ma amcro que j'ai, je l'ai mis dans le code de ma feuille "GA02"
--------
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim h As Hyperlink
For Each h In Worksheets("GA02").Hyperlinks
If h.Range.Address = Target.Range.Address Then
Sheets(Split(h.SubAddress, "!")(0)).Visible = True
h.Follow
Exit Sub
End If
Next
End Sub
-------
Merci de ton aide.
YANN

"isabelle" a écrit :


correction :

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim h As Hyperlink
For Each h In Worksheets(1).Hyperlinks
If h.Range.Address = Target.Range.Address Then
Sheets(Split(h.SubAddress, "!")(0)).Visible = True
h.Follow
Exit Sub
End If
Next
End Sub

isabelle

Sunburn a écrit :

Bonjour,
j'ai un lien sur mon onglet "feuil1" qui pointe vers "feuil2".
sauf que "feuil2" est actuellement non visible (Visible = false)
comment faire que cette feuille soit affichée losrque je clique sur le lien ?
j'ai pas mal de liens dans cette feuille, qui pointent vers des feuilles non
visible.
comment automatiser pour rendre les feuilles pointées visibles lorsqu'on
clique sur le lien.....
c'est pas évident.
Faut-il une macro du genre :
---
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
If [K11] click Then Sheets("feuil2").Visible = True
end sub
---

Je vous remercie beaucoup de votre aide.
YANN









Avatar
Sunburn
je suis en 2003 SP3

"isabelle" a écrit :

bonjour Yann,

tu travaille sur quel version d'excel ?

isabelle

Sunburn a écrit :
> Isabelle,
> je te remercie de ton aide, mais ça plante à "sheets(split(...)"
> voici ma amcro que j'ai, je l'ai mis dans le code de ma feuille "GA02"
> --------
> Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
> Dim h As Hyperlink
> For Each h In Worksheets("GA02").Hyperlinks
> If h.Range.Address = Target.Range.Address Then
> Sheets(Split(h.SubAddress, "!")(0)).Visible = True
> h.Follow
> Exit Sub
> End If
> Next
> End Sub
> -------
> Merci de ton aide.
> YANN
>
> "isabelle" a écrit :
>
>
>> correction :
>>
>> Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
>> Dim h As Hyperlink
>> For Each h In Worksheets(1).Hyperlinks
>> If h.Range.Address = Target.Range.Address Then
>> Sheets(Split(h.SubAddress, "!")(0)).Visible = True
>> h.Follow
>> Exit Sub
>> End If
>> Next
>> End Sub
>>
>> isabelle
>>
>> Sunburn a écrit :
>>
>>> Bonjour,
>>> j'ai un lien sur mon onglet "feuil1" qui pointe vers "feuil2".
>>> sauf que "feuil2" est actuellement non visible (Visible = false)
>>> comment faire que cette feuille soit affichée losrque je clique sur le lien ?
>>> j'ai pas mal de liens dans cette feuille, qui pointent vers des feuilles non
>>> visible.
>>> comment automatiser pour rendre les feuilles pointées visibles lorsqu'on
>>> clique sur le lien.....
>>> c'est pas évident.
>>> Faut-il une macro du genre :
>>> ---
>>> Private Sub Worksheet_Activate()
>>> Application.ScreenUpdating = False
>>> If [K11] click Then Sheets("feuil2").Visible = True
>>> end sub
>>> ---
>>>
>>> Je vous remercie beaucoup de votre aide.
>>> YANN
>>>
>>>
>>>



Avatar
isabelle
bonjour Yann,

veut tu essayer celle ci :

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim h As Hyperlink
For Each h In Worksheets("Feuil1").Hyperlinks
If h.Range.Address = Target.Range.Address Then
x = Left(h.SubAddress, Application.Find("!", h.SubAddress) - 1)
y = Right(h.SubAddress, Len(h.SubAddress) - Application.Find("!",
h.SubAddress))
Sheets(x).Visible = True
Application.Goto Sheets(x).Range(y)
Exit Sub
End If
Next
End Sub

isabelle

Sunburn a écrit :
je suis en 2003 SP3

"isabelle" a écrit :


bonjour Yann,

tu travaille sur quel version d'excel ?

isabelle

Sunburn a écrit :

Isabelle,
je te remercie de ton aide, mais ça plante à "sheets(split(...)"
voici ma amcro que j'ai, je l'ai mis dans le code de ma feuille "GA02"
--------
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim h As Hyperlink
For Each h In Worksheets("GA02").Hyperlinks
If h.Range.Address = Target.Range.Address Then
Sheets(Split(h.SubAddress, "!")(0)).Visible = True
h.Follow
Exit Sub
End If
Next
End Sub
-------
Merci de ton aide.
YANN

"isabelle" a écrit :



correction :

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim h As Hyperlink
For Each h In Worksheets(1).Hyperlinks
If h.Range.Address = Target.Range.Address Then
Sheets(Split(h.SubAddress, "!")(0)).Visible = True
h.Follow
Exit Sub
End If
Next
End Sub

isabelle

Sunburn a écrit :


Bonjour,
j'ai un lien sur mon onglet "feuil1" qui pointe vers "feuil2".
sauf que "feuil2" est actuellement non visible (Visible = false)
comment faire que cette feuille soit affichée losrque je clique sur le lien ?
j'ai pas mal de liens dans cette feuille, qui pointent vers des feuilles non
visible.
comment automatiser pour rendre les feuilles pointées visibles lorsqu'on
clique sur le lien.....
c'est pas évident.
Faut-il une macro du genre :
---
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
If [K11] click Then Sheets("feuil2").Visible = True
end sub
---

Je vous remercie beaucoup de votre aide.
YANN














Avatar
Sunburn
re,
et bien, ça plante à (surligné en jaune)
---
Sheets(x).Visible = True
----

"isabelle" a écrit :

bonjour Yann,

veut tu essayer celle ci :

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim h As Hyperlink
For Each h In Worksheets("Feuil1").Hyperlinks
If h.Range.Address = Target.Range.Address Then
x = Left(h.SubAddress, Application.Find("!", h.SubAddress) - 1)
y = Right(h.SubAddress, Len(h.SubAddress) - Application.Find("!",
h.SubAddress))
Sheets(x).Visible = True
Application.Goto Sheets(x).Range(y)
Exit Sub
End If
Next
End Sub

isabelle



Avatar
Sunburn
je te précise que je n'ai pas de vérouillage de classeur.
Yann

"isabelle" a écrit :

bonjour Yann,

veut tu essayer celle ci :

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim h As Hyperlink
For Each h In Worksheets("Feuil1").Hyperlinks
If h.Range.Address = Target.Range.Address Then
x = Left(h.SubAddress, Application.Find("!", h.SubAddress) - 1)
y = Right(h.SubAddress, Len(h.SubAddress) - Application.Find("!",
h.SubAddress))
Sheets(x).Visible = True
Application.Goto Sheets(x).Range(y)
Exit Sub
End If
Next
End Sub

isabelle

Sunburn a écrit :
> je suis en 2003 SP3
>
> "isabelle" a écrit :
>
>
>> bonjour Yann,
>>
>> tu travaille sur quel version d'excel ?
>>
>> isabelle
>>
>> Sunburn a écrit :
>>
>>> Isabelle,
>>> je te remercie de ton aide, mais ça plante à "sheets(split(...)"
>>> voici ma amcro que j'ai, je l'ai mis dans le code de ma feuille "GA02"
>>> --------
>>> Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
>>> Dim h As Hyperlink
>>> For Each h In Worksheets("GA02").Hyperlinks
>>> If h.Range.Address = Target.Range.Address Then
>>> Sheets(Split(h.SubAddress, "!")(0)).Visible = True
>>> h.Follow
>>> Exit Sub
>>> End If
>>> Next
>>> End Sub
>>> -------
>>> Merci de ton aide.
>>> YANN
>>>
>>> "isabelle" a écrit :
>>>
>>>
>>>
>>>> correction :
>>>>
>>>> Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
>>>> Dim h As Hyperlink
>>>> For Each h In Worksheets(1).Hyperlinks
>>>> If h.Range.Address = Target.Range.Address Then
>>>> Sheets(Split(h.SubAddress, "!")(0)).Visible = True
>>>> h.Follow
>>>> Exit Sub
>>>> End If
>>>> Next
>>>> End Sub
>>>>
>>>> isabelle
>>>>
>>>> Sunburn a écrit :
>>>>
>>>>
>>>>> Bonjour,
>>>>> j'ai un lien sur mon onglet "feuil1" qui pointe vers "feuil2".
>>>>> sauf que "feuil2" est actuellement non visible (Visible = false)
>>>>> comment faire que cette feuille soit affichée losrque je clique sur le lien ?
>>>>> j'ai pas mal de liens dans cette feuille, qui pointent vers des feuilles non
>>>>> visible.
>>>>> comment automatiser pour rendre les feuilles pointées visibles lorsqu'on
>>>>> clique sur le lien.....
>>>>> c'est pas évident.
>>>>> Faut-il une macro du genre :
>>>>> ---
>>>>> Private Sub Worksheet_Activate()
>>>>> Application.ScreenUpdating = False
>>>>> If [K11] click Then Sheets("feuil2").Visible = True
>>>>> end sub
>>>>> ---
>>>>>
>>>>> Je vous remercie beaucoup de votre aide.
>>>>> YANN
>>>>>
>>>>>
>>>>>
>>>>>



Avatar
isabelle
bonjour Yann,

que vaut la variable x au moment du plantage ?

que veut dire :

pas de vérouillage de classeur


isabelle

Sunburn a écrit :
re,
et bien, ça plante à (surligné en jaune)
---
Sheets(x).Visible = True
----

"isabelle" a écrit :


bonjour Yann,

veut tu essayer celle ci :

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim h As Hyperlink
For Each h In Worksheets("Feuil1").Hyperlinks
If h.Range.Address = Target.Range.Address Then
x = Left(h.SubAddress, Application.Find("!", h.SubAddress) - 1)
y = Right(h.SubAddress, Len(h.SubAddress) - Application.Find("!",
h.SubAddress))
Sheets(x).Visible = True
Application.Goto Sheets(x).Range(y)
Exit Sub
End If
Next
End Sub

isabelle






Avatar
Sunburn
isabelle,
commet puis-je savoir ce que vaux "x" au plantage ?
quand je dis que le classeur n'est pas vérouillé, ça veut dire que je ne
fais pas "outilprotectionprotéger le classeur".
Merci.
Yann

"isabelle" a écrit :

bonjour Yann,

que vaut la variable x au moment du plantage ?

que veut dire :

pas de vérouillage de classeur


isabelle

Sunburn a écrit :
> re,
> et bien, ça plante à (surligné en jaune)
> ---
> Sheets(x).Visible = True
> ----
>
> "isabelle" a écrit :
>
>
>> bonjour Yann,
>>
>> veut tu essayer celle ci :
>>
>> Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
>> Dim h As Hyperlink
>> For Each h In Worksheets("Feuil1").Hyperlinks
>> If h.Range.Address = Target.Range.Address Then
>> x = Left(h.SubAddress, Application.Find("!", h.SubAddress) - 1)
>> y = Right(h.SubAddress, Len(h.SubAddress) - Application.Find("!",
>> h.SubAddress))
>> Sheets(x).Visible = True
>> Application.Goto Sheets(x).Range(y)
>> Exit Sub
>> End If
>> Next
>> End Sub
>>
>> isabelle
>>
>>



1 2