Discussion :

[Batybaty]

Bonjour,
voila une macro toute bête qui consiste à cacher les lignes dont une cellule particulière est vide :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Compress()
    Dim Ligne As Long
    Dim DernLigne As Long
    DernLigne = WorksheetFunction.CountA(Columns(1)) - 1
    For Ligne = 2 To DernLigne
        If Range("C" & Ligne).Value = "" Then
            Rows(Ligne).Hidden = True
        End If
        Ligne = Ligne + 1
    Next
End Sub

Cette macro fonctionne, mais met un temps infiniment long à s'exécuter.

Y-a-t-il une explication ???

[kiki29]

Salut à lire et assimiler : Dernière ligne et la dernière colonne renseignées d'une feuille

Déjà, sans chercher qqch de plus rapide ou efficace, dans ce genre d'opération on commence par la dernière ligne en remontant jusqu'à ici la 2eme ligne avec un step -1

P.-S. : Balise ton code

[Batybaty]

J'ai modifié la macro comme suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Compress()
    Dim Ligne As Long
    Dim DernLigne As Long
    DernLigne = WorksheetFunction.CountA(Columns(1))
    For Ligne = DernLigne To 2 Step -1
        If IsEmpty(Range("C" & Ligne)) Then Rows(Ligne).EntireRow.Hidden = True
    Next
End Sub

En exécution pas à pas, quand on arrive sur une ligne à cacher, ça prend un temps très long avant d'exécuter le EntireRow.Hidden = True

?????????

[AlainTech]

Bonjour,

Essaie avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Calculation = xlCalculationManual

en début de procédure et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Calculation = xlCalculationAutomatic

à la fin.

[eriiic]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.ScreenUpdating = False

devrait accélérer ton code.

Si tes cellules sont réellement vides (pas de formule ="") tu peux faire comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Compress()
    Dim DernLigne As Long, pl As Range
    DernLigne = Cells(Rows.Count, 1).End(xlUp).Row
    Set pl = [C1].Resize(DernLigne).SpecialCells(xlCellTypeBlanks)
    If Not pl Is Nothing Then pl.Rows.Hidden = True
End Sub

Ca évite la boucle, tout est fait d'un coup.
eric

[Batybaty]

Bonjour,
merci pour vos contributions, j'ai implémenté la dernière proposition, ça marche, mais pour traiter 994 lignes, il faut plus de 2 minutes !!!!