Discussion :

[dlight]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[MarcelG]

Bonsoir.

Tu peux essayer d'écrire dans ta fonction Vlookup

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[mercatog]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[dlight]

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

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

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


dlight

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci encore une fois pour l'aide...

dlight

[mercatog]

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[dlight]

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

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

dossier résolu !

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

[MarcelG]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Unload Me
Me.Hide
Sheets("tafeuille").Activate

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub UserForm_Deactivate()
Sheets("tafeuille").Activate
End Sub

Essaie, et reviens si besoin.

[Pierre Fauconnier]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[MarcelG]

Bonjour Pierre.

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Me.Hide
Unload Me

Bonne journée

[dlight]

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

Dossier résolu encore une fois !

dlight