Discussion :

[tioch]

Bonjour,

J'ai un tableau où dans certaines cases il est marqué #NOM. Je sais pourquoi et je ne veux rien changer au fonctionnement, mais pour la lisibilité j'aimerais bien pouvoir le remplacer par un sigle comme une croix ou un point...
Comment peut-on faire ca? Simplement en faisant une recherche des cellules où il y a #NOM et faire un remplacement? Mais alors quel est le code VBA pour ca?

Merci d'avance pour vos réponses

[jfontaine]

Bonjour,

La solution est de tester la formule

Code :

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

=si(esterreur(formule);"X";formule)

A faire dans chaque cellule

[mercatog]

Si tu désire supprimer le contenu des cellules avec erreur par X, alors fais ceci

Code :

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

1
2
3
4
5
Sub EffaceErrors()
 
On Error Resume Next
Sheets("Feuil1").UsedRange.SpecialCells(xlCellTypeFormulas, xlErrors).Value = "X"
End Sub

Si tu veux garder les formules mais au cas d'erreur remplacer le résultat par X alors il faudra retravailler ces formule avec

Code :

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

=SI(ESTERREUR(....

[tioch]

Merci à vous pour les réponses si rapides.
Je l'ai ai essayer ca marche nickel.

Mais je veux garder les formules, ne pas les effacer.
Et le problème c'est que si j'utilise ESTERREUR, je dois le faire pour chaque cellule. Or j'ai beaucoup de cellule où je voudrais utiliser cette méthode (environ 24000) et j'ai différents tableaux où je voudrais appliquer cette méthode (environ une vingtaine) ce qui fait un peu bcp pour tout remplir à la main.
Alors ne serait-il pas possible d'automatiser cette méthode?
Ca m'aiderai grandement.

Merci encore

Voila juste si ça peut aider un exemple de fichier que j'ai (en gros bien sur, normalement c'est avec des vraies valeurs et beaucoup plus nombreuses) mais juste pour montrer à quoi ca doit ressembler.

Merci d'avance