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