Macro cacher puis afficher des feuilles depuis un lien hypertexte

pousky

XLDnaute Nouveau
Bonjour,
En plus d'être un débutant, j'ai cherché partout sur votre forum mais sans succès.
Voilà mon problème:
Je me suis créé un petit logiciel de finance sur Excel grâce aux formules. Mon fichier contient 9 feuilles dont une que j'ai nommé Accueil.
Ce que je souhaiterai avoir, si possible, c'est une macro qui me permet de cacher toutes mes autres feuilles sauf la page d'accueil, lorsqu'on ouvre le classeur. Ensuite pour pouvoir accédez aux feuilles "cachées grâce à ma macro", l'on soit obligé de cliquer sur un lien hypertexte (que j'ai appelé ENTRER) qui se trouve sur la page d'accueil.

Je vous remercie d'avance !
 

JNP

XLDnaute Barbatruc
Re : Macro cacher puis afficher des feuilles depuis un lien hypertexte

:cool:Bonjour Pousky :),
En plus d'être un débutant, j'ai cherché partout sur votre forum mais sans succès.
Débutant en recherche aussi, car ce sujet a déjà été abordé :rolleyes:... Et un petite passage par la charte t'aurait permis aussi de joindre un fichier d'exemple :eek:...
Pour la première partie, dans ThisWorkbook
Code:
Private Sub Workbook_Open()
Dim Feuille As Worksheet
For Each Feuille In ThisWorkbook.Worksheets
If Feuille.Name <> "Acceuil" Then Feuille.Visible = xlSheetVeryHidden
Next Feuille
End Sub
Pour la 2ème, en utilisant (toujours dans ThisWorkbook)
Code:
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
End Sub
tu intercepteras le lien et tu devrais pouvoir rendre ta feuille visible avant de finir de suivre le lien.
Bonne journée :cool:
Ajout : Désolé, un "=" s'était glissé à la place de "<>", je l'ai corrigé... Merci à l'ami Dull de me l'avoir signalé ;)
 
Dernière édition:

pousky

XLDnaute Nouveau
Re : Macro cacher puis afficher des feuilles depuis un lien hypertexte

Re
J'ai fais alt F11 et j'ai inséré les macros dans la VBA comme tu me l'a dis dans le meme éditeur thisworkbook
Après quand je retourne dans afficher les macros dans excel je ne vois rien.
Merci de m'éclairer
Bonne après midi
 

JNP

XLDnaute Barbatruc
Re : Macro cacher puis afficher des feuilles depuis un lien hypertexte

Re :),
Ce que je souhaiterai avoir, si possible, c'est une macro qui me permet de cacher toutes mes autres feuilles sauf la page d'accueil, lorsqu'on ouvre le classeur.

Après quand je retourne dans afficher les macros dans excel je ne vois rien.
Merci de m'éclairer
Hum :p...
Ferme le classeur et rouvre le :rolleyes:...
Bonne suite :cool:
 

pousky

XLDnaute Nouveau
Re : Macro cacher puis afficher des feuilles depuis un lien hypertexte

J'ai suivi ton conseil.
ça marché, il a bien cacher mes feuilles. Celle qui reste visible est la page d'accueil
Sauf que quand je clique sur le lien rien n'apparait.
Pourtant je n'ai rien modifié dans ton code. j'ai juste fait copier coller
Bonne soirée
 

JNP

XLDnaute Barbatruc
Re : Macro cacher puis afficher des feuilles depuis un lien hypertexte

Re :),
Sauf que quand je clique sur le lien rien n'apparait.
Pourtant je n'ai rien modifié dans ton code. j'ai juste fait copier coller
Je n'ai pas écrit de code, donc c'est normal :p...
Je t'ai juste dis que c'est en écrivant une procédure de ce genre (comprendre mettre les bonnes lignes entre Private Sub et End Sub) que ça fonctionnerait, mais que sans fichier, point de salut :rolleyes:...
Bon courage :cool:
 

pousky

XLDnaute Nouveau
Re : Macro cacher puis afficher des feuilles depuis un lien hypertexte

Ok je vois !
Pour faire simple voilà une copie de ma feuille en exemple, comme tu me l'avais demandé plus haut.
parce que là je n'y arrive pas.
Merci
 

Pièces jointes

  • Copie - Copie.xlsx
    78.7 KB · Affichages: 125

JNP

XLDnaute Barbatruc
Re : Macro cacher puis afficher des feuilles depuis un lien hypertexte

Re :D,
J'ai bien fait de te demander un fichier, car vu que ton Hyperlink est lié à un Shape, l'événementielle de feuille ne réponds pas :rolleyes:...
Mais bon, pourquoi s'em... avec de hyperliens quand tu peux tout simplement lier une macro à ton Shape et dire :
1) Rendre visible la feuille
2) S'y rendre
???
A + :cool:
 

Discussions similaires

Statistiques des forums

Discussions
312 329
Messages
2 087 334
Membres
103 519
dernier inscrit
Thomas_grc11