Bonjour,

Voici mon pn que j'arrive pas résoudre :
J'ai un classeur avec environ 50 feuilles
je souhaiterai du premier onglet (menu) joindre mes feuilles via un lien
hypetexte en prenant un nom dans la cellule A1 de chaque feuille.
Tout c'est ok
Mais je voudrai masquer mes 50 feuilles et ne conserver que la feuille Menu.
et ça marche pas
si qq a une solution ou un contournement
Merci Bien
Bonne soirée
JB1

Merci de ta réponse, super !!!!
C'est presque ça
l'ideal serait que l'orsque on reouvre la feuille menu
toutes autres feuilles se remasquent.
Par contre je ne comprends pas pour quoi a coté du lien hypertexte sur la
feuille menu la cellule a droite prends la valeur du lien, mais c'est pas
génant

Encore merci d'avance

"isabelle" <i***v> a écrit dans le message de news:
%23m5med3uIHA.3564***TK2MSFTNGP03.phx.gbl...
> bonjour JB,
>
> copie ces macro sur la page code de la feuille Menu,
> '_________________________________________________ ___________________
> Dim x As String
>
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> x = ActiveCell.Address
> End Sub
>
> Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
> Sheets("Menu").Range(x).Offset(0, 1) = Split(Target.SubAddress, "!")
> nn = Sheets("Menu").Range(x).Offset(0, 1)
> With Sheets(nn)
> .Visible = True
> .Activate
> End With
> End Sub
> '_________________________________________________ _____________________
>
> isabelle
>
> JB a écrit :
>> Bonjour,
>>
>> Voici mon pn que j'arrive pas résoudre :
>> J'ai un classeur avec environ 50 feuilles
>> je souhaiterai du premier onglet (menu) joindre mes feuilles via un lien
>> hypetexte en prenant un nom dans la cellule A1 de chaque feuille.
>> Tout c'est ok
>> Mais je voudrai masquer mes 50 feuilles et ne conserver que la feuille
>> Menu.
>> et ça marche pas
>> si qq a une solution ou un contournement
>> Merci Bien
>> Bonne soirée
>> JB1
>

Super de chez super !!!!!!!
Merci cela marche impec
Bonne journée

"isabelle" <i***v> a écrit dans le message de news:
%23leqT74uIHA.1328***TK2MSFTNGP03.phx.gbl...
> bonjour JB,
>
> j'ai modifier la procedure pour faire plus court et sans utiliser les
> cellules de la colonne B
>
> '_________________________________________________ ___________________
> Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
> zz = Split(Target.SubAddress, "!")(LBound(Split(Target.SubAddress, "!")))
> With Sheets(zz)
> .Visible = True
> .Activate
> End With
> End Sub
>
> Private Sub Worksheet_Activate()
> For Each f In Sheets
> If f.Name <> "Menu" Then Sheets(f.Name).Visible = False
> Next
> End Sub
> '_________________________________________________ _____________________
>
> isabelle
>
>
>
> JB a écrit :
>> Merci de ta réponse, super !!!!
>> C'est presque ça
>> l'ideal serait que l'orsque on reouvre la feuille menu
>> toutes autres feuilles se remasquent.
>> Par contre je ne comprends pas pour quoi a coté du lien hypertexte sur la
>> feuille menu la cellule a droite prends la valeur du lien, mais c'est pas
>> génant
>>
>> Encore merci d'avance
>>
>> "isabelle" <i***v> a écrit dans le message de news:
>> %23m5med3uIHA.3564***TK2MSFTNGP03.phx.gbl...
>>> bonjour JB,
>>>
>>> copie ces macro sur la page code de la feuille Menu,
>>> '_________________________________________________ ___________________
>>> Dim x As String
>>>
>>> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
>>> x = ActiveCell.Address
>>> End Sub
>>>
>>> Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
>>> Sheets("Menu").Range(x).Offset(0, 1) = Split(Target.SubAddress, "!")
>>> nn = Sheets("Menu").Range(x).Offset(0, 1)
>>> With Sheets(nn)
>>> .Visible = True
>>> .Activate
>>> End With
>>> End Sub
>>> '_________________________________________________ _____________________
>>>
>>> isabelle
>>>
>>> JB a écrit :
>>>> Bonjour,
>>>>
>>>> Voici mon pn que j'arrive pas résoudre :
>>>> J'ai un classeur avec environ 50 feuilles
>>>> je souhaiterai du premier onglet (menu) joindre mes feuilles via un
>>>> lien hypetexte en prenant un nom dans la cellule A1 de chaque feuille.
>>>> Tout c'est ok
>>>> Mais je voudrai masquer mes 50 feuilles et ne conserver que la feuille
>>>> Menu.
>>>> et ça marche pas
>>>> si qq a une solution ou un contournement
>>>> Merci Bien
>>>> Bonne soirée
>>>> JB1
>>

