macro masquer feuilles

Bonjour,

je cherche à réaliser une macro pour masquer des feuilles excel.
L'idée est de masquer des groupes de feuilles par leur nom (name) et non nom par le nom de l'onglet.
exemple:

Code:

---

1 2 3 4 5

Sub bouton1_clic() For i = 1 To 100 Sheets(i).Visible = xlSheetVisible Next i End Sub

---

Cette macro fonctionne lorsque je me limite i à 10. Au delà elle ne fonctionne pas.
Avez vous des idées.

Merci d'avance

Bonjour,

Citation:

---

Cette macro fonctionne lorsque je me limite i à 10. Au delà elle ne fonctionne pas.
Avez vous des idées.

---

Question importante : Avez-vous un message d'erreur et si oui lequel et à quelle ligne

Déjà il serait important de limiter tout de suite la boucle par Sheets.Count au lieu de la constante 100

Citation:

---

L'idée est de masquer des groupes de feuilles par leur nom (name) et non nom par le nom de l'onglet

---

Exemple pour deux feuilles nommées Start et Admin

Code:

---

1 2 3 4 5 6 7

Sub T() Dim sht As Worksheet For Each sht In Worksheets(Array("Start", "Admin")) sht.Visible = xlSheetVisible Next Set sht = Nothing End Sub

---

Personnellement, je crée une table avec en première colonne le CodeName de la feuille en deuxième colonne une fonction personnalisée qui renvoie le nom de l'onglet et en troisième colonne l'état Visible, Caché ou vraiment caché dans lequel je souhaite avoir mes feuille en production et un ToggleButton qui permet d'afficher ou de mettre l'une des trois propriétés définit par la troisième colonne

[EDIT]
Attention : Le titre de votre discussion est "Macro Masquer feuille" or la valeur que vous avez utilisée pour la propriété Visible et que j'ai reprise est xlSheetVisible alors que pour masquer une feuille c'est soit la valeur xlSheetHidden soit xlSheetVeryHidden

Bonsoir,

Je plussoie Philippe :salut: je travail énormément avec des tableaux structurés comme table de mappage.
Ce procédé permet de ne pas à avoir à entrer dans le code a outrance, et permet donc une meilleur maniabilité / évolution de l'outils pour et par les utilisateurs.

Ici, je reprends une méthodologie similaire à celle exposée par Philippe pour cacher/afficher les feuilles d'un wb.

Bav,

Bonjour à vous, Bonjour u Forum,

Salut les amis Philippe et Michaël,

Bravo pour vos suggestions

Philippe,

Un détail.
Je m'interroge sur cette ligne.

Code:

---

Set sht = Nothing

---

Personnellement, je libère une variable affectée à un objet (ici une feuille) si je l'ai affectée en premier lieu.

Code:

---

1 2 3 4

Dim lawks As Worksheet Set lawks = ThisWorkbook.Worksheets("Toto") '.......suite du code..... Set lawks = Nothing

---

Merci à toi

Bonne journée à tous.

Merci

Bonjour Marcel,
Je termine toutes mes procédures par les instructions Set VariableObjet = Nothing

Bonjour et merci pour vos retours.

Le paramètre que je souhaite identifier pour masquer ou non la feuille est le nom de la feuille avec son numéro et non le nom de l'onglet de la feuille en question.

Exemple "Feuil1"

Avez vous des idées?

Yann

Bonjour,

Citation:

---

Le paramètre que je souhaite identifier pour masquer ou non la feuille est le nom de la feuille avec son numéro et non le nom de l'onglet de la feuille en question.
Exemple "Feuil1"

---

Je pense que votre demande n'est pas très claire
La propriété Name d'un objet Sheet ou Worksheet est celui qui s'affiche dans l'onglet et je crois avoir répondu à votre question sur ce sujet, sinon il s'agit de sa propriété CodeName

Je m'excuse pour mon manque de clareté.
Je reformule:
mon objectif est d'avoir une macro qui masque des plages de feuilles suivant leurs codename.

Exemple: masquer les feuilles dont le codename est compris entre "Feuil1" et Feuil10".

Est-ce plus clair?

Merci d'avance

Yann

