XL 2013 CODE VBA FORMULE DE RECHERCHE

[vinciHorus]

Bonjour

j'ai le tableau suivant

mer	ocean	lieu	code
q	l	t	2
a	p	e	3

j'aimerai faire une recherche telle que avec le code (Colonne D) je trouve la mer (Colonne A) donc de D à A


ma ligne de code
.Range("B" & i) = Application.VLookup(.Range("E" & i), Worksheets("tabrecher").Range("A : D"), 1, False) 'Formule de recherche

 

[sylvanu]

Bonjour VinciHorus,
Avec VLookup la valeur recherchée doit être obligatoirement à droite de la colonne où est recherché le critère.
Vous pouvez rechercher un lieu en fonction de la mer, mais pas la mer en fonction du lieu.

Méthode WorksheetFunction.VLookup (Excel)

Office VBA reference topic

docs.microsoft.com

Donc il faut passer par Index Equiv :

Sub Essai()
    ' recherche de la ligne où se trouve le critère
    IndexL = Application.Match(3, Range(Cells(1, 4), Cells(100, 4)))
    ' extraction de la donnée sur cette même ligne
    Valeur = Cells(IndexL, 1)
End Sub

Ainsi avec recherche de 3 sur la colonne 4, on extrait "a" de la colonne 1.

 

[vinciHorus]

Bonjour VinciHorus,
Avec VLookup la valeur recherchée doit être obligatoirement à droite de la colonne où est recherché le critère.
Vous pouvez rechercher un lieu en fonction de la mer, mais pas la mer en fonction du lieu.

Méthode WorksheetFunction.VLookup (Excel)

Office VBA reference topic

docs.microsoft.com

Donc il faut passer par Index Equiv :

Sub Essai()
    ' recherche de la ligne où se trouve le critère
    IndexL = Application.Match(3, Range(Cells(1, 4), Cells(100, 4)))
    ' extraction de la donnée sur cette même ligne
    Valeur = Cells(IndexL, 1)
End Sub

Ainsi avec recherche de 3 sur la colonne 4, on extrait "a" de la colonne 1.

merci pour la réponse
je l'adapte et je reviens vers vous

 

[vinciHorus]

Bonjour VinciHorus,
Avec VLookup la valeur recherchée doit être obligatoirement à droite de la colonne où est recherché le critère.
Vous pouvez rechercher un lieu en fonction de la mer, mais pas la mer en fonction du lieu.

Méthode WorksheetFunction.VLookup (Excel)

Office VBA reference topic

docs.microsoft.com

Donc il faut passer par Index Equiv :

Sub Essai()
    ' recherche de la ligne où se trouve le critère
    IndexL = Application.Match(3, Range(Cells(1, 4), Cells(100, 4)))
    ' extraction de la donnée sur cette même ligne
    Valeur = Cells(IndexL, 1)
End Sub

Ainsi avec recherche de 3 sur la colonne 4, on extrait "a" de la colonne 1.

comment l'adapter ici

For i = t To Lig

If Cells(i, 3).Value = Empty Then End

.Range("B" & i) = Application.VLookup(.Range("E" & i), Worksheets("tabrecher").Range("A"), 1, False) 'Formule de recherche


Next i

 

[sylvanu]

Re,
Essayez ceci :

Sub Essai2()
'.Range("B" & i) = Application.VLookup(.Range("E" & i), Worksheets("tabrecher").Range("A:D"), 1, False) 'Formule de recherche
' valeur recherchée :       .Range("E" & i)
' colonne de recherche :    Worksheets("tabrecher").Range("D:D")
' colonne d'extraction :    Worksheets("tabrecher").Range("A:A")

    For i = t To Lig
        If Cells(i, 3).Value = Empty Then End
        IndexL = Application.Match(.Range("E" & i), Worksheets("tabrecher").Range("D:D"), 0)
        Valeur = Worksheets("tabrecher").Range("A" & IndexL)
    Next i
End Sub