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
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.
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.
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.
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.
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.
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.
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