masquer des lignes dans un espace defini

Re : masquer des lignes dans un espace defini

Bonjour,

Le problème est que tu fais la somme sur la ligne entière, tu dois donc masquer les lignes dont la somme est égale à 4 et non pas égale à 0.

If Application.CountA(L.EntireRow) = 4 Then Rows(L.Row).RowHeight = 0

Note : ajoute Application.ScreenUpdating = False au début et = True à la fin de ta macro pour éviter les scintillements d'écran et que ça soit plus rapide...

A+

Re : masquer des lignes dans un espace defini

Bonsoir lagodille,

Le titre de ton message évoque le masquage de lignes, puis tu parles de supprimer des lignes ... il faudra sans doute finir par faire un choix 😛
Tu parles donc de supprimer des lignes vides, dans une plage sélectionnée; ta macro masquerait (retour à la question 1) les lignes qui ne contiendraient aucune valeur (dans toute la ligne et non dans la plage que tu as sélectionnée) Comme, dans ton fichier, aucune ligne n'est entièrement vide ... la macro ne masque rien.
Par ailleurs, quelle serait l'intérêt de parcourir (horizontalement) toutes les cellules de chaque ligne de ta sélection? Dès lors qu'une plage serait détectée comme vide, on pourrait passe rà la ligne suivante, non?

Si tu nous expliquais, le plus clairement possible ce que tu veux faire? Serait-ce la même chose qu'appliquer un filtre automatique qui ne laisserait affichées que les lignes, pour autant qu'elles contiennent une valeur au moins?

Edit: Bonsoir Grand Chaman Excel

Re : masquer des lignes dans un espace defini

bonsoir

- Serait-ce la même chose qu'appliquer un filtre automatique qui ne laisserait affichées que les lignes, pour autant qu'elles contiennent une valeur au moins? -

eh bien oui c'est cela même, ce serait exactement ce que je souhaite .

Re : masquer des lignes dans un espace defini

Merci au grand chaman excel pour sa réponse pertinente et au combien juste
et bonne soirée🙄 !!!!

Re : masquer des lignes dans un espace defini

Bonsoir,

Peut être une solution alternative

Code : (Fonctionne)

Sub Masque_lig_Vides2()
Set Aselectionner = Application.InputBox _
(prompt:="selectionner la plage de cellule ", _
Title:=" Plage de cellules à sélectioner", Type:=8)

' Adresse pour la boucle for each avec offset
Zone = Aselectionner.Cells(1).Address(0, 0) & ":" & Left(Aselectionner.Cells(1).Address(0, 0), 1) & Aselectionner(Aselectionner.Count).Row

For Each L In Range(Zone)
Compteur = Compteur + 1
If Application.CountA(Cells(5 + Compteur, 5).Resize(1, 7)) = Empty Then
Rows(5 + Compteur).Hidden = True
End If
Next L
End Sub

Laurent