XL 2016 Macro ouvrir et fermer une même feuille pour un seul bouton

[Axos]

Bonjour à tous!

Je cherche à créer une Macro VBA pour ouvrir et fermer une même feuille (pas celle sur laquelle sera le bouton de commande) avec un seul et même bouton.
Je sais créer la macro pour ouvrir ou fermer avec deux boutons différents...

Quelqu'un aurait-il une idée des lignes de code à saisir?

D'avance, je vous remercie,

Axos.

 

[riton00]

Bonjour,

A tout hasard voir le fichier joint

 

[Eric C]

Bonjour le forum
Bonjour Axos, bonjour riton00

Comme je passais par là, je dépose mon fichier.

Bonne fin d'après midi à toutes & à tous & Joyeuses Pâques

Cela fait toujours plaisir de savoir que la contribution a aidé (ou pas).

N'hésitez pas à marquer le sujet comme résolu le cas échéant ou à liker.

@+ Eric c

 

[sylvanu]

Bonsoir Axos, Riton, Eric,
Une variante avec changement de couleur et de texte du bouton en fonction de l'état de la feuille :

Sub Masque()
    If Sheets("Feuil2").Visible = True Then
        Sheets("Feuil2").Visible = 2
        With ActiveSheet.Shapes("Rectangle à coins arrondis 1")
            .TextFrame.Characters.Text = "Démasquer Feuil2"
            .TextFrame.Characters(3, 1).Font.Bold = True
            .Fill.ForeColor.RGB = RGB(0, 255, 0)
        End With
    Else
        Sheets("Feuil2").Visible = -1
        With ActiveSheet.Shapes("Rectangle à coins arrondis 1")
            .TextFrame.Characters.Text = "Masquer Feuil2"
            .TextFrame.Characters(3, 1).Font.Bold = True
            .Fill.ForeColor.RGB = RGB(255, 255, 0)
        End With
    End If
End Sub

 

[Axos]

Merci les amis!

Mais question idiote, j'en conviens : comment affecter la macro à un bouton déjà créé dans la feuille? 🙄

 

[sylvanu]

Re,
Si c'est une forme libre, ( carré, rond ... )
Clic droit sur le bouton, puis Affecter une macro, puis choisir dans la liste.
Si c'est un bouton fait en mode développeur
Idem, ou
Se mettre dans l'onglet développeur, clic droit sur le bouton puis visualiser le code, la macro s'appelera alors Sub Bouton1_Clic() par ex.

 

[Axos]

Re,
Si c'est une forme libre, ( carré, rond ... )
Clic droit sur le bouton, puis Affecter une macro, puis choisir dans la liste.
Si c'est un bouton fait en mode développeur
Idem, ou
Se mettre dans l'onglet développeur, clic droit sur le bouton puis visualiser le code, la macro s'appelera alors Sub Bouton1_Clic() par ex.

Oui je connais ces procédures mais le problème c'est que je ne trouve pas la macro en question alors même que je l'ai copiée soit dans un module, soit dans la feuille où le bouton est inséré... Je précise que le bouton que j'utilise est un bouton issu d'une forme libre.

Comment faire?

Merci de vos réponse les amis!

 

[sylvanu]

Re,
Si votre macro est déclarée en privée ( Private Sub essai1() ) alors elle n'est pas visible par Affecter une macro.
Pour la rendre visible, supprimer le Private.

 

[Axos]

Re,
Si votre macro est déclarée en privée ( Private Sub essai1() ) alors elle n'est pas visible par Affecter une macro.
Pour la rendre visible, supprimer le Private.

Merci Sylvanu!

Maintenant je la vois, je l'ai affectée mais le script bugg...

En fait, mon bouton ne s'appelle pas ToggleButton1...

 

[sylvanu]

Re,
Sans fichier, difficile à dire.
Pourquoi pas supprimer ce bouton et le remplacer par une forme quelconque ( insertion/formes )
Vous profiter d'un grand nombre de formes, on peut facilement jouer sur la couleur, le 3D, l'ombre...
Perso, j'ai toujours trouvé ça plus sympa.

 

[Axos]

Re,
Sans fichier, difficile à dire.
Pourquoi pas supprimer ce bouton et le remplacer par une forme quelconque ( insertion/formes )
Vous profiter d'un grand nombre de formes, on peut facilement jouer sur la couleur, le 3D, l'ombre...
Perso, j'ai toujours trouvé ça plus sympa.

Avec le fichier... Désolé...

 

[sylvanu]

Sorry, mais il est est où votre ToggleButton1 ? sur quelle feuille ?

 

[Axos]

Sorry, mais il est est où votre ToggleButton1 ? sur quelle feuille ?

Il n'existe pas. C'est le bouton REGISTRE qui doit être utilisé pour cela sur la page "Arrivées"

 

[Eric C]

Bonjour le fil,


De ce que j'ai compris. J'ai modifié (remplacé) ton Bouton.
Bonne journée
@+ Eric c

 

[sylvanu]

Si ce bouton n'existe pas, on va avoir du mal à connaitre son état 🤣
En PJ j'ai raccroché le bouton Registre à cette macro :

Sub Bouton_registre()
    If Sheets("Registre arrivées").Visible = True Then
        Sheets("Registre arrivées").Visible = False
    Else
        Sheets("Registre arrivées").Visible = True
    End If
End Sub