Simple code pour remplacer valeur

Pierrot93

XLDnaute Barbatruc

• 11 Février 2010

• #2

Re : Simple code pour remplacer valeur

Bonjour Pierrof

essaye le code ci-dessous :

Code:

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
@+

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 11 Février 2010

• #3

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

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 11 Février 2010

• #4

Re : Simple code pour remplacer valeur

Edit Bonjour Pierrot93.

 

Vote positif 0 Vote négatif

P

pierrof

XLDnaute Occasionnel

• 11 Février 2010

• #5

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+

 

Vote positif 0 Vote négatif

P

pierrof

XLDnaute Occasionnel

• 11 Février 2010

• #6

Re : Simple code pour remplacer valeur

Pierrot ton code marche parfaitement
Merci

 

Vote positif 0 Vote négatif