[VBA-E] Recherche dans une colonne

Version imprimable

[Résolu] [VBA-E] Recherche dans une colonne

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:

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

03/03/2006, 12h59
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:

GetNom = Nom

Je n'ai pas regardé si la recherche fonctionne, mais comme ça, ça m'a l'air pas mal du tout.
03/03/2006, 13h19
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="
03/03/2006, 13h40
random

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

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:

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
@+

03/03/2006, 14h21
snowkhan

Merci beaucoup à tous !

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

Encore merci