Fonction rechercheV

J'ai élaboré cette petite macro pour faire une recherche d'informations

Je voudrais qu'en cas d'erreur ma valeur soit 0

Merci

Sub RechercheV()

   Dim p, cel As Range
Set p = Range("E1:F7")
For Each cel In Range("C2:C7")
cel = Application.VLookup(cel.Offset(, -2), p, 2, 0)
Next cel
End Sub

bonjour,

une proposition

Sub RechercheV()

    Dim p, cel As Range
    Set p = Range("E1:F7")
    On Error Resume Next
    For Each cel In Range("C2:C7")
        cel = 0
        cel = Application.WorksheetFunction.VLookup(cel.Offset(, -2), p, 2, 0)
    Next cel
    On Error GoTo 0
End Sub

h2so4 a écrit :

bonjour,

une proposition

Sub RechercheV()

    Dim p, cel As Range
    Set p = Range("E1:F7")
    On Error Resume Next
    For Each cel In Range("C2:C7")
        cel = 0
        cel = Application.WorksheetFunction.VLookup(cel.Offset(, -2), p, 2, 0)
    Next cel
    On Error GoTo 0
End Sub

Mille Mercis