Remplacer #VALEUR! par "rien" dans une macro

bonjour a tous

voila voila ...

j'ai fait une petite macro de quelque ligne et je reste bloquée sur 1 chose voici le code :

Sub Copie()

Sheets("Convertor").Range("C4:C1003").COPY
Sheets("MACROAVCS").Range("B3").PasteSpecial Paste:=xlPasteValues

For Each c In Worksheets("MACROAVCS").Range("B3:B1003")
 If c.Value = "#VALUE!" Then
    c.Value = "rien"
     Else
    c.Value = "OK"
  End If
Next c

End Sub

quand je lance ma macro tout ce passe bien jusqu'as la ligne 10 cellule A:11 ou il es écrit #VALEUR!

erreur 13 / Incompatibilité de type

j'ai deja changer le #VALUE! par #VALEUR! / Erreur 2015 ( c que VBA ma donne quand je demande la valeur de la cellule

pas dans mon excel je vérifier des donnée de type :

943ZTW000000007

9449ZB00000000R

#VALEUR!

#VALEUR!

D64JCL00000000K

Avez vous une idée ?

Merci beaucoup pour votre aide !

Bonjour Demoltron le forum

sans pouvoir tester puisque tu n'as pas mis de fichier!!

moi je dirais, tu remplaces If c.Value = "#VALUE!" Then par le ci-dessous

If IsError(c.Value) Then

a+

Papou

Magnifique

sa fonctionne !!

grand merci

Rechercher des sujets similaires à "remplacer valeur rien macro"