Corriger un code

Bonjour, j'ai un fichiers excel contenant plusieurs dans la colonne AY, j'ai des noms de personnes, sauf que dans qlq cellules, j'ai la valeur: "#N/A. J ai mis en place un petit code pour remplacer #N/A par erreur mais ça ne marche pas.

Ma question est de comment ecrire #N/A dans le programme.

Sub Macro3()

Sheets("Feuil1").Select

Dim cell As Range

For Each cell In Range("AY2:AY" & Range("AY" & Rows.Count).End(xlUp).Row)

If cell.Value = "#N/A" Then cell.Value = "ERREUR"

Next

End Sub

Bonsoir,

A tester...

Public Sub Test()
    Application.ScreenUpdating = False
    Set Ws = Worksheets("Feuil1")
    Dim Derligne As Long
    Dim Plage As Range, Cel As Range
    With Ws
        Derligne = Range("AY" & Rows.Count).End(xlUp).Row
        Plage = .Range("AY2:AY" & Derligne)
        For Each Cel In Plage
            If IsNA(Cel) Then Cel = "ERREUR"
        Next
    End With
    Set Ws = Nothing: Set Plage = Nothing
End Sub

Bonjour

Bonjour Jean-Eric

Tout dépend si #N/A! est le résultat d'une formule ou si c'est une constante

A tester

Sub Test()

  On Error Resume Next
  ' Erreur dans une constante
  Range("AY2:AY" & Range("AY" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeConstants, xlErrors) = "ERREUR"
  ' Erreur dans une formule
  Range("AY2:AY" & Range("AY" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeFormulas, xlErrors) = "ERREUR"
  On Error GoTo 0
End Sub