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

Macro Afficher ou masquer feuilles

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion FanExcel
  • 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 !

S'inscrire

FanExcel

XLDnaute Occasionnel
Je suis lancée !!!

Dans un TDB, je souhaite masquer des feuilles qui contiennent des requetes afin que la diffusion ne laisse apparaitre que ce qui interesse les destinataires.

Pour les Mises à jour périodiques, j'ai une macro qui affiche toutes les feuilles
Ensuite une autre macro pour ne masquer que quelques feuilles

Bien sur, comme d'hab, j'ai du rater qq chose et ça ne marche pas

Voici les codes
A priori la première (afficher) fonctionne et la deuxième plante

Afficher feuilles
Sub AfficherFeuilles()
Application.ScreenUpdating = False
Dim MDP As String
MDP = InputBox("Entrer mot de passe :", "Affichage des feuilles masquées")
If MDP <> "yes" Then Exit Sub
Dim n As Integer
For n = 1 To Sheets.Count
Sheets(n).Visible = True
Next n
End Sub

Masquer feuilles
Sub MasquerFeuilles()
Application.ScreenUpdating = False
Dim MDP As String
MDP = InputBox("Entrer mot de passe :", "Affichage des feuilles masquées")
Sheets(Array("Point1", "Point2", "Point3", "Point4", "Point5", "Point6", _
"Point7", "Point8", "Tables")).Select
If MDP <> "yes" Then Exit Sub
Sheets.Visible = True
End Sub
 
Trier par date Trier par votes
Re : Macro Afficher ou masquer feuilles

Bonjour FanExcel:

Ne serait-ce pas:

Code: 
Sub MasquerFeuilles()
Application.ScreenUpdating = False
Dim MDP As String
MDP = InputBox("Entrer mot de passe :", "Affichage des feuilles masquées")
 
'Si mauvais mot de passe on sort
If MDP <> "yes" Then Exit Sub
 
'Sinon on masque les feuilles
Sheets(Array("Point1", "Point2", "Point3", "Point4", "Point5", "Point6", _
"Point7", "Point8", "Tables")).Visible=xlSheetHidden

End Sub

A bientôt
 
Vote positif 0 Vote négatif
Re : Macro Afficher ou masquer feuilles

FanExcel,

C'est soit que la feuille n'existe pas soit qu'elle est déjà masquée.

[Rectification] lorsque qu'une feuille est masquée et qu'on tente de la sélectionner le message d'erreur 1004 est "La méthode Select de la classe Worksheet a échoué".

A bientôt
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Macro Afficher ou masquer feuilles

Bon, j'avance petit à petit ...

Les feuilles existent et son démasquées

J'ai un nouveau Msg:
Impossible de définir la propriété visible de la classe Sheets

??
 
Vote positif 0 Vote négatif
Re : Macro Afficher ou masquer feuilles

J'ai oublié de joindre mon code...

Sub MasquerFeuilles2()
Application.ScreenUpdating = False
Dim MDP As String
MDP = InputBox("Entrer mot de passe :", "Affichage des feuilles masquées")
If MDP <> "yes" Then Exit Sub
Sheets(Array("T2008", "Base", "F1", "F2", "F3", "F4", "F5", "F6", "F7")).Visible = xlSheetVeryHidden
Sheets.Visible = True
End Sub
 
Vote positif 0 Vote négatif
Re : Macro Afficher ou masquer feuilles

RE,

Oui avançons petit à petit.

Pour résoudre ton problème il est préférable alors d'adopter la manière suivante:

Code: 
Dim sh As Worksheet
 
