Recherche Macro Pour Masquer Les Onglets De Feuilles

[LILOUM44]

Bonjour,

Je recherche une macro pour masquer tous les onglets d'une document excel sauf l'onglet de TABLE DES MATIERES.....
Pour info, les onglets concernés sont les différentes feuilles du document.
Merci de votre aide.

Bien cordialement.

Didier

 

[skoobi]

Re : Recherche Macro Pour Masquer Les Onglets De Feuilles

Bonjour,

Private Sub CommandButton1_Click()
For n = 1 To Sheets.Count
  If Sheets(n).Name <> "TABLE DES MATIERES" Then Sheets(n).Visible = False
Next
End Sub

Attention à la synthaxe de "TABLE DES MATIERES".

 

[Spitnolan08]

Re : Recherche Macro Pour Masquer Les Onglets De Feuilles

Bonjour

Edit : même chose que Skoobi donc supprimé...

Cordialement

 

[Guest]

Re : Recherche Macro Pour Masquer Les Onglets De Feuilles

Bonjour LiLoum,

quelles feuille? quand? comment?

si non d'une manière générale cette macro affiche ou cache la feuille correspondant au nom passé en paramètre:

Sub CacheMontre(NomFeuille As String)
    Sheets(NomFeuille).Visible = Not Sheets(NomFeuille).Visible
End Sub

A bientôt

 

[LILOUM44]

Re : Recherche Macro Pour Masquer Les Onglets De Feuilles

Merci à tous pour la macro malheureusement, je constate que je ne vous ai pas tout dit.

En effet, les feuilles que je souhaites cacher sont liées à des liens qui se trouvent sur la feuille visible.

Globalement pour synthétiser au mieux, ma feuille visible est un répertoire sur lequel il y a des liens sur lesquels je peux cliquer dessus et qui me conduise sur une autre feuille (feuille A) du document. La feuille A est effectivement caché par votre macro. Le problème c'est qu'avec la macro que vous m'avez créer le lien ne fonctionne pas et je ne peux donc pas accéder au signet de la feuille concerné.

Merci pour votre aide et toutes mes excuses pour ne pas avoir été assez clair.

Bien cordialement

 

[Guest]

Re : Recherche Macro Pour Masquer Les Onglets De Feuilles

re bonjour LiLoum

Avec ceci cela fonctionne:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
     Dim feuille As String
    On Error Resume Next
    feuille = Left(Target.SubAddress, InStr(Target.SubAddress, "!") - 1)
    Sheets(feuille).Visible = True
End Sub

A toi de recacher la feuille ensuite.

A bientôt