Bonjour à tous,

je débute sous VBA Excel et je galère sur une fonction de recherche dans une colonne Excel.

J'ai un tableau excel avec 2 colonnes :
Code (type String)
Nom (type String aussi)

Ma fonction prend en paramètre le code, doit chercher dans la première colonne le code passé en paramètre, et renvoyer le nom correspondant au code.

Voila ma fonction actuelle (ne fonctionnant pas) :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Function GetNom(code As String) As String
    Dim colCode As Excel.Range
    Dim codeNom As Excel.Range
    Dim Nom As String
    Set colCode = Me.Application.Sheets(1).Range("A1").EntireColumn
    Set codeNom = colCode.Find(code)
    If (Not IsNull(codeNom)) Then
         Set Nom = codeNom.Offset(0,1).Value
    Else
         Set Nom = "Nom introuvable"
    End If
    Return Nom
End Function
Je vous remercie d'avance pour votre aide