macro lentes apres impression

[peyro]

Bonjour,
j'ai un léger probleme qui me laisse tres perplexe.

J'ai créer un tableau sous excel qui récaputile mes travaux en cours. Selon s'ils sont fini ou en cours je cache ou affiche les lignes selon cette macro

Function cacher()
Range("B5:B" & Cells(1, 1).value).Select
For Each cell In Selection
If Cells(cell.Row, 5).value = "Done" Then
cell.EntireRow.Hidden = True
End If
Next
Range("A1").Select
End Function


J'utilise également une macro pour imprimer mon tableau

Function imprimer()

If [B65536].End(xlUp).Row > 65 Then
Orient = xlPortrait
Else
Orient = xlLandscape
End If


With ActiveSheet.PageSetup
.CenterHorizontally = True
.CenterVertically = True
.Orientation = Orient
.BlackAndWhite = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Range("B4:G" & Cells(1, 1).value).Select
Selection.PrintOut
Range("A2").Select
End Function


Les deux macros fonctionnent parfaitement. Mais apres avoir lancé la macro d'impression, la premiere macro est a peu pres 5 fois plus lentes... il suffit de fermer et de re-ouvrir le fichier pour que la macro revienne a sa vitesse normale. Mais a nouveau a la moindre impression (uniquement si lancée par la macro) l'autre sera lente.. 😕
Je suis paumé là...

je travaille sous Excel 07 - en anglais - Windows XP Professionel - Intel Pentium 4 CPU 2.80GHz (2 CPUs)- 1016MB RAM.

SI quelqu'un a une explication
merci

 

[Staple1600]

Re : macro lentes apres impression

Bonjour


Tes macros fonctionnent telles quelles?

Je verrai plutot

Sub cacher()

et

Sub imprimer()

Que Function non ?

 

[peyro]

Re : macro lentes apres impression

Private Sub Button_Print_Click()
imprimer
End Sub


Private Sub unhide_all_Click()
afficher
End Sub


MAIS! : découverte de derniere minute - le probleme se regle en ajoutant
ActiveSheet.DisplayAutomaticPageBreaks = False

a la fin de la macro print().

Je ne sais pas trop pourquoi mais bon...