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

Harry13 · 10 Mai 2021

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 · 10 Mai 2021

Oups.
Peut être avec :

VB:

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

sylvanu · 10 Mai 2021

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

VB:

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 · 10 Mai 2021

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 · 10 Mai 2021

Oups.
Peut être avec :

VB:

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

Harry13 · 10 Mai 2021

Hello

C'est super ^^

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

FTR

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

Harry13

XLDnaute Nouveau

Pièces jointes

sylvanu

sylvanu

XLDnaute Barbatruc

Pièces jointes

Harry13

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

Harry13

XLDnaute Nouveau

Discussions similaires