'Parcourir chaque feuille du tableau
For Each sh In Sheets(Array(("Point1", "Point2", "Point3", "Point4", "Point5", "Point6", "Point7", "Point8", "Tables"))
    sh.Visible = xlSheetVisible 'Ou xlSheetVeryHidden ou xlSheetHidden pour masque
Next sh

A bientôt
 
Vote positif 0 Vote négatif
Re : Macro Afficher ou masquer feuilles

Hello le forum!!🙂

J'ai du changer le mot de passe dans ma macro car, lorsque je le saisi pour afficher ou masquer, il se voit dans la boite de dialogue.
Existe-t-il un moyen d'afficher *** afin que je ne me fasse pas à nouveau "pirater" 😱

(et oui... il y a tjrs un petit malin à l'affut...!)

A bientôt
 
Vote positif 0 Vote négatif
Re : Macro Afficher ou masquer feuilles

Bonjour à tous,

oui, mais pas par une Inputbox (autant que je sache).
il faut que tu crée un petit userform avec une Textbox, et dans la propriété de la Textbox tu mettes la propriété Passwordchar : *
 
Vote positif 0 Vote négatif
Re : Macro Afficher ou masquer feuilles

Voici mon code


Sub MasquerFeuilles2()
Application.ScreenUpdating = False
Dim MDP As String
MDP = InputBox("Entrer mot de passe :", "Affichage des feuilles masquées")
If MDP <> "yes" Then Exit Sub
Sheets(Array("T2008", "Base", "F1", "F2", "F3", "F4", "F5", "F6", "F7")).Visible = xlSheetVeryHidden
Sheets.Visible = True
End Sub

Et lorsque je saisi "yes" dans ma boite de dialogue, tout le monde à proximité en profite.... Brkkkkkkk!
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

Discussions similaires

B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
550
sylvanu
K
  • Question Question
XL 2016 Protection de plusieurs feuilles par macro + autorisation de modification
Réponses
1
Affichages
1 K
sylvanu
J
  • Question Question
XL 2016 Liste déroulante à deux choix permettant d'afficher ou masquer une feuille
Réponses
3
Affichages
2 K
jannine NOLAM
J
N
  • Question Question
XL 2019 Afficher ou masquer une forme selon l'état visibilité d'une feuille.
Réponses
4
Affichages
2 K
mapomme
B
  • Résolu(e)
XL 2016 Macro pour masquer ou afficher une colonne "E" sur toutes les feuilles d'un dossier
Réponses
8
Affichages
1 K
berru76
B
N
  • Résolu(e)
XL 2019 Afficher ou masquer dynamiquement des lignes, selon la valeur d'une cellule.
Réponses
14
Affichages
6 K
JohDan
J
  • Question Question
XL 2016 rendre inaccessible des feuilles masquées par clic droit afficher
Réponses
2
Affichages
1 K
patricktoulon
  • Question Question
XL 2010 Afficher feuille selon mot de passe
Réponses
11
Affichages
3 K
JBARBE
M
  • Question Question
macro protéger plage de cellules
Réponses
2
Affichages
1 K
mix770
M
T
  • Question Question
Faire fonctionner une macro dans des feuilles protégées
Réponses
7
Affichages
1 K
timon
T
M
  • Question Question
macro verrouiller toutes les feuilles
Réponses
3
Affichages
8 K
mix770
M
A
  • Question Question
Erreur 91 Variable objet ou variable de bloc With non définie...
Réponses
3
Affichages
1 K
avekash
A
N
  • Question Question
Masquer / afficher lignes sur plusieurs feuilles.
Réponses
3
Affichages
1 K
Staple1600
  • Question Question
Mettre un Userform dans macro Masquer Lignes
Réponses
4
Affichages
1 K
libellule85
  • Question Question
Macro pour Masquer et Afficher lignes dans Excel 07
Réponses
3
Affichages
4 K
Staple1600
  • Question Question
Macro pour afficher ou masquer certaines feuilles d'un classeur
Réponses
7
Affichages
7 K
Paritec
G
  • Question Question
Plantage macro suprimmer
Réponses
5
Affichages
1 K
Pierrot93
  • Question Question
Macro Protection automatique des feuilles d'un classeur
Réponses
12
Affichages
4 K
FanExcel
A
  • Question Question
Affichage de tout le classeur = annuler tous les masquages...
Réponses
4
Affichages
1 K
Absinth
A
P
  • Question Question
Execution d'une macro dans une macro
Réponses
2
Affichages
968
prsut
P
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…