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
---
isabelle, je ne serais pas de retour avant le 20/11 sur le forum, mais je testerais ta solution dès que je serais rentré, et je te tiens informé. Merci d'avance de ton aide. 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 >> >>
isabelle,
je ne serais pas de retour avant le 20/11 sur le forum, mais je testerais ta
solution dès que je serais rentré, et je te tiens informé.
Merci d'avance de ton aide.
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
>>
>>
isabelle, je ne serais pas de retour avant le 20/11 sur le forum, mais je testerais ta solution dès que je serais rentré, et je te tiens informé. Merci d'avance de ton aide. 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 >> >>
isabelle
Sunburn a écrit :
isabelle, commet puis-je savoir ce que vaux "x" au plantage ?
lorsque ça plante (surligné en jaune) place le curseur sur x tu aura sa valeur, isabelle
Sunburn a écrit :
isabelle,
commet puis-je savoir ce que vaux "x" au plantage ?
lorsque ça plante (surligné en jaune) place le curseur sur x tu aura sa valeur,
isabelle
isabelle, commet puis-je savoir ce que vaux "x" au plantage ?
lorsque ça plante (surligné en jaune) place le curseur sur x tu aura sa valeur, isabelle
Sunburn
Salut, désolé pour ce laps de temps d'absence. il me met la valeur x = "10_31", ce qui est en fait le nom de mon onglet que je souhaite voir visible. Merci. YANN
"isabelle" a écrit :
Sunburn a écrit : > isabelle, > commet puis-je savoir ce que vaux "x" au plantage ? > lorsque ça plante (surligné en jaune) place le curseur sur x tu aura sa valeur, isabelle
Salut,
désolé pour ce laps de temps d'absence.
il me met la valeur x = "10_31", ce qui est en fait le nom de mon onglet
que je souhaite voir visible.
Merci.
YANN
"isabelle" a écrit :
Sunburn a écrit :
> isabelle,
> commet puis-je savoir ce que vaux "x" au plantage ?
>
lorsque ça plante (surligné en jaune) place le curseur sur x tu aura sa valeur,
isabelle
Salut, désolé pour ce laps de temps d'absence. il me met la valeur x = "10_31", ce qui est en fait le nom de mon onglet que je souhaite voir visible. Merci. YANN
"isabelle" a écrit :
Sunburn a écrit : > isabelle, > commet puis-je savoir ce que vaux "x" au plantage ? > lorsque ça plante (surligné en jaune) place le curseur sur x tu aura sa valeur, isabelle
isabelle
bonjour Yann,
peut tu mettre ton fichier sur ci-joint ?
isabelle
Sunburn a écrit :
Salut, désolé pour ce laps de temps d'absence. il me met la valeur x = "10_31", ce qui est en fait le nom de mon onglet que je souhaite voir visible. Merci. YANN
"isabelle" a écrit :
Sunburn a écrit :
isabelle, commet puis-je savoir ce que vaux "x" au plantage ?
lorsque ça plante (surligné en jaune) place le curseur sur x tu aura sa valeur, isabelle
bonjour Yann,
peut tu mettre ton fichier sur ci-joint ?
isabelle
Sunburn a écrit :
Salut,
désolé pour ce laps de temps d'absence.
il me met la valeur x = "10_31", ce qui est en fait le nom de mon onglet
que je souhaite voir visible.
Merci.
YANN
"isabelle" a écrit :
Sunburn a écrit :
isabelle,
commet puis-je savoir ce que vaux "x" au plantage ?
lorsque ça plante (surligné en jaune) place le curseur sur x tu aura sa valeur,
isabelle
Salut, désolé pour ce laps de temps d'absence. il me met la valeur x = "10_31", ce qui est en fait le nom de mon onglet que je souhaite voir visible. Merci. YANN
"isabelle" a écrit :
Sunburn a écrit :
isabelle, commet puis-je savoir ce que vaux "x" au plantage ?
lorsque ça plante (surligné en jaune) place le curseur sur x tu aura sa valeur, isabelle
