Discussion :

[alexandra1989]

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.. (à mon avis je n'utilise pas les .value et les ranges correctement :s)

Code :

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

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.

[mercatog]

vba ne s'écrit pas ainsi.
Pour ton problème, regarde l'aide sur la méthode Find

[d0n32]

Bonjour,

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

Code :

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

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,

[alexandra1989]

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

[mercatog]

Code :

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

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

[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

[gFZT82]

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 :

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

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.

[mercatog]

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

Code :

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

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.