Problème avec Vlookup.

Bonjour,

C'est le boulet de service qui vient encore vous solliciter.

J'ai des problèmes avec Vlookup. J'ai parcouru les sujets ayant traité cette fonction sur le forum mais mon faible niveau VBA ne m'a pas permis d'en faire bon usage :oops:
Voilà ma problématique:
D'une part, j'ai une table avec des noms de vendeurs (c'est un exemple car mes vraies données sont couvertes par le secret médical) et leur identifiant. Un identifiant unique par vendeur, cela va de soit.
D'autre part, j'ai un tableau avec des données sur des factures, dont l’identifiant du vendeur.
Je désire ajouter au tableau "factures", le nom du vendeur.

Mon code me renvoie le message suivant:
Erreur exécution '1004'
Impossible de lire la propriété Vlookup de la classe WorksheetFunction

Rien ne s'inscrit dans les cellules destination

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub Essai()   Dim I As Long   I = 1 While Not IsEmpty(Cells(I, 1))   Cells(I, 4).Value = Application.WorksheetFunction.VLookup(Cells(I, 2), Sheets("TCD").Range("A1:B51"), 2, False)   I = I + 1 Wend       End Sub

---

Merci d'avance pour votre aide
Amicalement
Jean-François

Vlookup est capricieuse!

Code:

---

Cells(I, 4).Value = Application.WorksheetFunction.VLookup(cstr(Cells(I, 2)), Sheets("TCD").Range("A1:B51"), 2, False)

---

Bonjour,

Effectivement Vlookup est capricieuse mais en plus elle est coriace car j'ai toujours le même message d'erreur !

Voici les déclarations que j'ai fait en début de macro, au cas où...

Code:

---

1 2 3 4 5 6 7 8

Option Explicit Public Prat As Long Public Ws As Worksheet Public prs As String Public i As Long Public LgnDeb As Long Public DerLgn As Long Public Ligne As Long

---

Merci pour le coup de main
J-F

Quelque chose de confidentiel? Peux tu m'envoyer ton fichier que je fasse quelques tests ?

Sinon

Code:

---

1 2 3 4 5 6 7 8

I = 1 On error resume next While Not IsEmpty(Cells(I, 1))   Cells(I, 4).Value = Application.WorksheetFunction.VLookup(Cells(I, 2), Sheets("TCD").Range("A1:B51"), 2, False)   I = I + 1 Wend

---

Et regarde à quelle ligne cela ne marche pas

Re bonjour

Je ne peux te communiquer mes fichiers car leurs données sont couvertes par le secret médical. Je sais que cela simplifierait les choses mais impossible.

Je viens d'essayer ta solution. Je n'ai plus de message d'erreur mais il ne se passe rien dans la colonne 4....

J-F

Et bien envoi ton fichier en modifiant les cases par des chaines de caractères du genre dfsuhfgsd il me suffit d'e trois lignes pour avoir la structure.

Ok je prépare les fichiers

Monsieur le dentiste,

Essayez de virer le worksheetfunction. Application.vlookup(...)

Bonjour EngueEngue,

Je ne comprends pas bien....

Amicalement
JF

bonjour,

essai de remplacer:

Code:

---

Cells(I, 4).Value = Application.WorksheetFunction.VLookup(Cells(I, 2), Sheets("TCD").Range("A1:B51"), 2, False)

---

par

Code:

---

Cells(I, 4).Value = Application.VLookup(Cells(I, 2), Sheets("TCD").Range("A1:B51"), 2, False)

---

Bonjour sims92.66,

Ça ne m arche toujours pas.

D'ailleurs, ca ne marche pas non plus si j'essaie de le faire manuellement avec RechercheV. N'y aurait-il pas un problème de nature de variable?

Sinon EngueEngue a résolu mon problème en proposant une macro avec deux boucles qui comparent les cellules une à une.

Cordialement
J-f