Microsoft 365 suivre le lien hypertexte pour ouvrir une feuille masquée et revenir la masquer à nouveau

sylvanu à dit:

Bonsoir Othmane,
Avec des liens je ne sais pas faire, alors j'ai repris ce que vous avez commencé à faire avec Worksheet_SelectionChange :

VB:

Public NomFeuille ' Mémorise la feuille qui a été démasquée
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Target.Count > 1 Or Target = "" Then Exit Sub
    If Target.Column = 12 Then
        NomFeuille = Target ' Mémorisée pour être utilisé ensuite pour masquage
        On Error Resume Next
        Sheets(NomFeuille).Visible = xlSheetVisible
        Sheets(NomFeuille).Activate
    End If
Fin:
End Sub
Sub Worksheet_Activate() ' Remasque la feuille mémorisée dans NomFeuille
    If NomFeuille <> "" Then Sheets(NomFeuille).Visible = xlSheetHidden
End Sub

On en profite pour mémoriser le nom de la feuille qu'on démasque. Lorsqu'on active la feuille HISTORIQUE FACTURES, on remasque la feuille mémorisée.

Cliquez pour agrandir...

Othmane204 à dit:

s'il y a moyen d'afficher une feuille masquée suivant son lien hypertexte, et la remasquer lorsqu'on active une autre feuille.

Cliquez pour agrandir...

sylvanu à dit:

Bonjour,
Je ne vois pas le rapport entre votre demande initiale :

et votre nouvelle demande ?
Est ce qu'au moins la solution que je vous ai proposé vous satisfait ?
On utilise le contenu de la cellule pour accéder à la feuille.

Ensuite, Sheets.Count va vous donner le nombre de feuilles présentes dans le classeur.
Soit pour votre fichier 5.
Et quand vous faites Sheets(5) vous avez une erreur car la Feuil5 n'existe pas. Vous avez les feuilles 1,2,3,4,11.

Cliquez pour agrandir...