Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment suivre un lien hypertexte vers une feuille cachée dans Excel?

Par exemple, j'ai un classeur qui contient plusieurs feuilles de calcul, la première feuille maîtresse a des hyperliens vers d'autres feuilles, et maintenant, je cache toutes les feuilles sauf la première. Dans ce cas, les liens hypertexte liés aux feuilles masquées ne sont pas disponibles. Mais, comment pourriez-vous faire fonctionner ces hyperliens avec succès? Lorsque vous cliquez sur un lien hypertexte, la feuille cachée liée sera ouverte à la fois comme suit capture d'écran:

doc lien hypertexte vers feuille masquée 1

Suivez le lien hypertexte pour ouvrir la feuille cachée avec le code VBA

Suivez le lien hypertexte pour ouvrir la feuille cachée, puis masquer à nouveau avec le code VBA


Liste tous les noms de feuille de calcul et un lien vers chaque feuille:

Avec Kutools for Excel's Créer une liste de noms de feuille utilitaire, vous pouvez rapidement lister tous les noms de feuille de calcul dans une nouvelle feuille avec des liens hypertexte ou des boutons de macro selon vos besoins.

noms de feuille de calcul avec des liens hypertexte noms de feuille de calcul avec des boutons de macro
doc-liste-feuille de travail-noms2  2 doc-liste-feuille de travail-noms2  2 doc-liste-feuille de travail-noms2

Suivez le lien hypertexte pour ouvrir la feuille cachée avec le code VBA


Le code VBA suivant peut vous aider à ouvrir la feuille de calcul masquée lorsque vous cliquez sur son lien hypertexte relatif, procédez comme suit:

1. Cliquez avec le bouton droit sur l'onglet de la feuille que vous souhaitez suivre le lien hypertexte vers la feuille masquée, puis choisissez Voir le code dans le menu contextuel, dans le menu contextuel Microsoft Visual Basic pour applications fenêtre, copiez et collez le code suivant dans le module vide:

Code VBA: Suivez le lien hypertexte pour ouvrir la feuille cachée:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice 20161109
    Application.ScreenUpdating = False
    On Error Resume Next
    If Target.Column = 1 Then
        Sheets(Target.Value).Visible = xlSheetVisible
        Sheets(Target.Value).Select
    End If
    Application.ScreenUpdating = True
End Sub

doc lien hypertexte vers feuille masquée 2

Note: Dans le code ci-dessus, le nombre 1 dans ce Si Target.Column = 1 Then script indique le numéro de colonne qui contient les liens hypertexte, s'il vous plaît changer votre besoin.

2. Puis enregistrez et fermez cette fenêtre de code, maintenant, lorsque vous cliquez sur le lien hypertexte qui pointe vers la feuille cachée spécifique, la feuille cachée sera ouverte à la fois.


Suivez le lien hypertexte pour ouvrir la feuille cachée, puis masquer à nouveau avec le code VBA

Parfois, vous devez suivre le lien hypertexte pour ouvrir la feuille masquée, et lorsque vous retournez la feuille maîtresse, vous voulez que la feuille ouverte soit à nouveau cachée. Le code VBA ci-dessous peut vous faire une faveur:

1. Cliquez avec le bouton droit sur l'onglet de la feuille que vous souhaitez suivre le lien hypertexte vers la feuille masquée, puis choisissez Voir le code dans le menu contextuel, dans le menu contextuel Microsoft Visual Basic pour applications fenêtre, copiez et collez le code suivant dans le module vide:

Code VBA: Suivez le lien hypertexte pour ouvrir la feuille cachée quand revenez le cacher encore:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
   'Updateby Extendoffice 20161109
    Application.ScreenUpdating = False
    Dim strLinkSheet As String
    If InStr(Target.Parent, "!") > 0 Then
        strLinkSheet = Left(Target.Parent, InStr(1, Target.Parent, "!") - 1)
    Else
        strLinkSheet = Target.Parent
    End If
    Sheets(strLinkSheet).Visible = True
    Sheets(strLinkSheet).Select
    Application.ScreenUpdating = True
End Sub

Private Sub Worksheet_Activate()
    On Error Resume Next
    Sheets(ActiveCell.Value2).Visible = False
End Sub

doc lien hypertexte vers feuille masquée 3

