Discussion :

[yrobert]

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 vba :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

Bonjour,

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mfoxy]

Bonsoir,

Je plussoie Philippe 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,

[MarcelG]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

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

[yrobert]

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