Problème pour Coder la fonction vlookup/recherchev en VBA

Version imprimable

Bonjour à tous,

Je suis débutante en VBA et j'aimerais coder la fonction vlookup (recherchev) dans ce langage. Voici mon modeste code, qui ne compile pas.. :calim2:(à mon avis je n'utilise pas les .value et les ranges correctement :s)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Public Function rvw(target As Range, maPlage As Range, numColonne As Integer) As Range Dim retour As Range Dim i As Integer i = 0 retour = Null 'la premiere condition de mon while est fausse, si il y a une case vide on ne parcour pas tout le tableau passé en paramètre.. Do While maPlage.Offset(i,0).value!=null and maPlage.Offset(i,0).value!=target.Value i = i + 1 Loop If maPlage.Offset(i,0).value=target.Value then retour.Value=maPlage.Offset(i,numColonne).value End if set rvw =retour End Function
Pourriez-vous m'aider à débugger mon "programme" svp??

Merci d'avance :)

Alexandra.

06/02/2012, 18h06
mercatog

vba ne s'écrit pas ainsi.
Pour ton problème, regarde l'aide sur la méthode Find
06/02/2012, 18h06
d0n32

Bonjour,

Peux-tu mettre ton code entre balise codes, pour le rendre plus lisible stp ? :)
De plus, sur la ligne

Code:

If maPlage.Offset(i,0).value==target.Value

il y a un = en trop, cela pourrait-il résoudre ton problème ?

Quelques erreurs de code se sont également glissées.. Notamment :

Le then doit être sur la même ligne que le IF
on n'écrit pas return XX, mais nomDeTaFonction = XX

Cordialement,
06/02/2012, 18h29
alexandra1989

merci beaucoup! j'ai mis à jour mon post ^^

Code:

1
2
3
4
Public Function RVW(Target As Range, maPlage As Range, numColonne As Integer) As Range
 
Set RVW = maPlage.Columns(numColonne).Find(Target.Value, LookIn:=xlValues, lookat:=xlWhole)
End Function

06/02/2012, 19h31
alexandra1989

merci mercatog! je vais essayer avec ta piste;)
Cependant je suis un peu frustrée de pas arriver à récuperer le tableau de cellule (maPlage) passé en paramètre :s

Bonjour,

Tu peux obtenir une fonction équivalente à RECHERCHEV avec
Target : valeur cherchée
maPlage : plage de recherche
numColonne : numéro de la colonne dont la valeur doit être renvoyée
Code:

1 2 3 Public Function RVW(Target As Range, maPlage As Range, numColonne As Integer) As Range Set RVW = maPlage.Find(Target.Value, LookIn:=xlValues, lookat:=xlWhole).Offset(0, numColonne - 1) End Function
Cordialement.

A priori et après relecture, le code devrait être le suivant

Code:

1
2
3
4
5
6
7
8
9
Public Function RVW(Target As Range, maPlage As Range, numColonne As Integer) As Range
Dim c As Range
 
Set c = maPlage.Columns(1).Find(Target.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
    Set RVW = c.Offset(0, numColonne)
    Set c = Nothing
End If
End Function

je me demande pourquoi réinventer la roue puisque rechercheV existe bien.