[VBA] Probleme fonction VLookup Résolu

Question

Bonjour, 

J'ai un petit probleme avec la fonction VLookup de vba je ne comprend pas pourquoi elle me renvoi l'erreur 2042...

voici le code de la macro 

Private Sub ComboBox1_Change()
    Dim R As Variant
 R=Application.VLookup(ComboBox1.value,Worksheets("annexe").Range("B4:P23"), 13, False)
    Label16.Caption = R
End Sub


la valeur de la combobox est X38

la feuille annexe correspond a un tableau de valeur que je vais vous réduire 

colonne B : X38
                 C24
                 B78

colonne M(13) : 21000
                       42000
                       53000

En attendent vos réponse, merci d'avance
Configuration: Windows XP / Safari 535.1

michel_m · Answer

Bonjour,

Et que dit l'erreur 2042 ?

pijaku · Answer

Salut,
Au lieu de Application.VlookUp essaye :
Application. WorksheetFunction.VLookup(Valeur, Plage, Colonne, False)
peut être que...

Kino76 · Answer

merci de vos réponse mais je ne sais pas ce que me dit l'erreur il y a seulement marquer erreur 2042

et si je fais ce que tu m'a demandé pijaku j'ai l'erreur 1004 impossible de lire la propriété VLookup de la class WorksheetFunction...

michel_m · Answer

bon va procéder autrement....
en supposant que la valeur du combo est incluse dans le tableau
valeur=combobox1.Value
resultat=cells(columns("B").find(valeur,range(B3"),xlvalues).row,"M")
si on n'est pas sûr que la valeur ext dans B3:B23
if application.countif(range("B3:B23"),valeur)>0 then
    resultat=cells(columns("B").find(valeur,range(B3"),xlvalues).row,"M")
else 
     Msgbox valeur & "inconue, vbcritical
End if

Kino76 · Answer

on est sur que la valeur est connu dans le tableau car les valeurs de la combobox sort de ce meme tableau

j'ai donc pris la premiere solution 


Dim valeur
    Dim resultat
    valeur = ComboBox1.value
    resultat = Cells(Columns("B").Find(valeur, Range("B3"), xlValues).Row, "M")
    MsgBox (resultat)


il m'écrit une erreur 92 variable objet ou variable bloc with non définit...

Kino76 · Answer

voici le lien https://www.cjoint.com/?AJtrSmSs18u

michel_m · Answer

Dis donc, fais tu attention à ce que tu écris ?
tu écris:
colonne B : X38 

regarde donc ce qu'il y a dans la colonne B....

Pas très sérieux ni sympa

ciao

Kino76 · Answer

oups désole cette feuille est un copié coller d'un autre classeur et j'ai décaler les colonnes et je n'avais pas la bonne feuille sous les yeux 

toutes mes excuses votre formule marche

Merci beaucoup

Kino76 · Answer

Bonjour, 

je me permet de revenir vers vous car meme en mettant la bonne colonne (la C)  


resultat = Cells(Columns("C").Find(valeur, Range("C5"), xlValues).Row, "M")


j'ai une erreur 91 variable objet ou variable bloc with non définit...

[VBA] Probleme fonction VLookup

9 réponses

Votre réponse

Discussions similaires