Bonjour,
L'intérêt d'utiliser le CodeName d'une feuille en VBA, c'est de s'affranchir de l'utilisateur qui pourrait renommer la feuille et ainsi déclencher une erreur dans le programme.
Il est évident que dans ce cas là, il est hautement recommandé de donner un nom explicite et ne pas conserver le CodeName d'origine donc boucler de 1 à 10 sur son nom n'a aucun intérêt pour moi.

Le CodeName d'une feuille fait partie des composants contenus dans un projet et il est possible de les lister à l'aide de la propriété VBComponents de l'objet VbProject
Personnellement, je me refuse à utiliser cette méthode car elle nous oblige d'une part à ajouter la référence "Microsoft Visual Basic For Application Extensibility 5.3" mais surtout d'avoir l'option Accès approuvé au modèle d'objet du projet VBA cochée. Ce qui augmente les risques d'interventions chez les clients.
Donc sur ce terrain là, pas d'aide possible de ma part mais si le sujet vous intéresse voir entre-autres le chapitre II-B. La propriété VBComponents du tutoriel Visual Basic Editor

Personnellement, comme je l'ai expliqué dans le Fil #2 de cette discussion, j'utilise une table de mappage (Table structurée) nommée T_Sheet comme illustré ci dessous

Pièce jointe 581483

Les colonnes

1. contient le CodeName de la feuille
2. la fonction personnalisée =GetSheetName([@CodeName])
3. contient la valeur de la propriété Visible lorsque le classeur est en production soit (-1, 0 et 2) et c'est un format personnalisé qui affiche Visible, Hidden et VerryHidden

A l'aide d'un ToggleButton je lance la procédure suivante

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

Private Sub VisibleHidden(FlagVisible As Boolean, Optional TableName As String = "T_Sheet") ' ' Philippe Tulliez (www.magicoffice.be) ' Arguments ' FlagVisible (True pour afficher / False ' [TableName] Nom de la table de mapping (d:"T_Sheet") Dim oList As ListObject Dim oData As Range Dim ColumnName As Integer Dim ColumnVisible As Integer Dim r As Long Dim SheetName As String Set oList = Range("T_Sheet").ListObject Set oData = oList.DataBodyRange ' Start With oList ColumnName = .ListColumns("SheetName").index ColumnVisible = .ListColumns("Visible").index End With   For r = 1 To oData.Rows.Count SheetName = oData.Cells(r, ColumnName).Value If Len(SheetName) Then With Worksheets(SheetName) If SheetName <> ActiveSheet.Name Then .Visible = IIf(FlagVisible, -1, oData.Cells(r, ColumnVisible).Value) End With End If Next ' EndOfProcess Set oList = Nothing: Set oData = Nothing End Sub

---

Code de la fonction personnalisée nommée GetSheetName

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Function GetSheetName(CodeName As String) As String ' Fonction renvoyant le nom de la feuille en fonction de son CodeName ou chaîne vide si le CodeName n'est pas trouvé ' Est utilisé dans le classeur [shtAdmin] pour afficher/masquer les feuilles ' Philippe Tulliez (www.magicoffice.be) ' Argument ' CodeName CodeName de la feuille Dim index As Integer Do index = index + 1 If StrComp(Sheets(index).CodeName, CodeName, vbTextCompare) = 0 Then GetSheetName = Worksheets(index).Name index = Worksheets.Count End If Loop Until index >= Sheets.Count End Function

---

Procédure qui simule le ToggleButton

Code:

---

1 2 3

Sub TestVisibleHidden() VisibleHidden False ' Simule le ToggleButton End Sub

---

[EDIT]
Autre solution si vous voulez absolument passer par une boucle, en utilisant la fonction GetSheetName

Code:

---

1 2 3 4 5 6 7 8

Sub VisibleHidden() Dim Elem As Integer Dim SheetName As String For Elem = 1 To 10 SheetName = GetSheetName("Feuil" & Elem) If Len(SheetName) Then Worksheets(SheetName).Visible = xlSheetVisible Next End Sub

---

Pour ne pas utiliser de constante pour la boucle, remplacer la ligne 4 par For Elem = 1 To Worksheets.Count avec le risque bien entendu que le nombre de feuilles soit inférieur au chiffre le plus élevé du CodeName d'une feuille
Il est possible d'ajouter un paramètre représentant la valeur à passer à la propriété Visible et passer la valeur de ce paramètre en remplacement de la constante actuelle (Ligne 6)