Discussion :

[cafeine]

Hello,

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

Code :

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

1
2
3
4
5
6
7
application.ScreenUpdating =False 
application.Calculation=xlCalculationManual 
 
' ton code
 
application.Calculation=xlCalculationAutomatic 
application.ScreenUpdating =true

[Abed_H]

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 :

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

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

Abed_H

[marc56]

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 :

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

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.

[Abed_H]

Bonsoir

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

[fring]

Juste pour corriger l'emplacement dans ton code

Code :

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

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

[marc56]

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.