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