Microsoft 365 Fonction VLOOKUP

eric72

XLDnaute Accro
Bonjour à tous,
Encore un souci avec ce satané VLOOKUP, je m'explique:
J'ai ce code dans le combobox nommé "DiamPot"
Private Sub DiamPot_AFTERUPDATE()
Me.CoeffPot = Application.VLookup(FrPot.Caption, Sheets("Données").Range("TbCoeff"), 2, 0)
Me.PrixPot = Application.VLookup(DiamPot, Sheets("Données").Range("BasePot"), 2, 0)
End Sub
cette partie fonctionne à merveille :
Me.CoeffPot = Application.VLookup(FrPot.Caption, Sheets("Données").Range("TbCoeff"), 2, 0)
et celle-ci me renvoie l'erreur "impossible de définir la propriété value" et je ne vois vraiment pas pourquoi
Me.PrixPot = Application.VLookup(DiamPot, Sheets("Données").Range("BasePot"), 2, 0)
Mais je suis bien sur que pour vous cela parait évident.
Autre petite question, le "RechercheX" existe-t-il en vba, cela pourrait simplifier.
Merci pour votre aide
Eric
 

eric72

XLDnaute Accro
Merci, par contre comme j'avance dans mon Userform, je met le code:
PrixCdt = Application.VLookup(RefCdt, Sheets("Données").Range("TbEmballage"), 2, 0)
Dans ma combobox "refcdt" afin que le prix s'affiche lors du "change", et rien ne s'inscrit dans ma textbox "PrixCdt", susceptible ce vlookup!!!
Au cas ou vous ayez une idée?
Merci
Eric
 

Pièces jointes

  • Fiche Produit TEST.xlsm
    297.4 KB · Affichages: 2

Discussions similaires