Macro masquer lignes sous condition dans une plage

[Atiom]

Bonsoir le forum,

Dans le post ci-dessous Didier_mDF propose une macro pour masquer les lignes sous condition.

Ça fait un moment que j’essaye de la modifier pour mes besoins, mais rien à faire ! Il y toujours quelque chose que provoque des erreurs, alors je viens vous demander de l’aide ?

http://www.excel-downloads.com/forum...condition.html

Je souhaiterais faire la chose suivante :

J’ai deux plages, Plage A - ( B25 :BA44) et Plage B - ( B59 :BA78) 20 lignes dans chaque plage .


Par biais d’une macro la plage A se remplie d’une façon aléatoire, mais toujours de haute en bas.

Je souhaiterait masquer les lignes vides de la plage A, mais au même temps celles de la plage B .

Par exemple :
S’il reste trois lignes vides dans la plage A alors masquer les trois lignes vides de cette plage mais aussi les trois dernières lignes de la plage B.

Bien sur il va falloir une deuxième macro pour pouvoir afficher chaque fois, toutes les lignes avant d’exécuter ce masque.

Merci d'vance et bonne soirée.

[myDearFriend!]

Bonsoir Atiom,

Pas sûr d'avoir tout compris... Mais tu peux éventuellement essayer ceci :

DANS UN MODULE DE CODE STANDARD

Sub Traitement()
Dim Plage As Range, Lign As Range
    Set Plage = Range("B25:BA44")
    For Each Lign In Plage.Rows
        If Application.CountA(Lign) = 0 Then
            Lign.EntireRow.Hidden = True
            Lign.Offset(34, 0).EntireRow.Hidden = True
        End If
    Next Lign
End Sub

Sub RAZ()
    Range("B25:BA44", "B59:BA78").EntireRow.Hidden = False
End Sub

Cordialement,

[Atiom]

Salut, myDearFriend

Tu as parfaictement compris.

Inpeccable.
Merci et bonne soirée.