Discussion :

[Tomeloale]

Bonjour à tous,
Le code ci-dessous sert à présenter, en prévisualisation, ma feuille de travail mais auparavant il masque les lignes inutiles à l'aide d'une instruction "For".
La première fois que je l'active elle fonctionne normalement mais si je l'active une deuxième fois elle est vraiment lente.
J'ai fais le test d'enlever l'instruction PrintPreview et le code s'est déroulé rapidement sans aucune lenteur.
Merci à l'avance!

Marc

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
18
19
 
Public Sub ImpressionPageActuelleTest()
 
    Application.ScreenUpdating = False
    ActiveSheet.Unprotect
    Application.Calculation = xlCalculationManual
 
    i = 1
        For i = 1 To 533
        If Range("A" & i).Value = 0 Then
            Range("A" & i).EntireRow.Hidden = True
        End If
    Next i
 
    ActiveSheet.PrintPreview
 
    Range("D13").Select
 
End Sub

[clementmarcotte]

Bonjour,

Vite fait comme cela, cela me fait penser à une mémoire vive encombrée. Regarde la mémoire vive disponible avant, pendant et après.

[Tomeloale]

Bonjour,
J’ai fais le test au niveau de la mémoire vive et elle passe de 23mo à 28mo seulement donc c’est plus comme si l’instruction For fonctionnait au ralenti après une fois.
Merci de votre aide.

[eriiic]

Bonjour,

Soit tu changes ta façon de masquer les lignes (filtrer), soit tu remets en affichage normal au début, après le .ScreenUpdating=false.
eric