If(isna(vlookup VBA

Bonjour,

J'aimerai faire remplacer les valeurs NA lorsque je fait un rechercheV par la date 2000-01-01.

J'ai un message d'erreur qui apparait.

J'ai joint le fichier et Mon code est le suivant:

Sub RECHERCHEV_VBA()

Dim lR As Long
With ActiveWorkbook.Worksheets("sheet1")
    lR = .Range("K" & .Rows.Count).End(xlUp).Row
    .Range("D2").Formula = "=IF(ISNA(VLOOKUP(VLOOKUP(A2,$k$2:$L$" & lR & ",2,FALSE)),2000-01-01,(VLOOKUP(A2,$k$2:$L$" & lR & ",2,FALSE)))"
    .Range("D2:D" & Range("A" & Rows.Count).End(xlUp).Row).FillDown
End With

End Sub

Merci de votre aide

Bonjour,

utilise le nouvelle fonction sierreur() pour gérer ça. Ca évite de faire 2 fois le recherchev().

Tu as également .formulalocal qui peut te simplifier la tache.

eric

Merci Ériic!!

ça fonctionne parfaitement.