Lien hypertexte avec onglet masqué pour cibler un tableau

Fermé
Olive93270 Messages postés 4 Date d'inscription mercredi 12 avril 2017 Statut Membre Dernière intervention 13 avril 2017 - 12 avril 2017 à 16:20
Olive93270 Messages postés 4 Date d'inscription mercredi 12 avril 2017 Statut Membre Dernière intervention 13 avril 2017 - 12 avril 2017 à 20:27
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.
A voir également:

1 réponse

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
Modifié le 12 avril 2017 à 18:36
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
Olive93270 Messages postés 4 Date d'inscription mercredi 12 avril 2017 Statut Membre Dernière intervention 13 avril 2017
12 avril 2017 à 20:27
Cela fonctionne, un grand merci !
0