Afficher des onglets masqués via un bouton clic

Bonjour, Je réalise un fichier avec un sommaire et j'ai des onglets masqués que je voudrais voir s'afficher dès lors que l'on clic sur un bouton ou un lien hypertexte. JE NE MAITRISE PAS LE VBA, je ne sais si il faut ajouter les codes dans Module ou le workbook ou par feuille bref au besoin je peux envoyer le fichier. En vous remerciant beaucoup pour votre aide.

Salut,

tu peux aller dans l'onglet "Développeur", puis enregistrer une macro, faire un clique droit sur tes onglets excel puis afficher l'onglet qui t'intéresse.

"Arrêter l'enregistrement de la macro" puis la sauvegarder. Et normalement le tour est joué. Tu n'auras pas besoin d'écrire de VBA et ca devrait suffir, si j'ai bien compris. :)

Bonjour, je vous remercie pour votre réponse, j'ai réussi je vais continuer en créant une macro qui masque automatiquement ces onglets et via un autre bouton les affiche.

Merci beaucoup.

Bon (jour ou soir)…

Un exemple (modification de ma guerre de 14 grâce aux évolutions de ma curiosité : utilisation d’un bouton bascule (ToogleButton) très rarement proposé mais très performant…

Bonjour,
Une autre approche.
Cdlt.

Option Explicit

Private Sub Worksheet_Activate()
Dim ws As Worksheet, n As Long, rw As Long: rw = 5
    n = Application.Max(5, Me.Cells(Rows.Count, 2).End(xlUp).Row)
    Me.Range("B5:B" & n).ClearContents
    For Each ws In ActiveWorkbook.Worksheets
        If ws.Name <> Me.Name Then
            If ws.Visible <> xlSheetVisible Then
                Me.Cells(rw, 1).Hyperlinks.Add _
                        Anchor:=Me.Cells(rw, 2), _
                        Address:="", _
                        SubAddress:=ws.Name & "!A1", _
                        TextToDisplay:=ws.Name
                rw = rw + 1
            End If
        End If
    Next ws
End Sub

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim nm As String
    nm = Target.Parent
    With Worksheets(nm)
        .Visible = xlSheetVisible
        .Activate
    End With
End Sub

Une autre astuce :

Supposons que vous vouliez cacher las onglets "véhicule" & "facture"

Vous devez avoir au moins un onglet visible (c'est ce que j'ai nommé "acceuil")

Cliquez sur ALT + F11

Cliquez sur vehicule

Sélectionnez dans le paramètre Visible, l'option 2 - xlSheetVeryHidden

Pour que nul ne puisse afficher votre feuille, vous pouvez protéger votre classeur, comme suit :

Cliq droit sur VBAProject(nom de votre classeur)

Cliquez sur "Propriétés de VBAProject

Cochez "Verrouiller le projet pour l'affichage"

Définissez un mot de passe et le confirmer.

Cliquez sur OK

Enregistrez votre fichier

Si quelqu'un ouvre votre classeur, la feuille véhicule ne sera pas visible. Si cette personne mitrise un pu Excel, elle fera ALT + F11, et essayera d'afficher votre feuille, mais tombera sur un message

Eh oui, elle n'a pas le mot de passe.

Enfin quand vous voudrez afficher une seconde fois votre onglet, vous devrez repasser par la Propriété VBAProjet et taper votre mot de passe.

Ca parait fastidieux, mais une ou deux manipulations seront suffisantes.