Microsoft 365 Vba Vlookup valeur approximative

  • Initiateur de la discussion Initiateur de la discussion eric72
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

eric72

XLDnaute Accro
Bonjour à tous,
J'ai un petit souci avec la fonction vlookup avec tranche de seuil en VBA, dans ma macro la fonction avec la valeur dans la feuille fonctionne bien:
VB:
Feuil1.Range("e2") = Application.VLookup(Feuil1.Range("e1"), [Tableau1], 2, True)
par contre le code ou je récupère la valeur de ma textbox renvoie NA:
Code:
Feuil1.Range("e3") = Application.VLookup(CDbl(TextBox1), [Tableau1], 2, True)
et je ne comprends pas bien pourquoi, l'un d'entre vous a certainement une solution toute simple!!!
Merci beaucoup encore une fois pour votre aide 😉
Eric
 

Pièces jointes

Bonjour à tous,
J'ai un petit souci avec la fonction vlookup avec tranche de seuil en VBA, dans ma macro la fonction avec la valeur dans la feuille fonctionne bien:
VB:
Feuil1.Range("e2") = Application.VLookup(Feuil1.Range("e1"), [Tableau1], 2, True)
par contre le code ou je récupère la valeur de ma textbox renvoie NA:
Code:
Feuil1.Range("e3") = Application.VLookup(CDbl(TextBox1), [Tableau1], 2, True)
et je ne comprends pas bien pourquoi, l'un d'entre vous a certainement une solution toute simple!!!
Merci beaucoup encore une fois pour votre aide 😉
Eric
Bonjour
c'est tout à fait normal !
dans ta seconde ligne tu fais appel à TextBox1.
Or a ce niveau cette variable n'est pas connue puisque ton textbox1 est dans la feuille Userform1
Si ta procédure était dans la feuille cela fonctionnerait

tu peux mettre à la place
UserForm1.TextBox1.Text

donc :
Feuil1.Range("e3") = Application.VLookup(CDbl(UserForm1.TextBox1.Text), [Tableau1], 2, True)
et cela fonctionnera
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
7
Affichages
910
Réponses
1
Affichages
2 K
Réponses
5
Affichages
1 K
Retour