Microsoft 365 Fonction VLOOKUP

[eric72]

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]

Plus facile avec cela!!!

 

[eric72]

Je m'apercois que si je met une lettre devant par exemple "A 5,5" ça marche, cela veut-il dire qu'il faut transformer la valeur de la combobox en texte?
Merci
Eric

 

[herve62]

Bonjour
Un peu oui !!!!
met Cdbl(Diampot) , ça devrait aller mieux .... enfin chez moi oui !!

 

[eric72]

Bonjour herve62,
Vous avez raison c'était bien ça!!!
Merci beaucoup.
Pour la recherchex en vba connaissez-vous le code?
Merci
Eric

 

[herve62]

Pour la recherchex

?? je ne connais pas, n'existe pas sous 2010 donc comme le VBA lui n'a pas évolué en // de 2013....2019
cela n'existe pas en vba peut être avec le pack function XLP ??

 

[eric72]

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

 

[eric72]

OHHHH désolé j'ai juste masquer une colonne dans mon tableau, c'est donc la colonne 3 et pas 2
Excusez-moi et merci pour le coup de pouce.
Bonne soirée
Eric