masquer,imprimer reafficher Résolu/Fermé

Question

Bonjour
j'ai une feuille dont je veux imprimer les lignes de 3 a 72
et masquer les lignes si dans colonne C la case est vide 
et après le PrintPreview et imprimer ré afficher les lignes masqués
j'ai fait la macro qui fonctionne mais qui est trop longue a l exécution 
je vous mets le fichier joint
https://www.cjoint.com/?BIbtfICtVLx 
si vous pouvez me la corriger pour une exécution plus rapide et me dire ou est l'erreur
merci
a bientot

Patrice33740 · Answer

Bonjour,

Ton code est correct , tu peux l'accélérer avec :
Sub imprim()
'
' imprim Macro
Dim i%

    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
     
    For i = 5 To 72
        Rows(i).Hidden = Range("C" & i) = 0
    Next

    ActiveSheet.PageSetup.PrintArea = "$C$3:$AC$72"
    ActiveSheet.PrintPreview
    Rows("5:72").Select
    Selection.EntireRow.Hidden = False
    Range("A1").Select
    
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True

End Sub

Masquer,imprimer reafficher

1 réponse

Discussions similaires

Newsletters