La Programmation en Microsoft Office Excel

Résolu
ExcellenceSabio -  
Bonjour Mes Chers Amis,
Je m'appelle ExcellenceSabio, je suis analyste programmeur....Mais comme nous le savons tous que tout le monde apprend et ne connait pas tout.
Raison pour laquelle je suis obligé à vous poser une question qui m'est urgente enfin de finir mon rapport...

Au fait, J'ai travaillé sous Excel et ai réalisé un grand travail mais qui a plusieurs feuilles, au fait j'ai créé un Menu avec des boutons et je les ai programmés de sorte qu'en appuyant sur un bouton, une feuille apparaisse sans problème...Et là j'ai très bien programmé...Mais la préoccupation est de savoir comment je peux faire lorsque je masque toutes les feuilles et je reste avec le Menu en appelant les feuilles, ces dernières n'apparaissent et un message de débogage s'affiche, alors comment décanter ce problème...

Disons, je ne veux rester qu'avec la feuille du Menu et masquer les autres...Et lorsque je clique sur un bouton, que la feuille appelée apparaisse...

Merci d'avance !!!

6 réponses

  2.  f894009
    Re,

    code a mettre dans VBA de ThisWorkook 

    Private Sub Workbook_Open()
        'Masque les noms d'onglet
        ActiveWindow.DisplayWorkbookTabs = False
        'active l'onglet Menu
        Worksheets("Menu").Activate
    End Sub
    0
    1. ExcellenceSabio Auteur
      Je veux à ce que lorsque je clique, l'onglet s'affiche et le menu disparaît...
      0
      1. f894009
        Re,

        Que choisissez-vous

        masque des noms ou masque des onglets
        0
        2. ExcellenceSabio Auteur
          Merci Monsieur, Mais jusque là c'est compliqué, je vois le code mais où dois-je le mettre ?

          Éclaircissez un peu...S'il vous plait...

          Merci de m'avoir répondu et j'attends toujours de vous une simple explication..
          0
          1. f894009
            Bonjour,

            Au plus simple, masquez le nom des onglets 

            Sub cache_nom_onglet()
                ActiveWindow.DisplayWorkbookTabs = False
            End Sub

            Sub Affiche_nom_onglet()
                ActiveWindow.DisplayWorkbookTabs = True
            End Sub

            si vous tenez absolument gerer masque/affiche onglet 

                        'masque onglet
                        Worksheets("nom de l'onglet").Visible = False
                        'affiche onglet
                        Worksheets("nom de l'onglet").Visible = True
            0