XL 2010 suppression #N/A en VBA

[Bruce68]

Bonsoir à tous

Dans une Cellule j'ai cette formule :
=SI(P4="Perdue";-RECHERCHEV(Q4;Variables!E1:F8;2;FAUX);RECHERCHEV(Q4;Variables!E1:F8;2;FAUX))
Quand celle ci est vide cela me renvoi #N/A et je recopie cette valeur dans une base, alors j'ai trouvé sur internet cette Macro quand je recopie ma ligne:
If Range ("R" & x) = "#N/A" Then
Range ("R" & x) .ClearContents
End If
Mais cela ne fonctionne pas j'ai ce résultat: Erreur d'execution 13, Incompatibilité de Type.

Je vous remercie de votre aide

 

[Lone-wolf]

Bonsoir Bruce

Et en ajoutant SIERREUR

 

[Bruce68]

Bonsoir lone-wolf

Merci pour cette réponse mais cela ne fonctionne pas.
Je voudrais mettre dans ma formule Si ESTERREUR dans RCHERCHEV mais j'ai un problème pour combiner les 2 SI peut être cela corrigerais Les #N/A .
Je vous remercie de votre aide

 

[DoubleZero]

Bonjour, Bruce68, Lone-wolf , le Forum,

Comme ceci ?

Option Explicit
Sub Formule_en_erreur_supprimer()
    On Error Resume Next
    Columns(18).SpecialCells(xlCellTypeFormulas, 16).ClearContents
End Sub

A bientôt

 

[Lone-wolf]

Bonsoir DoubleZero

 

[Bruce68]

Bonsoir DoubleZero et le forum

Merci pour la réponse et le code , maintenant je vais pouvoir supprimer mes #N/A
Bonne soirée à tous

 

[eriiic]

Bonjour,

sans doute que tu connais mais tu peux aussi agir à la source avec =SIERREUR(ta_formule;"")
eric