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

Axos · 17 Avril 2022

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 · 17 Avril 2022

Bonjour,

A tout hasard voir le fichier joint

Eric C · 17 Avril 2022

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 · 17 Avril 2022

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

VB:

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 · 18 Avril 2022

Merci les amis!

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

sylvanu · 18 Avril 2022

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 · 18 Avril 2022

sylvanu à dit:
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 · 18 Avril 2022

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 · 18 Avril 2022

sylvanu à dit:
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 · 18 Avril 2022

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 · 18 Avril 2022

sylvanu à dit:
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 · 18 Avril 2022

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

Axos · 18 Avril 2022

sylvanu à dit:
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 · 18 Avril 2022

Bonjour le fil,

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

sylvanu · 18 Avril 2022

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

VB:

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

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

Axos

XLDnaute Nouveau

riton00

XLDnaute Impliqué

Pièces jointes

Eric C

XLDnaute Barbatruc

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

Axos

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Axos

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Axos

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Axos

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Axos

XLDnaute Nouveau

Eric C

XLDnaute Barbatruc

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

Discussions similaires