Simple code pour remplacer valeur

[pierrof]

Bonjour

Je souhaite à l'aide d'une macro remplacer toutes les valeurs #N/A par 0.
Je vous laisse un fichier exemple.

Merci d'avance de votre aide

A+

 

[Pierrot93]

Re : Simple code pour remplacer valeur

Bonjour Pierrof

essaye le code ci-dessous :

Option Explicit
Sub test()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range("F10:G" & Range("F65536").End(xlUp).Row)
    If IsError(c) Then c = 0
Next c
Application.ScreenUpdating = True
End Sub

bon après midi
@+

 

[Efgé]

Re : Simple code pour remplacer valeur

Bonjour pierrof,
Si il y a des #N/A c'est qu'il y a des formules derrière..
Pour éviter par l'affichage des erreurs #N/A par formule il y a :
=SI(ESTNA(La formule;0;Laformule)
Pour eviter l'affichage de toutes les erreurs il y a
=SI(ESTERREUR(La formule;0;La formule)
Cordialement

 

[Efgé]

Re : Simple code pour remplacer valeur

Edit Bonjour Pierrot93.

 

[pierrof]

Re : Simple code pour remplacer valeur

Bonjour Pierrot bonjour Efgé

En effet Efgé j'ai une formule qui donnerai ça:

For n = 10 To Sheets("Z").Range("C1000").End(xlUp).Row
Sheets("Z").Range("G" & n).Formula = "=SI(ESTNA(=VLOOKUP(A" & n & ",'C'!$A$15:$F$1000,6,0);0;=VLOOKUP(A" & n & ",'C'!$A$15:$F$1000,6,0)"
Next n

Mais ça ne fonctionne pas peux tu regarder stp?

Pierrot je vais tester ton code

Encore merci

A+

 

[pierrof]

Re : Simple code pour remplacer valeur

Pierrot ton code marche parfaitement
Merci