résultat recherchev

Salut !

Tu peux utiliser une fonction rechercheV mais tu peux aussi utiliser une autre solution comme indiqué ci-dessous :

Sub Search_ValeurPays

Dim StrSearch as string
Dim C
Dim ValeurResultat as double '''la valeur cible

''' On récupère le critère de ta recherche :
StrSearch=range("Pays") 'un exemple

''' On fait une recherche sur la feuille 2

With ThisWorkbook.Worksheets("Feuille 2").Range("LesPays")
Set C = .Find(StrSearch, LookIn:=xlValues)
'''si résultat
If Not C Is Nothing Then

ValeurResultat=C.offset(1,0) '''la valeur de la ligne sous la recherche !

'''si pas de résultat
else

msgbox "Aucun résultat pour ce pays !",vbexclamation,"Recherche terminée"

End If

End With

set C=nothing

end sub


Voilà, j'espère que cela peut t'aider, cette méthode étant aussi plus simple qu'une rechercheV.
Je reste à ta disposition, bon courage !

Clément

"S'il n'y a pas de solution, c'est qu'il n'y a pas de problème." (devise Shadock)

Bonjour,

Tu peux utiliser Rechercheh (la même chose que recherchev, mais sur des lignes et non des colonnes)
=RECHERCHEH(E1;A2:Z3;2;0)
=RECHERCHEH( valeur cherchée ; tableau de recherche ; n° de ligne ; précision )

Ou bien Index Equiv :
=INDEX(A3:Z3;EQUIV(E1;A2:Z2;0))

merci pour votre aide, j'ai bricolé ta soluce K@d et ça tourne comme je veux

Zorg