Discussion :

[davyvba]

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 :

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

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.

[ouskel'n'or]

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

[ouskel'n'or]

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 :

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

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+

[davyvba]

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

[ouskel'n'or]

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

[davyvba]

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