Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

[RESOLU] ouvrir/fermer une feuill cachée d'un classeur grace à la touche d'un USForm

  • Initiateur de la discussion Initiateur de la discussion charbsou
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

C

charbsou

Guest
bonjour,

j'ai un soucis d'erreur 1004 sur ma macro et je ne comprend pas pourquoi.

dans le this Workbook

Private Sub Workbook_activate() ' lorsque ce classeur est actif
Application.ScreenUpdating = False 'on masque l'éxécution des macro suivante
Sheets("objectif mois ").Visible = False ' la feuille objectif mois est masquée
End Sub


et dans l'userForm

Private Sub ObjectifDuMois_Click()

Sheets("objectif mois ").Select
'Sheets("objectif mois ").Visible = False 'on doit remettre ici comme dans thisisWorkbook que la feuille " " est masque)
End Sub



question supplementaire,
comment faire pour qu'un clic sur le bouton dans l'useur m'ouvre la feuille cache puis un second clic sur le meme bouton me referme la feuille.

merci
 
Dernière modification par un modérateur:
Re : ouvrir/fermer une feuille caché d'un classeur grace à la touche d'un userform

Bonjour,

en rajoutant ceci dans le module de l'usf, sur l'événement de ton bouton "masque", cela semble fonctionner :

Code:
Private Sub CommandButton5_Click()
With Sheets("objectif mois ")
    .Visible = Not .Visible
    CommandButton5.Caption = IIf(.Visible, "MASQUER", "AFFICHER")
    If .Visible Then .Activate
End With
End Sub

A noter, j'ai retiré les "Application.ScreenUpdating = False", qui ici ne semblent avoir aucun intérêt...

Maintenant, est ce cela que tu veux ??? j'en sais rien....

bonne journée
@+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

S
Réponses
3
Affichages
2 K
StanSigma
S
F
Réponses
17
Affichages
2 K
FlorianQ
F
T
Réponses
5
Affichages
1 K
taupivin
T
Y
Réponses
6
Affichages
1 K
yakin78
Y
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…