valeur de sortie de la fonction VLookup en VBA

[andre246]

Rebonjour tout le monde,

voila j'ai un souci avec une fonction que j'ai ecrite, cette fonction equivaut a la fonction RECHERCHEV(..) dans Excel a peu de chose pret.
Sauf que je voudrais tester si jamais l'élément mis en argument n'existe pas dans la liste que je met dans la fonction VLookup et dans ce cas, un message d'erreur apparait.

voila le code VBA :

Function RechercheElement(ElementATrouver As Range)

Dim ligne, colomne As Integer
Dim Nomenclature As String

ligne = ElementATrouver.Row
colomne = ElementATrouver.Column

Nomenclature = Cells(ligne, colomne).Value

Set myRange = Workbooks('SuiviFab.xls').Worksheets(1).Range('C10:F500')
'la je voudrais tester ce que me renvoie la fonction VLookup.
RechercheElement = Application.WorksheetFunction.VLookup(Nomenclature, myRange, 4, False)

End Function

merci pour votre aide.

seb.

 

[Charly2]

Bonsoir André246, bonsoir à toutes et à tous

Tu peux peut-être essayer ce code :

Option Explicit

Function RechercheElement(ElementATrouver As Range)
'
Dim myRange As Range
'
  Set myRange = Workbooks('SuiviFab.xls').Worksheets(1).Range('C10:F500')

  'la je voudrais tester ce que me renvoie la fonction VLookup.
  On Error Resume Next
  RechercheElement = WorksheetFunction.VLookup(ElementATrouver, myRange, 4, False)
  If Err ‹› 0 Then
    MsgBox 'Erreur n° ' & Err.Number & vbCrLf & vbCrLf & _
                'Description : ' & Err.Description
    Err.Clear
    RechercheElement = 'NON TROUVE'
  End If
End Function

Remplacer les caractères ‹› par leurs équivalents clavier.

Tiens nous au courant...

A+

 

[andre246]

Merci bcp pour cette reponse, ca m'a l'iar de tout bien fonctionner , j'ai mis a mon gout mais ca fontionne tres bien.
Enkor merci.

seb.