Excel 2010 32 bits sous Windows 10 64 bits

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

Code:

---

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 ???

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

J'ai modifié la macro comme suit :

Code:

---

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

?????????

Bonjour,

Essaie avec

Code:

---

Application.Calculation = xlCalculationManual

---

en début de procédure et

Code:

---

Application.Calculation = xlCalculationAutomatic

---

à la fin.

Bonjour,

Code:

---

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:

---

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

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 !!!!

Code:

---

1 2 3

Sub Compress() Range("C3").Resize(Cells(Rows.Count, 1).End(xlUp).Row - Range("C3").Row + 1, 1).SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True End Sub

---

instantané sur 500 lignes avec 283cellules vides en C;)