Discussion :

[anthony14123]

Bonjour,
Voila j'ai un formulaire contenant des TextBox... Je voudrai en fonction de la valeur d'une première textbox, changer la valeur de la seconde. Les valeurs sont présentes dans une feuille nommé Listing.
J'obitens l'erreur '1004': Impossible de lire la propriété VlookUp de la classe WorksheetFunction.

Merci d'avance de votre aide.

Code :

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

1
2
3
4
5
6
 
Private Sub CB_actualiser_Click()
 
Me.Tb_nom_du_fournisseur.Value = Application.WorksheetFunction.VLookup(Me.Tb_code_fournisseur.Value, Worksheets("Listing").Range("A1:C13052"), 2, False)
 
End Sub

[EngueEngue]

Vire ton worksheetfunction: laisse ton application.vlookup

La formule semble correcte

[anthony14123]

Je viens de modifier cela.
Il me met désormais

Erreur d'exécution '-2147352571 (80020005)':
Impossible de définir la propriété Value. Type mismatch.

Cela ne peux pas venir du contenu trop long de ma cellule de la colonne 2?

[EngueEngue]

C'est quoi le contenu ?

[parmi]

Est-ce possible que le nom de ton onglet "Listing" contienne un espace ?
La formule semble correcte...

[anthony14123]

C'est une suite de chiffres, cela peut aller jusqu'à 10 chiffres.
Je viens de vérifier, il n'y a pas d'espace dans le nom de la feuille, je viens de regarder...

[EngueEngue]

Code :

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

Range("A1:C13052").value

essaie..

Peux tu nous filer ton classeur ? J'ai déjà rencontré des problèmes avec Vlookup, c'était souvent parce qu'il ne trouvait pas la data...