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!



Outils de productivité recommandés

Office Tab

étoile d'or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d'or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d'or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d'écran de Kutools pour Excel

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.
    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.