Fonction SI ESTERREUR en vba

[peternewman007]

Bonjour,

Je souhaite transformer une fonction en vba.
Voici la fonction :

=SI(ESTERREUR(+AM1886/RECHERCHEV($A1886;$A$3847:$AP$3942;39;FAUX));0;+AM1886/RECHERCHEV($A1886;$A$3847:$AP$3942;39;FAUX))

Et voici mon essai en vba :

If IsError(Cells(target.Row, 39) / Application.WorksheetFunction.VLookup(Cells(target.Row, 1).Value, Range("A:AP"), 39, False).Value) Then
    Cells(target.Row, 41) = 0
Else
    Cells(target.Row, 41) = Cells(target.Row, 39) / Application.WorksheetFunction.VLookup(Cells(target.Row, 1).Value, Range("a:ap"), 39, False)
End If

Qu'est-ce qui cloche?

Merci d'avance,

Peter

 

[peternewman007]

Re : Fonction SI ESTERREUR en vba

Pierrot,

Le code extrait fait partie d'une série de codes et donc le End Sub est bien plus bas ;-)

Ne fonctionne pas quand même

 

[Pierrot93]

Re : Fonction SI ESTERREUR en vba

Re,

place le juste avant le "end sub"... feuil1 étant le codename de la feuille concernée...

 

[peternewman007]

Re : Fonction SI ESTERREUR en vba

Pas de résultat

 

[Pierrot93]

Re : Fonction SI ESTERREUR en vba

Re,

bah... comme ca sans pouvoir tester, perso pas d'autre idée...