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

XL 2016 Macro pour masquer ou afficher une colonne "E" sur toutes les feuilles d'un dossier

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 !

berru76

XLDnaute Occasionnel
Bonjour

Afin de déterminer si on joue en doublettes ou triplettes
Est il possible de faire une macro pour masquer et une pour afficher une colonne ( exemple la E ) pour toutes les feuilles du dossier
vu qu'il y auras une centaine de feuilles
toute les feuilles seront protégées par code " 1 "

Merci
 

Pièces jointes

Solution
Je viens de regarder pour la protection
j'avais une erreur dans mon code

met celui ci à la place.. ca devrait rentrer dans l'ordre
VB:
Sub MasquerColE()
Application.ScreenUpdating = False 'pour éviter l'effet sapin de Noel
With ActiveWorkbook 'dans le classeur actif
    For Each ws In .Sheets 'pour chaque feuille
            ws.Unprotect Password:="1" 'on déprotege
            ws.Columns("E:E").EntireColumn.Hidden = Not (ws.Columns("E:E").EntireColumn.Hidden) 'on bascule la colonne E entre masquée  visible
            ws.Protect Password:="1", DrawingObjects:=True, Contents:=True, Scenarios:=True 'on reprotège la feuille
    Next ws
End With
With Sheets("Inscriptions") 'dans la feuille inscriptions
    .Unprotect Password:="1" 'on...
Je viens de regarder pour la protection
j'avais une erreur dans mon code

met celui ci à la place.. ca devrait rentrer dans l'ordre
VB:
Sub MasquerColE()
Application.ScreenUpdating = False 'pour éviter l'effet sapin de Noel
With ActiveWorkbook 'dans le classeur actif
    For Each ws In .Sheets 'pour chaque feuille
            ws.Unprotect Password:="1" 'on déprotege
            ws.Columns("E:E").EntireColumn.Hidden = Not (ws.Columns("E:E").EntireColumn.Hidden) 'on bascule la colonne E entre masquée  visible
            ws.Protect Password:="1", DrawingObjects:=True, Contents:=True, Scenarios:=True 'on reprotège la feuille
    Next ws
End With
With Sheets("Inscriptions") 'dans la feuille inscriptions
    .Unprotect Password:="1" 'on déprotège
    .Range("J5") = IIf((.Range("J5") = "ColE Masquées"), "ColE Visibles", "ColE Masquées") 'on indique l'état des colonnes
    .Protect Password:="1", DrawingObjects:=True, Contents:=True, Scenarios:=True 'on reprotège
End With
End Sub
Application.ScreenUpdating = True

Je viens d'ajouter une ligne pour éviter le sapin de Noël.. surtout que tu as une centaine de feuilles...
 
Dernière édition:
Marche nickel c'est exactement ce qu'il me fallait
j'ai modifier pour revenir a la feuille inscriptions
enlever l’état des colonnes vu que je le vois dans inscriptions

Sub MasquerColE()
Application.ScreenUpdating = False 'pour éviter l'effet sapin de Noel
With ActiveWorkbook 'dans le classeur actif
For Each ws In .Sheets 'pour chaque feuille
ws.Unprotect Password:="1" 'on déprotege
ws.Columns("E:E").EntireColumn.Hidden = Not (ws.Columns("E:E").EntireColumn.Hidden) 'on bascule la colonne E entre masquée visible
ws.Protect Password:="1", DrawingObjects:=True, Contents:=True, Scenarios:=True 'on reprotège la feuille
Next ws
End With
With Sheets("Inscriptions") 'dans la feuille inscriptions
.Unprotect Password:="1" 'on déprotège
.Protect Password:="1", DrawingObjects:=True, Contents:=True, Scenarios:=True 'on reprotège
Application.ScreenUpdating = True
End With
Sheets("Inscriptions").Select
End Sub

Un grand MERCI a vous
 
Dernière édition:
Au fait;. on est d'accord que la protection par mot de passe ne sert strictement à rien, puisque n'importe qui ayant le fichier peut cliquer sur le bouton pour afficher ou cacher la colonne E SANS connaitre le mot de passe, vu qu'il est directement dans la code, et qu'à aucun moment, excel ne le demande à l'utilisateur...
 
oui
j'ai sécurisé les cellules dans les feuilles pour l'on ne puisse pas se tromper
Normalement le placement du numéro du gagnant se feras automatiquement au placement du G ou P vers le tour suivant
le fait de masquer la colonne m'évite de faire un dossier pour chaque style de concours
un grand merci a vous
 
- 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

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…