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

Réponses
4
Affichages
209
Réponses
6
Affichages
598

Statistiques des forums

Discussions
312 202
Messages
2 086 177
Membres
103 152
dernier inscrit
Karibu