Bonsoir Isa,

Merci bien,
mais il y a 1 pb lorsque on ferme le fichier avec une feuille ouverte en
plus du menu, a l'ouverture du fichier la macro se plante.
l'idéal serait qu'à la fermeture la feuille se masque ne laissant ainsi que
la feuille menu pour la prochaine ouverture.
Bon je sais j'abuse, mais merci déjà beaucoup pour ce que tu as fais
Bonne soirée
JB

"isabelle" <i***v> a écrit dans le message de news:
uPPqfAAvIHA.5244***TK2MSFTNGP02.phx.gbl...
> bonjour JB,
>
> pour optimiser un peu plus,
>
> '_________________________________________________ ___________________
> Dim zz As String
>
> Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
> zz = Split(Target.SubAddress, "!")(LBound(Split(Target.SubAddress, "!")))
> With Sheets(zz)
> .Visible = True
> .Activate
> End With
> End Sub
>
> Private Sub Worksheet_Activate()
> Sheets(zz).Visible = False
> End Sub
>
> '_________________________________________________ _____________________
>
> isabelle
>
> JB a écrit :
>> Super de chez super !!!!!!!
>> Merci cela marche impec
>> Bonne journée
>

Bonsoir Isa,

Merci bien,
mais il y a 1 pb lorsque on ferme le fichier avec une feuille ouverte en
plus du menu, a l'ouverture du fichier la macro se plante.
l'idéal serait qu'à la fermeture la feuille se masque ne laissant ainsi que
la feuille menu pour la prochaine ouverture.
Bon je sais j'abuse, mais merci déjà beaucoup pour ce que tu as fais
Bonne soirée
JB

"isabelle" <i***v> a écrit dans le message de news:
uPPqfAAvIHA.5244***TK2MSFTNGP02.phx.gbl...
> bonjour JB,
>
> pour optimiser un peu plus,
>
> '_________________________________________________ ___________________
> Dim zz As String
>
> Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
> zz = Split(Target.SubAddress, "!")(LBound(Split(Target.SubAddress, "!")))
> With Sheets(zz)
> .Visible = True
> .Activate
> End With
> End Sub
>
> Private Sub Worksheet_Activate()
> Sheets(zz).Visible = False
> End Sub
>
> '_________________________________________________ _____________________
>
> isabelle
>
> JB a écrit :
>> Super de chez super !!!!!!!
>> Merci cela marche impec
>> Bonne journée
>

Bonjour Isabelle et JB

je dois réaliser une synthèse de bilan social avec un menu et masquer les
onglets des feuilles histoires de rendre le document plus propre et lisible,
donc ne pas oublier de rajouter un bouton Ã*** chaque fois pour aller Ã*** la page
suivante, précendente et retourner au menu, sans pour autant afficher tous
ces onglets et que ca devienne illisible.

Pourriez vous me ré expliquer la procédure, car j'ai un peu de mal Ã*** tout
comprendre.

Merci