Discussion :

[tioch]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

application.Calculation=xlCalculationManual

[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

[jfontaine]

Comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[tioch]

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