Microsoft 365 Cacher les dernières lignes d'un block de plage

[Harry13]

Bonjour à tout le monde

J'espère que vous êtes en forme.

Je recherche une aide sur VBA, je pense que cela ne doit pas être difficile pour les pros du forum.
J'ai réalisé une macro pour cacher des lignes mais il me cache toutes les lignes vides dans des blocks de plage défini et aussi des lignes non vide
Je voudrais avec votre grande aide précieuse, de pouvoir cacher que les dernières lignes vides d'une plage. C'est à dire détecter le dernier résultat existant dans la plage définie et cacher les lignes vides après le dernier résultat.

Je précise que je suis pas très bon sur les macros, je bidouille les choses par ci par là mais incapable à créer une macro.
J'ai mis un fichier avec le résultat souhaité dans le 2ème onglet.

Je vous remercie pour votre aide

Harry

 

[sylvanu]

Bonjour Harry,
J'ai supposé au vu de votre code que les blocs faisaient toujours 20 lignes.
Un essai en PJ avec :

Sub Masque()
    Application.ScreenUpdating = False
    With Worksheets("Base")
        .Cells.EntireRow.Hidden = False
        DL = .[A65500].End(xlUp).Row + 20 ' 20 pour être sur de finir le dernier bloc
        For L = 4 To DL
            If .Cells(L, "A") = "" Then .Cells(L, "A").EntireRow.Hidden = True
        Next L
    End With
End Sub
Sub Démasque()
    Application.ScreenUpdating = False
    Worksheets("Base").Cells.EntireRow.Hidden = False
End Sub

 

[Harry13]

Bonjour Sylvanu

Je vous remercie pour votre rapidité.

Oui les blocs font toujours 20 lignes.
Mais votre macro me cache toutes les cellules vides quand je clique sur masquer. N'est-il pas possible de ne cacher que les lignes après la dernière ligne non vide de chaque block ?

Sur l'exemple du fichier :

1er block : Ligne 4 à 23
2ème block : Ligne 24 à 43

1er block cacher les lignes 14 à 23
2ème block cacher les lignes 34 à 43

J'ai remis à jour le fichier

Merci pour votre aide

Harry

 

[sylvanu]

Oups. 🙄
Peut être avec :

If .Cells(L, "A") = "" And .Cells(L - 1, "A") = "" Then .Cells(L, "A").EntireRow.Hidden = True

 

[Harry13]

Hello

C'est super ^^

C'est bien ce que je recherche.
Merci pour ton aide rapide et précieuse

FTR