besoin d'aide sur masque de lignes

[nougat0_7]

bonjour
Y a t'il une macro plus rapide que celle ci
pour masquer les lignes de la colonne A si certaines des lignes sont vides

Sub Masquage_Ligne()
Application.ScreenUpdating = False
For I = 1 To Range("A65536").End(xlUp).Row
If Cells(I, 1) = "" Then
Rows(I & ":" & I).Select
Selection.EntireRow.Hidden = True
End If
Next I
Application.ScreenUpdating = True
End Sub
merci

 

[Staple1600]

Re : besoin d'aide sur masque de lignes

Bonjour



Voici un code glanné sur le net et quii en plus traite lea colonne A
(Ca tombe bien 😉 )

Sub hideblankrowsincol()
'BY: Ivan F Moala
Dim myRg As Range
'Change the [A1], [A65536] to your range
Set myRg = Range([A1].End(xlDown), [A65536].End(xlUp))
On Error Resume Next
Set myRg = myRg.SpecialCells(4)
If Err = 0 Then
myRg.EntireRow.Hidden = True
End If
Set myRg = Nothing
End Sub

Tu peux y rajouter les Application.ScreenUpdating = True/False

 

[Staple1600]

Re : besoin d'aide sur masque de lignes

Re


Et une autre, (qui tiens sur une ligne)

Sub MasqueCELLULE_VIDES()
Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End Sub

et sa version racccourci

Sub MasqueCELLULE_VIDES_II()
Columns("A:A").SpecialCells(4).EntireRow.Hidden = True
End Sub

PS: Ces deux macros, ce serait mieux que la colonne A ne soit entièrement pas vide avant de les tester

Sinon tu serais obligé d'utiliser celle-la

Sub DEMASQUE()
Cells.Rows.Hidden=False
End sub

 

[ZZR09]

Re : besoin d'aide sur masque de lignes

Bonjour Nougat0_7, le forum


Pour supprimer des lignes, j'aurai fait comme ce que tu as présenté. Pour faire plus rapide, je te propose une solution pour masquer les lignes vides (elles ne sont pas supprimées):
en filtrant les lignes non vides tout simplement.

Tu as donc une lecture, sans lignes vides.
Si tu veux utiliser les données, tu peux alors faire un copier/coller vers une autre feuille; les lignes masquées ne seront pas copiées.
Tu peux peut-être essayer de passer directement par les filtres élaborés (mais ça, je n'ai pas tenté).
voici mon code. Le filtre est appliqué à toute la feuille sinon, le filtre s'arrête à la première ligne vide.

Sub testFiltre()
    
    Cells.Select
    Selection.AutoFilter Field:=3, Criteria1:="<>"
    Range("C2").Select
    
End Sub

voilà une proposition 😉

Bonjour Staple1600 ... j'ai été trop lent et sans rééditer le post!

 

[Staple1600]

Re : besoin d'aide sur masque de lignes

Bonjour ZRR09


Tu peux simplifier (pour éviter les Select, sauf le dernier)

Sub testFiltre()
Cells.AutoFilter 3, "<>":[C2].Select
End Sub

 

[ZZR09]

Re : besoin d'aide sur masque de lignes

Bonjour Staple1600

merci pour ta précision ... je pense ne plus être un débutant mais à chaque fois que je viens sur ce site, j'apprends de nouvelles choses...

ça devient difficile pour moi : je me contente d'adapter les macros enregistrées ... et les conseils donnés sur ce ExcelDownloads!

pourquoi ce [C2]? à quoi correspondent les crochets en VB 😕 😕

 

[Staple1600]

Re : besoin d'aide sur masque de lignes

Re



Range("A1").Value peut s'écrire [A1]

et les crochets correspondent à la méthode Evaluate

 

[ZZR09]

Re : besoin d'aide sur masque de lignes

Re
OK, merci!

 

[nougat0_7]

Re : besoin d'aide sur masque de lignes

aucune des réponses (sympa) que vous m'avez fournies ne convient ou ne fonctionnent pas (la première pas du tout)
Ce que je recherche c'est mon style de code mais qui fonctionne plus vite
Ne doit apparaitre que mes lignes ou sont marquées mes données en colonne A
(mon temps de tri prend 10 à 15 secondes c'est trop long)
merci

 

[Staple1600]

Re : besoin d'aide sur masque de lignes

Re



La première macro fonctionne trés bine (sur Excel 2000)

< 2 secondes avec 500 lignes traitées (dont une centaine vides)

Tu as quelle version d'Excel?

 

[Staple1600]

Re : besoin d'aide sur masque de lignes

RE


Tu peux aussi essayer cette modification dans ta macro d'origine

Sub Masquage_Ligne()
Dim I as Long
Application.ScreenUpdating = False
For I = 1 To Range("A65536").End(xlUp).Row
If Cells(I, 1) = "" Then Rows(I & ":" & I).EntireRow.Hidden = True
Next I
Application.ScreenUpdating = True
End Sub

Sur mon PC , idem, c'est trés rapide avec 500 lignes

 

[ZZR09]

Re : besoin d'aide sur masque de lignes

re,

aucune des réponses (sympa) que vous m'avez fournies ne convient ou ne fonctionnent pas (la première pas du tout)
merci

je viens de tester sur xl2003 ça fonctionne nickel mais pas sur xl2007 ... on va le virer pour de bon celui-là!!!

Sub Masquage_Ligne()
Dim I as Long
Application.ScreenUpdating = False
For I = 1 To Range("A65536").End(xlUp).Row
If Cells(I, 1) = "" Then Rows(I & ":" & I).EntireRow.Hidden = True
Next I
Application.ScreenUpdating = True

je pense que cela sera quasiment aussi long : ça fonctionne ligne par ligne.

pourquoi pas la solution de Staple1600?

Sub MasqueCELLULE_VIDES()
Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End Sub

elle masque commme ton code: entirerow.hidden 😕

 

[MJ13]

Re : besoin d'aide sur masque de lignes

Bonjour à tous

Une solution sur XL2007