Accéder à des onglets masqués (EXCEL 2013)

Résolu
Le_Maniouk Messages postés 349 Statut Membre -  
via55 Messages postés 14391 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour à tous,

Je cherche à accéder à des onglets masqués par le biais de lien hypertexte ... Je m'explique :

Étant courtier en Assurances, je travaille avec plusieurs compagnies d'assurances en Complémentaire Santé. J'ai réussi à regrouper tous les tarifs des compagnies sur un seul fichier EXCEL. Ce qui fait que désormais lorsque je tape les dates de naissances cela me donne les tarifs en fonction des âges et en fonctions des compagnies.
J'ai aussi créer des onglets pour chaque tableau de garanties de chaque compagnie. 1 feuille = 1 tableau de garantie

J'ai créé plusieurs "boutons" avec des liens hypertextes vers chaque feuille de mon classeur. Mais le problème c'est que lorsque que je masque les différentes feuilles, je n'y ai plus accès via les boutons créés précédemment ... J'ai vraiment besoin que ces feuilles soit masquées afin d'éviter d'avoir beaucoup d'onglets.

Je n'y connais strictement rien en VBA etc... donc si vous pouviez me guider et m'aider dans ma démarche.

Vous en remerciant par avance

--
- Parlez moi de vous plutôt.
- Odile ! Moi c'est Odile ! Pluto c'est l'ami de Mickey !
- Ah non ! Pluto c'est le chien de Mickey ! L'ami de Mickey c'est Dingo !

3 réponses

  1. via55 Messages postés 14391 Date d'inscription   Statut Membre Dernière intervention   2 759
     
    Bonjour

    Pour procéder en VBA il ne faut pas utiliser un lien hypertexte associé à une forme comme tu as du le faire, il faut créer un vrai bouton (Onglet Developpeur - Inserer - Contrôle Active X et choisir l'icone bouton et le placer sur la feuille
    Ensuite clic droit sur le bouton et visualiser le code, l'editeur VBA s'ouvre et dans la page tu as
    Private Sub CommandButton1_Click()
    End Sub

    Entrer les lignes de macro suivantes :
    Private Sub CommandButton1_Click()
    Sheets("Feuil2").Visible = True ' REMPLACER Feuil2 par le nom de la feuille à démasquer et à activer dans ces deux lignes
    Sheets("Feuil2").Activate
    End Sub


    puis fermer l'éditeur VBA

    Ensuite tu affiches cette feuille masquée et clic droit sur l'onglet avec le nom de la feuille puis visualiser le code et dans la page blanche de l'éditeur tu colles la macro suivante :
    Private Sub Worksheet_Deactivate()
    Sheets("Feuil2").Visible = False ' REMPLACER Feuil2 par le vrain nom de la feuille
    End Sub


    ce code a pour but de remasquer la feuille dès qu'on la quitte

    Cdlmnt
    Via
    3
    1. Le_Maniouk Messages postés 349 Statut Membre 158
       
      Merci je vais tester et te redis quoi =)
      0
    2. Le_Maniouk Messages postés 349 Statut Membre 158
       
      Un TRES TRES GRAND Merci ! Ca marche parfaitement !
      0
    3. Le_Maniouk Messages postés 349 Statut Membre 158
       
      Et pour faire un enregistrer sous en un clique ? =)
      0
      1. via55 Messages postés 14391 Date d'inscription   Statut Membre Dernière intervention   2 759 > Le_Maniouk Messages postés 349 Statut Membre
         
        Bonsoir,

        Plutôt que par double-clic c'est plus évident de mettre un bouton et comme code associé au bouton mettre
        Application.Dialogs(xlDialogSaveAs).Show

        qui ouvre la boite de dialogue Enregistrer sous
        0
  2. Raymond PENTIER Messages postés 58213 Date d'inscription   Statut Contributeur Dernière intervention   17 482
     
    Bonjour Le_Maniouk

    "J'ai vraiment besoin que ces feuilles soit masquées afin d'éviter d'avoir beaucoup d'onglets" : Peux-tu justifier ce besoin ?
    Tes onglets principaux étant au début, cela ne devrait pas te perturber qu'il y en aie plein d'autres ...

    Cordialement.
    0
    1. Le_Maniouk Messages postés 349 Statut Membre 158
       
      Car il n'y a pas que les tarifs pour la santé mais aussi pour l'obsèques la dépendance etc ...
      0
  3. Toewing
     
    Bonjour,cela peut etre fonctionner je travail avec Excel 2007 et lorsque je l'ouvre il y a des onglets sous L'onglet acceuil complletement à droite il y a le mot FORMAT click sur la flèche et tu as un menu déroulant trouve VISIBILITE met la sourie dessus et trouve "afficher la feuille".
    Bonne chance mais je ne suis pas certaint pour 2013 si c'est la meme procédure.
    Bonne Journée
    -4