Macro pour remplacer les #VALEUR!

[Xxaann]

Bonjour,

Je ne trouve pas de solution...

J'ai une macro qui tourne; dedans j'insère des formules dans certaines cellules et quelques fois j'ai #VALEUR!. J'ai un copie/colle qui me laisse uniquement les résultats dans la cellule mais toujours le #VALEUR!

J'aimerais pouvoir remplacer par NOK par exemple.

J'ai essayé via l'enregistrement auto ceci:
Cells.Replace What:="#VALEUR!", Replacement:="nok", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Mais ca ne marche pas.

Avez-vous une solution

Merci

 

[Dranreb]

Re : Macro pour remplacer les #VALEUR!

Bonjour

Partez plutôt d'un Cells.SpecialCells(xlCellTypeFormulas, 16)

Edit: En fait ceci suffit :

Cells.SpecialCells(xlCellTypeFormulas, 16).Value = "nok"

 

[Xxaann]

Re : Macro pour remplacer les #VALEUR!

merci Dranreb,

Mais ca ne marche pas. Enfin, je ne suis pas un expert en vba, aurais-tu un exemple?

 

[Xxaann]

Re : Macro pour remplacer les #VALEUR!

Ceci à l'air de fonctionner:

For Each c In Range("B1:B7")
If IsError(c) Then ActiveCell.Value = "nok"
Next c

 

[Dranreb]

Re : Macro pour remplacer les #VALEUR!

J'ai testé mon instruction alors que ma feuille active comportait des formules renvoyant des valeurs d'erreurs, et ça a marché.
Il va de soit que pour des valeurs constantes d'erreurs c'est .SpecialCells(xlCellTypeConstants, 16) et non xlCellTypeFormulas.