Afficher Masquer Ligne 5 tout le classeur de Janvier à Décembre

Bonjour le forum et tous mes vœux

Dans la macro ci-dessous je voudrais faire afficher la ligne 5 dans tous les mois du classeur pour éviter le Double Clic dans chaque mois

Merci à vous

Sub AfficherMasquerKilométrageMoisPrecedent()
    With ActiveSheet
'        .Unprotect
        With .Rows(5)                          'Ligne N°5
            .Hidden = Not .Hidden
        End With
        .Range("A1").Select
'        .Protect
    End With
End Sub

Bonjour,

A part les feuilles des mois, y a t-il d'autres feuilles et comment se nomment -elles?

En attendant, essayez ceci avec une feuille autre que les mois:

Sub AfficherMasquerKilométrageMoisPrecedent()
    For i = 1 To 12
        With Sheets(i).Name
            If Sheets(i).Name <> "Autre_feuille_que_le_mois" Then
        '        .Unprotect
                .Rows(5).Hidden = False
                .Range("A1").Select
        '        .Protect
            End If
        End With
    Next i
End Sub

Cdlt

Bonjour Arturo83

Ah! oui

Toutes mes excuses

La feuille Menu

Car le code que tu a fait ne fonctionne pas

Merci

Autre_feuille_que_le_mois

Menu

Oui et ça bloque sur la ligne ci-dessous

.Rows(5).Hidden = False

Sub AfficherMasquerKilométrageMoisPrecedent()
    For I = 1 To 12
        With Sheets(I).Name
            If Sheets(I).Name <> "Menu" Then
        '        .Unprotect
                .Rows(5).Hidden = False
                .Range("A1").Select
        '        .Protect
            End If
        End With
    Next I
End Sub

Re ARTURO83

J'ai du encore mal m'expliquer

La cellule par double clic est la cellule A3 mais c'est bien la ligne 5

Tu as déjà eu le fichier ailleurs!

Je vais essayer d'en mettre un

Oui, je reconnais ce fichier (vu ailleurs) , Voilà la correction

Sub AfficherMasquerKilométrageMoisPrecedent()
    For I = 1 To Sheets.count
        If Sheets(I).Name <> "MENU" Then
            With Sheets(I)
            '        .Unprotect
                    .Rows(5).Hidden = False
                    .Range("A1").Select
            '        .Protect
            End With
        End If
    Next I
End Sub

Ça bloque encore sur la ligne

.Range("A1").Select

ça je ne l'ai pas vérifié, mais pourquoi vouloir sélectionner A1?, cette ligne ne sert à rien.

Ok mais ça bloque quand même

Punaise c'est quoi ce bazar

Ah! oui ça démasque bien mais ça ne remasque pas je crois donc c'est ailleurs que ça se passe

Pas compris, ça démasque, ok, mais pourquoi remasquer dans la foulée?

Que faut-il faire exactement?

1er double clic ça démasque

2ème double clic ça remasque

Double clic Cellule A3

Alors ceci:

Sub AfficherMasquerKilométrageMoisPrecedent()
    For I = 1 To Sheets.count
        If Sheets(I).Name <> "MENU" Then
            With Sheets(I)
                If .Rows(5).Hidden = True Then
                    .Rows(5).Hidden = False
                Else
                    .Rows(5).Hidden = True
                End If
            End With
        End If
    Next I
End Sub

Ah! SUPER

Bien expliqué ça va mieux!!!

Avec toutes mes excuses

Bonne fin de journée en espérant que tu n'auras pas des "zigs" comme moi!!!

Un GRAND merci

Cordialement