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

Axos

XLDnaute Nouveau
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.
 

Eric C

XLDnaute Barbatruc
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
 

Pièces jointes

  • Cacher Afficher Feuil2 (1) (2).xlsm
    20 KB · Affichages: 3
Dernière édition:

sylvanu

XLDnaute Barbatruc
Supporter XLD
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
 

Pièces jointes

  • Axos.xlsm
    15.3 KB · Affichages: 8

sylvanu

XLDnaute Barbatruc
Supporter XLD
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

XLDnaute Nouveau
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!
 
Dernière édition:

sylvanu

XLDnaute Barbatruc
Supporter XLD
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

XLDnaute Nouveau
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é...
 

Pièces jointes

  • Registre courriers.xlsm
    110.1 KB · Affichages: 6

sylvanu

XLDnaute Barbatruc
Supporter XLD
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
 

Pièces jointes

  • Registre courriers.xlsm
    109.9 KB · Affichages: 7

Discussions similaires

Réponses
4
Affichages
264

Statistiques des forums

Discussions
312 938
Messages
2 093 780
Membres
105 824
dernier inscrit
lloch82