IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Afficher un onglet caché grâce à un lien hypertexte [XL-365]


Sujet :

Macros et VBA Excel

  1. #1
    Membre du Club
    Femme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    décembre 2016
    Messages
    92
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Essonne (Île de France)

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : décembre 2016
    Messages : 92
    Points : 47
    Points
    47
    Par défaut Afficher un onglet caché grâce à un lien hypertexte
    Bonjour amis du Forum,

    Me voilà avec un nouveau cas d'école.
    J'ai un fichier avec plusieurs onglets, dont certains masqués et une table des matières. Pour chaque nouvel onglet créé, je souhaite copier le nom de l'onglet sur l'onglet "Table des matières" et y associer le lien hypertexte, puis pouvoir ouvrir l'onglet caché ou non caché en cliquant sur le lien.

    J'ai créé le code suivant qui fonctionne. Cependant, lorsque ensuite j'essaye, sur l'onglet "Table des matières", de cliquer sur un lien dont l'onglet est caché, il est impossible d'afficher l'onglet. Y a t-il une subtilité dans le code qui permettrait de mettre le lien hypertexte vers un onglet masqué "dans le document" et ensuite de pouvoir l'afficher en cliquant sur le lien.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    Sub CopieOnglet()
      'Bloquer l'écran pour executer la macro
            Application.ScreenUpdating = False
     
    Dim NewName As String
      NewName = ThisWorkbook.Names("pNewName").RefersToRange.Value
      mMain.CopyTemplate NewName
     
    Dim WS As Worksheet
    Dim N As Integer
    Dim celluledepart As Integer
    celluledepart = 15
     
    N = 0
     
    Sheets("Table des matières").Select
        Range("A2").Select
     
    'Range("B3").Select
        For Each WS In ThisWorkbook.Worksheets
            If WS.Name <> "Table des matières" And WS.Name <> "Sommaire" And WS.Name <> "Paramètres" And WS.Name <> "Modèle Pièce" And If WS.Name <> "Modèle Personnes" And If WS.Name <> "Modèle Gramme" And If WS.Name <> "Modèle Mousse" And If WS.Name <> "Modèle Multi Recette" Then
     
        Range("B" & celluledepart + N).Activate
       Range("B" & celluledepart + N).Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
            "'" & WS.Name & "'" & "!A1", TextToDisplay:=WS.Name
        N = N + 1
            End If
        Next
     
      'Libérer l'écran pour l'utilisateur
            Application.ScreenUpdating = True
    End Sub
    Merci très fort pour votre aide et très bonne soirée ou journée à tous


  2. #2
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    janvier 2010
    Messages
    10 656
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : janvier 2010
    Messages : 10 656
    Points : 25 437
    Points
    25 437
    Billets dans le blog
    31
    Par défaut
    Bonjour,
    On ne peut atteindre la cellule d'une feuille cachée à l'aide d'un lien hypertexte. Il faut donc la rendre visible en interceptant le clic sur le lien mais ill ne faudra pas oublier de la cacher à nouveau en la quittant.
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Ma dernière contribution : VBA - Les macros complémentaires

  3. #3
    Membre du Club
    Femme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    décembre 2016
    Messages
    92
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Essonne (Île de France)

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : décembre 2016
    Messages : 92
    Points : 47
    Points
    47
    Par défaut
    Bonjour Philippe
    Merci pour votre réponse. Je ne comprends pas comment interceptant le clic sur le lien. J'ai beau faire un clic + ctrl ou clic + windows ou clic + Alt ou encore clic + Maj, mais cela ne fonctionne pas. L'onglet ne veut pas s'afficher
    Merci pour votre aide
    Je vous souhaite un bonne journée


    Citation Envoyé par Philippe Tulliez Voir le message
    Bonjour,
    On ne peut atteindre la cellule d'une feuille cachée à l'aide d'un lien hypertexte. Il faut donc la rendre visible en interceptant le clic sur le lien mais ill ne faudra pas oublier de la cacher à nouveau en la quittant.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [Google Sheets] Copier / Coller une ligne avec condition sur un autre onglet
    Par bunz13 dans le forum APIs Google
    Réponses: 5
    Dernier message: 18/08/2018, 11h26
  2. copier le" texte" d'un bouton sur un autre
    Par gilles81 dans le forum ASP.NET
    Réponses: 7
    Dernier message: 02/02/2009, 16h47
  3. Réponses: 2
    Dernier message: 26/11/2008, 21h18
  4. Copier le nom d'un onglet vers une cellule du même onglet
    Par etorria dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 15/04/2008, 10h15
  5. Réponses: 7
    Dernier message: 23/03/2007, 18h49

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo