Discussion :

[snowkhan]

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

[Megaxel]

Hello!
Juste en passant: il n'y a pas de "return" dansune fonction en VBA.
C'est automatiquement le nom de la fonction qui est retourné à la fin, donc, dans ton cas, tu dois faire, au lieu du "Return nom":

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

GetNom = Nom

Je n'ai pas regardé si la recherche fonctionne, mais comme ça, ça m'a l'air pas mal du tout.

[snowkhan]

Merci Megaxel, c'est déjà une erreur de corrigée, mais apparemment cela ne tourne toujours pas.

J'ai l'erreur suivante : "Objet requis" et il me surligne le premier "Nom="

[random]

pour un obje c'est pas is nothing ?? au lieu de is null ??

[bouley]

Salut snowkhan,

enleve le set devant nom tu le declare comme string et apres tu met un set comme si tu l'avais déclaré comme un objet
En plus tu n'en as pas besoin

et ecrit plutot ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Function GetNom(code As String) As String
    Dim colCode As Excel.Range
    Dim codeNom As Excel.Range
    Set colCode = Me.Application.Sheets(1).Range("A1").EntireColumn
    Set codeNom = colCode.Find(code)
    If codeNom Is Nothing Then
          GetNom = "Nom introuvable"
    Else
          GetNom = codeNom.Offset(0, 1).Value
    End If
End Function

tu dis
@+

[snowkhan]

Merci beaucoup à tous !

J'ai corrigé avec tes recommandations bouley et ça fonctionne niquel

Encore merci