Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Harry13

XLDnaute Nouveau
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
 

Pièces jointes

  • Ligne vide cachées.xlsm
    20.5 KB · Affichages: 12

sylvanu

XLDnaute Barbatruc
Supporter XLD
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
 

Pièces jointes

  • Ligne vide cachées.xlsm
    19.6 KB · Affichages: 3

Harry13

XLDnaute Nouveau
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
 

Pièces jointes

  • Ligne vide cachées V2.xlsm
    21.6 KB · Affichages: 2

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…