Vlookup dans VBA

Bonjour à tous. J'ai à nouveau besoin d'aide pour un petit bout de code...

J'ai une feuille "Transactions" et lors du déplacement dans cette feuille si le focus tombe sur la colonne "D", j'ai un userform qui apparait automatiquement.

Dans ce userfom, j'ai un combox1 qui est lié a une liste d'item dans la feuille "Codifications".

Si je clique dans "D4", le UF s'ouvre et je peux inscrire par exemple "Table". J'aimerais qu'une fois que l'utilisateur clique sur le bouton de commande "Accepter", que la valeur qui s'inscrira dans "D4" soit le résultat d'un Vlookup dans une plage de données.

Code:

Code:

---

1 2 3 4 5 6 7 8

Private Sub CommandButton1_Click()   ActiveCell.Value = Application.WorksheetFunction.VLookup(ComboBox1, NomDuTitreVendu, 2, False) ComboBox1 = ""   UserForm4.Hide   End Sub

---

Bien entendu, si je suis dans D25, la réponse devra être dans D25.

Actuellement, j'ai l'erreur 1004...

Merci à l'avance

Bonsoir.

Tu peux essayer d'écrire dans ta fonction Vlookup

Code:

---

Me.Combobox1

---

D'autre part, j'ai l'imression, fausse peut-être, que ton 2ème argument de Vloookup ne soit pas une matrice. Ta valeur de Combobox doit se trouver, sauf si erreur, dans la colonne de gauche de ta matrice.

C'est quoi NomDuTitreVendu?
si c'est une plage nommée, essaies ceci

Code:

---

1 2 3 4 5 6

Private Sub CommandButton1_Click()   ActiveCell.Value = Application.WorksheetFunction.VLookup(ComboBox1.Value, Range("NomDuTitreVendu"), 2, False) ComboBox1.ListIndex = -1 UserForm4.Hide End Sub

---

Merci à vous MarcelG.

Vous avez bien raison de mettre en garde avec la possibilité que la valeur du combobox1 ne se retrouve pas dans la liste mais c'est bien le cas, la valeur est bien présente.
J'ai fait le test directement dans une feuille excel afin d'être sûr que ce n'était pas le problème.

J'ai ajouté votre code mais j'ai toujours le code d'erreur 1004 avec la description

Citation:

---

Impossible de lire la propriété VLookup de la classe WorksheetFunction

---

Merci à l'avance pour une future réponses...


dlight

Merci à vous mercatog.

C'est bien une plage nommé et comme je le disais dans mon dernier message, j'ai testé dans une feuille excel afin d'être sûr que j'avais la bonne plage et le résultat du RechercheV soit conforme à mes attentes.

J'ai collé votre code et l'erreur 1004 est toujours présente à la ligne

Code:

---

ActiveCell.Value = Application.WorksheetFunction.VLookup(ComboBox1.Value, Range("NomDuTitreVendu"), 2, False)

---

Merci encore une fois pour l'aide...

dlight

Refais ton test et regarde le nom exact de ta plage de recherche

sinon, j'ai simulé l'erreur quand ComboBox1.value=""

Code:

---

1 2 3

If ComboBox1.Value <> "" Then ActiveCell.Value = Application.WorksheetFunction.VLookup(ComboBox1.Value, Range("NomDuTitreVendu"), 2, False) ComboBox1.ListIndex = -1 UserForm4.Hide

---

J'ai trouvé mon problème et c'est mon erreur :oops:

Votre code mercatog est bon.

Lors du test dans la feuille excel, j'ai pris l'information j'ai copié le texte de ma base de données et collé dans une cellule pour faire un test.Ce que je n'avais pas remarqué est qu'il y avait une espace à droite de "table " dans ma base de donnée.
Lors de la saisie dans mon combobox, table n'avait pas l'espace ce qui confirme le premier commentaire de MarcelG à savoir si l'item est dans ma plage de données.

Merci à vous deux encore une fois:merci:

dossier résolu !:ccool:

J'ai une dernière demande...

Le code fonctionne bien...

Une fois le code exécuté, excel n'est plus sélectionné... Je dois cliquer dans la feuille excel.
Bien que j'ai le classeur devant moi c'est comme si j'étais entre deux applications...


Quelqu'un peux me dire ce que je peux faire pour corriger ça... ?

Merci encore

Bonjour Dlight,

Dans le code de ton bouton de validation, si l'activation de celui-ci ferme ton userform, tu oeux coder dans la procédure lui correspondant

Code:

---

1 2 3

Unload Me Me.Hide Sheets("tafeuille").Activate

---

Sinon, tu peux aussi coder l'évènement de ton userform

Code:

---

1 2 3

Private Sub UserForm_Deactivate() Sheets("tafeuille").Activate End Sub

---

Essaie, et reviens si besoin.

Bonjour

Code:

---

1 2	unload me me.hide

---

va planter puisque l'objet n'est plus chargé => on ne peut plus y faire référence...

Normalement, la fermeture du userform rend la main à Excel. Il serait donc intéressant d'essayer de comprendre pourquoi ce n'est pas le cas (si, je dis bien si, ce n'est pas le cas...).

Peux-tu donner l'entièreté du code du bouton, et expliquer ce qui te fait penser que Excel n'est plus actif?

Bonjour Pierre.

Au temps pour moi (salut pgz), tu as raison, il faut écrire à l'inverse, et c'est logique

Code:

---

1 2	Me.Hide Unload Me

---

Bonne journée

Merci à vous tous encore une fois pour l'aide.

Dossier résolu encore une fois !:hola:

dlight