Recherche V - Boucle - Signaler une erreur

Bonjour,

j'ai créé une macro pour réaliser une rechercheV mais le script plante lorsque ma macro ne trouve pas de solution.

Si il n'existe pas de valeur à attribuer à ma recherche au lieu de mettre "#N/A" comme dans une formule la macro plante. A priori c'est normal, mais y-a-t-il pas une solution ?

Sub RECV()
ligfin = Cells(Cells.Rows.Count, "A").End(xlUp).Row
Sheets("Synthèse").Select
Derlign = Cells(Cells.Rows.Count, "A").End(xlUp).Row
For x = 5 To ligfin
Range("P" & x).Value = WorksheetFunction.VLookup(Range("G" & x).Value, Sheets(7).Range("A:D"), 4, False)
Next x

End Sub

Je recherche à partir de la ligne 5 jusqu'à la fin de mes lignes, la valeur en ligne G dans la base de donné de l'onglet 7 A:D en colonne 4.

merci d'avance,

Martin

Bonjour,

Teste comme ceci

Sub RECV()
  ligfin = Cells(Cells.Rows.Count, "A").End(xlUp).Row
  Sheets("Synthèse").Activate
  Derlign = Cells(Cells.Rows.Count, "A").End(xlUp).Row
  On Error Resume Next
    For x = 5 To ligfin
        Range("P" & x).Value = WorksheetFunction.VLookup(Range("G" & x).Value, Sheets(7).Range("A:D"), 4, False)
    Next x
End Sub

Merci bien :)

ça reste blanc pour le coup mais c'est pas plus mal.