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
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
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
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
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
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
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
'______________________________________________________________________
isabelleBonjour,
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
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
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
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
'______________________________________________________________________
isabelleBonjour,
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" a écrit dans le message de news:
%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
'______________________________________________________________________
isabelleBonjour,
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
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" a écrit dans le message de news:
%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
'______________________________________________________________________
isabelleBonjour,
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
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
'______________________________________________________________________
isabelleMerci 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" a écrit dans le message de news:
%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
'______________________________________________________________________
isabelleBonjour,
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
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
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
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
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
'______________________________________________________________________
isabelleMerci 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" a écrit dans le message de news:
%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
'______________________________________________________________________
isabelleBonjour,
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
Super de chez super !!!!!!!
Merci cela marche impec
Bonne journée
Super de chez super !!!!!!!
Merci cela marche impec
Bonne journée
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
'______________________________________________________________________
isabelleSuper de chez super !!!!!!!
Merci cela marche impec
Bonne journée
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
Super de chez super !!!!!!!
Merci cela marche impec
Bonne journée
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
'______________________________________________________________________
isabelleSuper de chez super !!!!!!!
Merci cela marche impec
Bonne journée
Merci bien,
Bon je sais j'abuse, mais merci déjà beaucoup pour ce que tu as fais
Bonne soirée
Merci bien,
Bon je sais j'abuse, mais merci déjà beaucoup pour ce que tu as fais
Bonne soirée
Merci bien,
Bon je sais j'abuse, mais merci déjà beaucoup pour ce que tu as fais
Bonne soiré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" a écrit dans le message de news: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
'______________________________________________________________________
isabelleSuper 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
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" a écrit dans le message de news: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
'______________________________________________________________________
isabelleSuper de chez super !!!!!!!
Merci cela marche impec
Bonne journée