XL 2019 Masquer lignes entièrement vide

[ALE37]

Bonjour le forum,

Je souhaiterai pouvoir masquer (et démasquer) toutes les lignes entièrement vides (zéro, formules ou pas) dans cette matrice Excel.
Dans l'exemple de la ligne 14 à 159. J'ai fouillé un peu partout dans le forum mais je n'ai pas trouvé mon bonheur.
Quelqu'un pourrait il me proposer une solution ?
D'avance merci pour votre aide.

 

[ALE37]

@ALE37

Lis d'abord mon post précédent.

Regarde la pièce jointe 1141455

autre version du fichier précédent, avec un seul
bouton pour masquer / démasquer les lignes.

---

code VBA (18 lignes) :

Option Explicit

Sub masqueligne()
  Dim plg As Range, dlg&, lg1&, i%: Application.ScreenUpdating = 0
  dlg = Cells(Rows.Count, 1).End(3).Row 'dernière ligne, selon colonne A
  For i = 11 To dlg 'de la ligne 11 à la dernière ligne
    If Cells(i, "AX").Value = 0 Then
      If plg Is Nothing Then
        Set plg = Rows(i): lg1 = i
      Else
        Set plg = Union(plg, Rows(i))
      End If
    End If
  Next i
  If Not plg Is Nothing Then _
    plg.EntireRow.Hidden = Not Rows(lg1).Hidden
End Sub

soan

Génial! Encore merci pour le temps consacré à ma demande.

 

[soan]

@ALE37

Bonjour Soan, extrêmement rapide en effet! C'est top. Merci!!!

Génial! Encore merci pour le temps consacré à ma demande.

merci pour ton retour !

soan

 

[soan]

Bonjour Lionel,

Bon WE à toutes et à tous

bon WE à toi aussi, ainsi qu'à ALE37 et tous ceux du forum.

---

Intéressant ton code

merci, je partage ton avis !

---

comment modifier ton code pour supprimer les lignes ?

1) dans le code VBA :

* la sub est maint'nant supprimerlignes()

* voici l'ancienne dernière instruction :

  If Not plg Is Nothing Then _
    plg.EntireRow.Hidden = Not Rows(lg1).Hidden

elle est devenue :

  If Not plg Is Nothing Then plg.Delete

2) sur la feuille "TEST" :

* j'ai modifié le texte du bouton en "Supprimer Lignes"
* affectation de la nouvelle sub supprimerlignes

---

code VBA (17 lignes) :

Option Explicit

Sub supprimerlignes()
  Dim plg As Range, dlg&, lg1&, i%: Application.ScreenUpdating = 0
  dlg = Cells(Rows.Count, 1).End(3).Row 'dernière ligne, selon colonne A
  For i = 11 To dlg 'de la ligne 11 à la dernière ligne
    If Cells(i, "AX").Value = 0 Then
      If plg Is Nothing Then
        Set plg = Rows(i): lg1 = i
      Else
        Set plg = Union(plg, Rows(i))
      End If
    End If
  Next i
  If Not plg Is Nothing Then plg.Delete
End Sub

soan