macro trop lente

Version imprimable

macro trop lente

Bonjour,

J'ai une macro qui permet le remplacement de tous les #ERR, #NOM, etc... par des X. Mais au vu du nombre de cellule (parfois plus de 30 000), cela prend trop de temps, surtout que c'est à la suite d'une mise à jour sur toute ces celulles. Un exemple de temps est de 3min30 pour tout avec 1min juste pour les X, donc trop long.
Y-a-t-il moyen de raccourcir? Et si oui comment?
Voici le code :
Code:

1 2 3 4 5 6 Application.ScreenUpdating = False Application.DisplayAlerts = False For Each cel In ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas) oldCel = Mid(cel.FormulaR1C1, 2, Len(cel.FormulaR1C1) - 1) cel.FormulaR1C1 = "=IF(ISERROR(" & oldCel & "),""X""," & oldCel & ")" Next cel
Merci d'avance pour toutes vos réponses toujours très constructives.
Tioch

07/07/2011, 15h33
jfontaine

Bonjour,

Je vois que dans ta macro tu ne bascule pas en calcul manuel, il y a donc des chances pour les calculs se fassent a chaque insertion de formule

Code:

application.Calculation=xlCalculationManual
07/07/2011, 15h44
tioch

Tout d'abord merci pour ta réponse si rapide.
Mais comment je le mets dans la macro?
Je dois pas le remettre en automatique après?

Merci bien

Comme cela

Code:

1
2
3
4
5
6
7
8
9
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
    Application.DisplayAlerts = False
    For Each cel In ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas)
        oldCel = Mid(cel.FormulaR1C1, 2, Len(cel.FormulaR1C1) - 1)
        cel.FormulaR1C1 = "=IF(ISERROR(" & oldCel & "),""X""," & oldCel & ")"
    Next cel
 
Application.Calculation = xlCalculationAutomatic

08/07/2011, 08h48
tioch

Merci Jérome,
Je vais faire des tests et je reviens.