2. Puis, enregistrez l'annonce dans la fenêtre de code, lorsque vous cliquez sur le lien hypertexte, la feuille cachée liée sera ouverte immédiatement, mais, si vous revenez à la feuille maîtresse contenant les liens hypertexte, la feuille ouverte sera automatiquement recouverte.

Note: Ces codes s'appliquent uniquement aux noms de feuille correspondant au texte de votre lien hypertexte.


Demo: Suivez le lien hypertexte pour ouvrir la feuille cachée avec le code VBA

Kutools for Excel: avec plus que 200 compléments Excel pratiques, libre d'essayer sans limitation dans les jours 60. Téléchargez et essai gratuit maintenant!


Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe Créer une liste de diffusion et envoyer des emails ...
  • Super Formula Bar (éditez facilement plusieurs lignes de texte et de formule); Disposition de lecture (facilement lire et éditer un grand nombre de cellules); Coller à la gamme filtrée...
  • Fusionner les cellules / rangées / colonnes sans perdre de données; Contenu des cellules divisées; Combiner les lignes / colonnes en double... Prévenir les cellules en double; Comparer les plages...
  • Sélectionnez Dupliquer ou Unique Des rangées; Sélectionnez les lignes vierges (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux cahiers d'exercices; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de la formule; Créer automatiquement des références à plusieurs feuilles; Insérer des balles, Cases à cocher et plus ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre contenu de cellules et commentaires...
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial en gras, en italique ...
  • Combinaison de classeurs et de feuilles de calcul; Fusionner les tables en fonction des colonnes clés; Fractionner les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF...
  • Plus que de puissantes fonctionnalités 300. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Fonctionnalités complètes Essai gratuit du jour 30.
kte tab 201905

Office Tab apporte une interface à onglets à Office et simplifie grandement votre travail

  • Activer l'édition par onglets et la lecture dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de 50% et réduit le nombre de clics de souris pour vous chaque jour!
fond officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Ken · 1 years ago
    I would like to use this code but only want it to apply to column A. I have other web address links in other cells which cause a problem when running this code.
  • To post as a guest, your comment is unpublished.
    DNKP · 2 years ago
    My hyperlink "text" is number only, and it doesn't work...
  • To post as a guest, your comment is unpublished.
    Brad Guiso · 2 years ago
    I'm using the code on two different sheets. It works for one of about 40 hyperlinks on one sheet and it opens two of about 10 hyperlinks one she second, the sheets on the second which do open do go back into hiding when I return to the sheet.

    The error I get when it will not open a sheet is Run-time error"9": script out of range and the code it points me to - Sheets(strLinkSheet).Visible = True

    Any ideas as to what change is needed make the code work on all of the sheets?

    Thank you in advance.
  • To post as a guest, your comment is unpublished.
    HelzBelz · 2 years ago
    I have used this code on two different sheets in my workbook, and in both cases it works great, except for the first hyperlink on each page. I get "Subscript out of range error" and the debugger points to the "Sheets(strLinkSheet).Visible = True" right after the "end if".

    Anyone else see this error? It is only on the first link on the page. (my hyperlinks are in column A, and start in row 2)
    • To post as a guest, your comment is unpublished.
      Bumi · 2 years ago
      [quote name="HelzBelz"]I have used this code on two different sheets in my workbook, and in both cases it works great, except for the first hyperlink on each page. I get "Subscript out of range error" and the debugger points to the "Sheets(strLinkSheet).Visible = True" right after the "end if".

      Anyone else see this error? It is only on the first link on the page. (my hyperlinks are in column A, and start in row 2)[/quote]
      Sheet names can't have space like "Sheet 1". I fixed my sheet names to "Sheet1" and the error stopped.
  • To post as a guest, your comment is unpublished.
    Regina Hardaway · 2 years ago
    I have a sheet that is hidden that contains a hyperlink. I would like to be able go to the hidden sheet and have it close when I go back to the original sheet. I used the code but it does not work.
  • To post as a guest, your comment is unpublished.
    Regina Hardaway · 2 years ago
    I am trying to hide a sheet that has a hyperlink. I would like to be able to click on the sheet go to the hyperlink sheet and then click back to the sheet and close the hidden sheet. I have tried your instructions but it does not work. Not sure what I am doing wrong.