fonction Vlookup

Bonjour,

Je cherche à faire un test sur la recherchev afin de choisir la bonne valeur à rechercher.

Malhereusement seul le remier Bloc if est vérifié, le deuxième bloc n'est jamais exécuté.

Voila le code

Code:

---

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

Function Recherche_MtM_Mid_T2(CodeSummit1, CodePOD)     If IsError(Application.WorksheetFunction.VLookup([CodeSummit1], Workbooks("Export_MTM.xls").Worksheets("MTM_ALL_T2").Range("A:IV"), 6, False)) = False Then Recherche_MtM_Mid_T2 = Application.WorksheetFunction.VLookup([CodeSummit1], Workbooks("Export_MTM.xls").Worksheets("MTM_ALL_T2").Range("A:IV"), 6, False)   ElseIf IsError(Application.WorksheetFunction.VLookup([CodePOD], Workbooks("Export_MTM.xls").Worksheets("MTM_ALL_T2").Range("A:IV"), 6, False)) = False Then Recherche_MtM_Mid_T2 = Application.WorksheetFunction.VLookup([CodePOD], Workbooks("Export_MTM.xls").Worksheets("MTM_ALL_T2").Range("A:IV"), 6, False)     Else Recherche_MtM_Mid_T2 = "Non trouvé"   End If     End Function

---

Si vous voyez quelque chose de louche... je galère depuis un bon moment..

Merci d'avance.

Tu trouvera ici un élément de réponse ;)

Bonjour davyvba, bienvenue sur le forum.
Supprime false dans ta formule, j'ai vu hier que ça me posait un problème non systématique :(

Code:

---

1 2 3 4

If IsError(Application.WorksheetFunction.VLookup([CodeSummit1], _ Workbooks("Export_MTM.xls").Worksheets("MTM_ALL_T2").Range("A:IV"), 6)) = False Then Recherche_MtM_Mid_T2 = Application.WorksheetFunction.VLookup([CodeSummit1], _ Workbooks("Export_MTM.xls").Worksheets("MTM_ALL_T2").Range("A:IV"), 6)

---

Si ce n'est pas ça, tu dis ;)
A+

Et non malheureusement, ca ne marche toujours pas.
Seul le premier IF est pris en compte...
rrrrrrrrrrrrrrrrrrrrrrrrrrrr

Pourquoi prends-tu la plage A:IV alors que A est la colonne ou tu cherches la valeur fournie et F la colonne de la valeur que tu souhaites récupérer ?
Range("A:F"), 6... serait suffisant

il est vrai que c'est suffisant :lol:
Après ce changement la deuxième boucle n'est touours pas pris en compte..:evilred:
Merci en tout cas de t'occuper de mon cas.

:salut:

j'ai fait quelques tests, et comme cela ça ne peut pas marcher.

premier cas :

Citation:

---

If IsError(Application.WorksheetFunction.VLookup([CodeSummit1], _
Workbooks("Export_MTM.xls").Worksheets("MTM_ALL_T2").Range("A:IV"), 6))

---

Le ISERROR n'est jamais positionné car le VLOOKUP ne recherche pas l'exact match (pas de FALSE en dernier parametre). :aie:

Deuxième cas :

Citation:

---

If IsError(Application.WorksheetFunction.VLookup([CodeSummit1], _
Workbooks("Export_MTM.xls").Worksheets("MTM_ALL_T2").Range("A:IV"), 6, FALSE))

---

C'est ce qu'il faudrait faire, mais il semble pas possible de récupérer l'erreur 1004 , unable to get the Vlookup property of the Worksheet function class :scarymov:


Voici un proposition de solution qui devrait fonctionner (je l'ai testée avec des autres parametres, et cela fonctionne bien)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

If test_lookup([CodeSummit1], Workbooks("Export_MTM.xls").Worksheets("MTM_ALL_T2").Range("A:F"), 6) Then Recherche_MtM_Mid_T2 = Application.WorksheetFunction.VLookup([CodeSummit1], Workbooks("Export_MTM.xls").Worksheets("MTM_ALL_T2").Range("A:IV"), 6, False) Else If test_lookup([CodePOD], Workbooks("Export_MTM.xls").Worksheets("MTM_ALL_T2").Range("A:F"), 6) Then Recherche_MtM_Mid_T2 = Application.WorksheetFunction.VLookup([CodePOD], Workbooks("Export_MTM.xls").Worksheets("MTM_ALL_T2").Range("A:IV"), 6, False) Else Recherche_MtM_Mid_T2 = "Non trouvé" End If End If         Function test_lookup(Parm1 As Range, parm2 As Range, parm3 As Integer) As Boolean Dim nada As Variant On Error GoTo err_test nada = Application.WorksheetFunction.VLookup(Parm1, parm2, parm3, parm4) test_lookup = True bye: Exit Function   err_test: test_lookup = False Resume bye End Function

---

Un TRES TRES TRES TRES Grand merci.... GODZETSLA
Oouah....!!!!!!!!!!!!!!
CA MMMMMMAAAAAAAAAAAARRRCHE...
:yaisse2:

Longue vie à toi et à ce forum

:chin:

Avec plaisir.