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.

 

[Deadpool_CC]

@soan
en sortant de la fonction du post #14 je vois que tu n'as pas remis le ScreenUpdating à vrai (1)
Il se repositionne automatiquement quand tu quitte la fonction ou tu l'a défini ?

 

[soan]

@Deadpool

* c'est pas une function, c'est une sub ! et il s'agit de la sub masqueligne()

* effectivement, j'avais mis Application.ScreenUpdating = 0 (en 1ère ligne)
c'est idem que : Application.ScreenUpdating = False

* et quand ça quitte la sub : oui, ça se repositionne automatiquement à True
➯ inutile de mettre : Application.ScreenUpdating = -1

* je pense que c'est fait implicitement par l'instruction End Sub ; mais pas seulement : si y'a une sortie de la sub par Exit Sub ça doit sûrement faire pareil, que ce Exit Sub soit seul ou dans : If .. Then Exit Sub​

soan

 

[Deadpool_CC]

@Deadpool

* c'est pas une function, c'est une sub ! et il s'agit de la sub masqueligne()

* effectivement, j'avais mis Application.ScreenUpdating = 0 (en 1ère ligne)
c'est idem que : Application.ScreenUpdating = False

* et quand ça quitte la sub : oui, ça se repositionne automatiquement à True
➯ inutile de mettre : Application.ScreenUpdating = -1

* je pense que c'est fait implicitement par l'instruction End Sub ; mais pas seulement : si y'a une sortie de la sub par Exit Sub ça doit sûrement faire pareil, que ce Exit Sub soit seul ou dans : If .. Then Exit Sub​

soan

Merci pour l'info ... car vu que c'est un paramètre de "Application" j'avais un doute sur le fait qu'il revienne tout seul à sa valeur True.

 

[soan]

@Deadpool

si tu veux, je peux te faire ce parallèle :

dans un programme en BASIC, quand il y a l'instruction END, tu te dis : END = FIN, donc ça termine le programme ; c'est exact, n'est-ce pas ? mais en réalité, ça ne fait pas que ça ! car s'il y avait eu des fichiers ouverts, END les ferme avant de quitter le programme (pour retourner au DOS) ; et ça fait aussi plusieurs autres choses, comme par exemple libérer la mémoire (la RAM).

en VBA, le .ScreenUpdating est dépendant de Application, oui ; donc dans le même style qu'au paragraphe ci-dessus, le End Sub doit exécuter implicitement une instruction Application.ScreenUpdating = True (la valeur numérique de True est -1).​

soan

 

[ALE37]

Merci Soan et Deadpool pour ces compléments d’information mais l’exécution reste toutefois lente. Peut on l’améliorer ? Le nombre important d´onglets dans mon classeur à t il une incidence ?

 

[soan]

hélas, je n'ai pas trouvé d'autre solution que celle que j'ai déjà proposée.

pour le nombre d'onglets, je ne sais pas ; peut-être plutôt les très nombreuses lignes ?

soan

 

[ALE37]

hélas, je n'ai pas trouvé d'autre solution que celle déjà proposée.

(pour le nombre d'onglets, je ne sais pas ; peut-être plutôt les nombreuses lignes ?)

soan

Pas de soucis ! C’est super sympa d’avoir pris le temps de m’aider. Aurais-tu la possibilité de me donner un code qui permettrait de masquer et démasquer ? d’avance merci !

 

[soan]

Aurais-tu la possibilité de me donner un code qui permettrait de masquer et démasquer ?

??? masquer / démasquer quoi ? des feuilles ? des lignes ?

dans les 2 cas : lesquelles ?

 

[ALE37]

??? masquer / démasquer quoi ? des feuilles ? des lignes ?

dans les 2 cas : lesquelles ?

Oui que le même bouton permette à la fois de masquer et démasquer entièrement les lignes du fichier. Aujourd’hui j’ai 2 boutons pour le faire.

 

[soan]

ah, je vais voir si j'peux faire quelque chose ; mais
comme je fatigue, j'essayerai de faire ça demain.

soan

 

[ALE37]

ah, je vais voir si j'peux faire quelque chose ; mais
comme je fatigue, j'essayerai de faire ça demain.

soan

Aucune urgence ! Merci dans Tous les cas

 

[soan]

Bonjour ALE37,

j'ai utilisé une autre méthode pour masquer les lignes.
ça devrait être plus rapide ; à toi de tester.

---

code VBA (14 lignes) :

Option Explicit

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

soan

 

[soan]

@ALE37

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

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

 

[Usine à gaz]

Bonjour Soan, le Forum,
Bon WE à toutes et à tous

@ soan
Intéressant ton code
J'ai 1 question, comment modifier ton code :
- pour supprimer les lignes ?
Merci Soan,
lionel

 

[ALE37]

Bonjour ALE37,

Regarde la pièce jointe 1141452

j'ai utilisé une autre méthode pour masquer les lignes.
ça devrait être plus rapide ; à toi de tester.

---

code VBA (14 lignes) :

Option Explicit

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

soan

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