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 :
Merci d'avance pour toutes vos réponses toujours très constructives.
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
Tioch
Partager