macro tres longue a s'executer

[evelynetfrancois]

bonjour a tous et toutes
voila j'ai trouve une macro de MICHEL ( ci dessous )que j'ai sensiblement adaptee à mon probleme

lorsque j'ouvre EXCEL et que je lance cette macro , tout va tres bien
mais si je la lance une seconde fois , elle fonctionne bien ,mais elle est tres longue à s"executer !!!
auriez vous une soluce?

merci d'avance et bonne journée

E et F

Sub Masquer()
Dim Cell As Range
Application.ScreenUpdating = False
For Each Cell In Range("b1:b1000")
If Cell = "" Then Rows(Cell.Row).Hidden = True
If Cell = 0 And Cell.HasFormula Then Rows(Cell.Row).Hidden = True
Next Cell
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.Rows.Hidden = False
End Sub

 

[Bernard]

Bonjour E et F

Une petite simplification de la macro pour accélérer le mouvement :

Sub Masquer()
Dim Cell As Range
Application.ScreenUpdating = False
For Each Cell In Range([b1], [b10000].End(xlUp))
If Cell = "" Or Cell = 0 Then Cell.EntireRow.Hidden = True
Next Cell
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.Rows.Hidden = False
Application.ScreenUpdating = True
End Sub

Cordialement

Bernard

 

[evelynetfrancois]

Je te remercies beaucoup pour l'intérêt que tu as porté à ma requête
Cependant il s'emblerait que ce soit plus l'ordi lui même qui pose prob
car sur mon ordi (chez moi ) je ne rencontre pas de problème majeur
cela dit tous les essais s'imposent !!!je prends notesss
un grand merci et bonne soirée
E et F

 

[@+Thierry]

Bonsoir Evelyne et François, Bernard le Forum

Je passe juste par rapport à cette ligne de Bernard :

For Each Cell In Range([b1], [b10000].End(xlUp))

Que j'écrirais :

For Each Cell In Range("B1:B" & Range("B10000").End(xlUp).Row)

En effet je suis comme Cheap Pearson, contre l'usage des Crochets mis à part lors de l'usage de "Evaluate", voir aussi ce fil avec Yeahou Lien supprimé

Bonne Soirée
@+Thierry