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