Masquer,imprimer reafficher
Résolu
surplus
Messages postés
673
Date d'inscription
Statut
Membre
Dernière intervention
-
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention -
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention -
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
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
1 réponse
-
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
