Discussion :

[Kaytilou]

Bonjour amis du Forum,

Me voilà avec un nouveau cas d'école.
J'ai un fichier avec plusieurs onglets, dont certains masqués et une table des matières. Pour chaque nouvel onglet créé, je souhaite copier le nom de l'onglet sur l'onglet "Table des matières" et y associer le lien hypertexte, puis pouvoir ouvrir l'onglet caché ou non caché en cliquant sur le lien.

J'ai créé le code suivant qui fonctionne. Cependant, lorsque ensuite j'essaye, sur l'onglet "Table des matières", de cliquer sur un lien dont l'onglet est caché, il est impossible d'afficher l'onglet. Y a t-il une subtilité dans le code qui permettrait de mettre le lien hypertexte vers un onglet masqué "dans le document" et ensuite de pouvoir l'afficher en cliquant sur le lien.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub CopieOnglet()
  'Bloquer l'écran pour executer la macro
        Application.ScreenUpdating = False
 
Dim NewName As String
  NewName = ThisWorkbook.Names("pNewName").RefersToRange.Value
  mMain.CopyTemplate NewName
 
Dim WS As Worksheet
Dim N As Integer
Dim celluledepart As Integer
celluledepart = 15
 
N = 0
 
Sheets("Table des matières").Select
    Range("A2").Select
 
'Range("B3").Select
    For Each WS In ThisWorkbook.Worksheets
        If WS.Name <> "Table des matières" And WS.Name <> "Sommaire" And WS.Name <> "Paramètres" And WS.Name <> "Modèle Pièce" And If WS.Name <> "Modèle Personnes" And If WS.Name <> "Modèle Gramme" And If WS.Name <> "Modèle Mousse" And If WS.Name <> "Modèle Multi Recette" Then
 
    Range("B" & celluledepart + N).Activate
   Range("B" & celluledepart + N).Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'" & WS.Name & "'" & "!A1", TextToDisplay:=WS.Name
    N = N + 1
        End If
    Next
 
  'Libérer l'écran pour l'utilisateur
        Application.ScreenUpdating = True
End Sub

Merci très fort pour votre aide et très bonne soirée ou journée à tous

[Philippe Tulliez]

Bonjour,
On ne peut atteindre la cellule d'une feuille cachée à l'aide d'un lien hypertexte. Il faut donc la rendre visible en interceptant le clic sur le lien mais ill ne faudra pas oublier de la cacher à nouveau en la quittant.

[Kaytilou]

Bonjour Philippe
Merci pour votre réponse. Je ne comprends pas comment interceptant le clic sur le lien. J'ai beau faire un clic + ctrl ou clic + windows ou clic + Alt ou encore clic + Maj, mais cela ne fonctionne pas. L'onglet ne veut pas s'afficher
Merci pour votre aide
Je vous souhaite un bonne journée

Bonjour,
On ne peut atteindre la cellule d'une feuille cachée à l'aide d'un lien hypertexte. Il faut donc la rendre visible en interceptant le clic sur le lien mais ill ne faudra pas oublier de la cacher à nouveau en la quittant.