Lien hypertexte avec onglet masqué pour cibler un tableau

Olive93270 Messages postés 6 Statut Membre -  
Olive93270 Messages postés 6 Statut Membre -
Bonjour,

Je me permets de vous contacter car je suis un novice VBA et je me creuse la tête depuis quelques heures, j'ai donc décidé de venir demander de l'aide.

Onglet 1 : Feuille1 : index
Onglet 2 : Feuille2, tableau 1 nommé : TAB et tableau 2 : TAB2 (voir screen)



Sur la feuille 1, je souhaite créer un index.
- 1 Lien hypertexte pour afficher la feuille 2 et précisement le tableau 1 : TAB
- 1 Lien hypertexte pour afficher la feuille 2 et précisement le tableau 2 : TAB2

Ces onglets sont masqués, je dois donc passer par le VBA. De plus, je souhaite que lorsque l'on ouvre ces onglets, une fois consulter ou éditer, je souhaite qu'elles se masquent à nouveau.

Merci.

1 réponse

  1. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    Bonjour,

    Tu mets d'abord ton lien Hypertexte vers la feuille 2 en A1 de la feuille1.
    Ensuite quand tu es sur la feuille 1 tu fais Alt F11 pour accéder à l'éditeur sur le module de la feuille 1.
    Tu mets ce code dans ce module:

    Option Explicit
    Private Sub Worksheet_Activate()
    Feuil2.Visible = xlSheetHidden 'masquée
    End Sub
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then
    Feuil2.Visible = xlSheetVisible 'visible
    Feuil2.Select
    End If
    End Sub
    


    Il te suffira de l'adapter suivant tes besoins, c'est un exemple simple!

    @+ Le Pivert
    0
    1. Olive93270 Messages postés 6 Statut Membre
       
      Cela fonctionne, un grand merci !
      0