Bonjour le forum,
Je masque et démasque avec un bouton.
Je voudrais démasquer à l'ouverture et masquer à l'enregistrement.
Quelles instructions dois-je ajouter à la macro et suppression du bouton.
Merci pour vos éventuelles réponses.
Bien cordialement.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Sub AfficherMasquerLignesSuppRegularisation() Dim Cel As Range Application.ScreenUpdating = False ActiveSheet.Unprotect For Each Cel In Range("E11:E16, E28:E33, E45:E50, E62:E67") 'Avec Indexation sur Colonne E et domaine de cellules visible si différent de blanc If Cel = "" Then 'Avec Indexation sur Colonne E et domaine de cellules visible si différent de blanc Cel.EntireRow.Hidden = Not Cel.EntireRow.Hidden End If Next Cel Range("A1").Select ActiveSheet.Protect DrawingObjects:=True, Contents:=True, _ Scenarios:=True End Sub
Partager