Masquer des lignes sur condition

Hello,

pour accélerer ton code, tu pourrais / devrais essayer de désactiver le rafraichissement d'écran et le recalcul automatique.

Code:

---

1 2 3 4 5 6 7

application.ScreenUpdating =False application.Calculation=xlCalculationManual   ' ton code   application.Calculation=xlCalculationAutomatic application.ScreenUpdating =true

---

Bonjour
pour masquer les lignes qui repondant à la condition, essaie ce code peut être qu'il te convient.je l'ai testé sur 13581 lignes (Excel2007) j'ai obtenu 0,390625 secondes.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub Masquer() Dim cell As Range, CellHide As Range Dim i As Integer i = 11 Do Until IsEmpty(Cells(i, 1)) If Cells(i, 3) = "Archivé" Then If CellHide Is Nothing Then Set CellHide = Cells(i, 1) Else: Set CellHide = Union(CellHide, Cells(i, 1)) End If End If i = i + 1 Loop Application.ScreenUpdating = False If Not CellHide Is Nothing Then _ CellHide.EntireRow.Hidden = True End Sub

---

:king:
Abed_H

Re-bonjour,
J'ai essayé le code de Abed_H, il ne se passe rien.
Caféine, ton idée me semble bonne, c'est peut-être le rafraîchissement de l'écran et le calcul automatique qui ralentissent le traitement, mais quand j'intègre ton code, il ne se passe rien non plus.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub Masquer() Dim i As Long Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For i = 12 To Rows.Count If Range("A" & i).Text = "" Then Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True Exit Sub If Range("C" & i).Value = "Archivé" Then Rows(i).Hidden = True End If Next i End Sub

---

Je l'ai peut-être intégré au mauvais endroit.

Bonsoir

Citation:

---

J'ai essayé le code de Abed_H, il ne se passe rien.
Je l'ai peut-être intégré au mauvais endroit

---

Oui je confirme, voir exemple ci-joint
Abed_H :king:

Juste pour corriger l'emplacement dans ton code

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Masquer() Dim i As Long Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For i = 12 To Rows.Count If Range("A" & i).Text = "" Then Exit Sub If Range("C" & i).Value = "Archivé" Then Rows(i).Hidden = True Next i Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub

---

Avec l'idée de Caféine et le code corrigé par Fring, le temps de masquage est tombé à 4 secondes.
Le dernier code de Abed_H met seulement 1 seconde (à la louche). J'opte donc pour ce dernier. Merci à tous.
Pour parfaire mon appli, j'ai un autre petit problème, mais je vais le mettre sur un nouveau post.