Autres RÉSOLU ma macro ne fonctionne pas

[un internaute]

Bonsoir le forum
Je fait un double clic cellule A7 pour afficher le domaine des lignes A16:A46
A l'enregistrement avec la macro suivante je voudrais les faire masquer

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim Ws As Worksheet
    Dim FeuilleActive As String

    Application.ScreenUpdating = False
    Application.EnableEvents = False
        FeuilleActive = ActiveSheet.Name
        On Error Resume Next
            For Each Ws In Worksheets
                With Ws
        Rows("16:47").Hidden = Not Rows("16:47").Hidden
                End With
            Next
        On Error GoTo 0
    Application.EnableEvents = True
    Application.ScreenUpdating = True
   Range("A1").Select
End Sub

Merci pour vos éventuels retours

Ecel 2003
J'ai pas mal de cellules fusionnées

 

[vgendron]

bonjour

il manque un point devant les rows("16:47")

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim Ws As Worksheet
    Dim FeuilleActive As String

    Application.ScreenUpdating = False
    Application.EnableEvents = False
        FeuilleActive = ActiveSheet.Name
        On Error Resume Next
            For Each Ws In Worksheets
                With Ws
                    .Rows("16:47").Hidden = Not .Rows("16:47").Hidden
                End With
            Next
        On Error GoTo 0
    Application.EnableEvents = True
    Application.ScreenUpdating = True
   Range("A1").Select
End Sub

 

[vgendron]

et ton code affiche OU masque selon l'état des lignes au moment de l'enregistrement

si elles étaient masquées ==> le code les affiche
si elles étaient affichées==> le code les masque

 

[un internaute]

Ça fonctionne
Bonne fin de soirée à toutes et tous

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim i As Long
Application.ScreenUpdating = False
Application.EnableEvents = False
On Error Resume Next
For i = 1 To Sheets.Count
Sheets(i).Rows("16:47").Hidden = True
Next
On Error GoTo 0
Application.EnableEvents = True
Application.ScreenUpdating = True
Range("A1").Select
End Sub