Recherchev VBA + gestion erreur

Le 03/04/2013 à 17:13

Bonjour,

Voici mon probleme, je tente sur vba d'extraire des données d'un onglet "base de donnée" pour les afficher sur un autre onglets "recapitulation" grace à la fonction vlookup, la valeur reference est un code qui se trouve sur les deux onglets, le probleme est qu"il faudrait que quand il ne trouve pas de correspondance dans la base de donnée il affiche 0 dans "recapitulation" et dans le cas contraire qu'il indique la bonne valeur trouvé.

Si quelq'un pouvait me venir en aide ce serait bien sympa!

voila ce que j'ai déjà fait qui marche mais qui se stoppe dès qu'il rencontre une erreur:

Cells(j, 8) = WorksheetFunction.VLookup(Cells(j, 7).Value, Sheets("base PL").Range("A2:E500"), 5, False)

Merci d'avance.

Bien cordialement.

Tom

Le 03/04/2013 à 17:53

Bonjour

Essayes ceci

Sub test1()
  Resultat = Application.VLookup(Cells(j, 7).Value, Sheets("base PL").Range("A2:E500"), 5, False)
  Cells(j, 8) = IIf(IsError(Resultat), 0, Resultat)
End Sub

Ne me demandes pas pourquoi avec Application.WorksheetFunction cela ne fonctionne pas (je ne sais pas)

Rechercher des sujets similaires à "recherchev vba gestion erreur"