macro ralentie

[olivier1870]

Bonjour,

j observe le phenomene suivant:

j ai une macro parcourant une feuille excel ligne par ligne. Cette macro est en principe tres rapide. Sitot que je selectionne la zone d impression, la macro devient tres lente. J interprete cela comme le fait qu a chaque modification de ligne p. ex., la zone d impression est recalculee. Ce que je ne comprend en revanche pas est que le probleme persiste une fois la zone d impression deselectionnee. Quelqu un aurait il une astuce?

D avance je vous remercie

 

[Pierrot93]

Re : macro ralentie

Bonjour Olivier

peut être en modifiant ponctuellement le mode de calcul, comme ci dessous :

Application.Calculation = xlCalculationManual
'ton code
Application.Calculation = xlCalculationAutomatic

bonne journée
@+

 

[Épaf]

Re : macro ralentie

Bonjour Olivier, Pierrot, les autres,
Si la solution de Pierrot ne suffit pas, peux-tu mettre le code de ta macro ?
@+

 

[olivier1870]

Re : macro ralentie

Non, cela ne suffit malheureusement pas. Voici le code. C est bien la commande "ligne.EntireRow.Hidden = True" qui ralentit le tout. L idee de la macro est simplement de cacher des lignes indexees par "1" dans la colonne A.

Sub Macro3()
'



Application.Calculation = xlCalculationManual




Application.ScreenUpdating = False 'desactive le rafraichissement de l ecran
For Each ligne In ActiveSheet.UsedRange.Rows
If ligne.Cells(1, 1).Value = "1" Then
'si la cellule de la colonne 1 est 1, la ligne est masquée
ligne.EntireRow.Hidden = True
End If
Next
Range("A1").Select

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True 'reactive le rafraichissement de l ecran
End Sub

 

[Pierrot93]

Re : macro ralentie

Re

essaye peut être comme ci dessous, si tu veux tester la colonne A

Dim c As Range
For Each c In Range("A1:A" & Range("A65536").End(xlUp).Row)
    If c.Value = "1" Then c.EntireRow.Hidden = True
Next c

@+

 

[Cousinhub]

Re : macro ralentie

Bonjour, essaie ceci, inutile de balayer toute la zone, la colonne A suffit :

Application.ScreenUpdating = False
For i = [a65000].End(xlUp).Row To 1 Step -1
With Cells(i, 1)
If .Value = "1" Then .EntireRow.Hidden = True
End With
Next

Edit : Bonjour Pierrot, collision!

 

[olivier1870]

Re : macro ralentie

Ben zut, c est pareille! sitot la zone d impression selectionnee une fois, c est lent.

 

[Pierrot93]

Re : macro ralentie

Re, bonjour bhbh, Epaf

essaye peut être comme ceci :

Sub test()
Dim c As Range, zi As String
zi = ActiveSheet.PageSetup.PrintArea
ActiveSheet.PageSetup.PrintArea = ""
For Each c In Range("A1:A" & Range("A65536").End(xlUp).Row)
    If c.Value = "1" Then c.EntireRow.Hidden = True
Next c
ActiveSheet.PageSetup.PrintArea = zi
End Sub

@+