[VBA-EXCEL] Utiliser la fonction recherche

Bonjour,

Je voudrais utiliser la fonction "RECHERCHE" dans une macro. La fonction de recherche vectorielle : http://support.microsoft.com/kb/324986/fr

Dans l'aide, il est noté que l'on peut utiliser les fonctions excel dans VBA, avec "Application.WorksheetFunction.NomFonction", et la fonction recherche est bien présente dans la liste des fonctions disponibles.

Malheureusement quand j'essaye dans l'éditeur de macro, la fonction est introuvable, et si je tente quand même "Application.WorksheetFunction.recherche(..., ..., ...)", j'ai une erreur ...

Est ce que quelqu'un saurait comment utiliser cette fonction ou connait une alternative ?

essaye comme ça, c'est tiré de l'aide excel

Code:

---

1 2 3 4 5

Cet exemple montre comment afficher le résultat obtenu après application de la fonction de feuille de calcul Min à la plage A1:A10.   Set myRange = Worksheets("Sheet1").Range("A1:C10") answer = Application.WorksheetFunction.Min(myRange) MsgBox answer

---

bonjour

En complément de la réponse d'Alsimbad, la fonction doit être indiquée en anglais lorsque tu utilises WorksheetFunction:

Code:

---

MsgBox Application.WorksheetFunction.Lookup("xld", Columns(3), Columns(2))

---

michel

en complément de la réponse à SilkyRoad, voir :faq: VBA:


Comment trouver la traduction anglaise d'une fonction de feuille de calcul ?

;)

merci alsimbad, c'est bien le code que j'avais essayé, mais ce qu me manquait c'était effectivement le nom de la fonction en anglais !

Donc merci SilkyRoad.

D'ailleurs la traduction de recherche en lookup, explique le fait que, dans la liste des fonctions de l'aide excel, "recherche" soit classé dans les "L" ...

Donc j'avance mais j'ai maintenant une autre erreur :
"1004: Impossible de lire la propriété Lookup de la classe WorksheetFunction"

Voilà mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim HistoAchat As Worksheet Dim listeCollabo As Range Dim nomCollabo As String Dim ticketsAcheter As Integer   Set HistoAchat = Worksheets(2) Set listeCollabo = HistoAchat.Range("listeColla") nomCollabo = Range("nomColVenteSub").Text   ticketsAcheter = Application.WorksheetFunction.Lookup(nomCollabo, listeCollabo, totalAnnuel)

---

rebonjour

comment est définie la variable totalAnnuel?


michel

OUPS !! :oops:

désolé j'avais pas vu celle là, effectivement ça marche si on définit toutes les variables.

Faut que j'arrête de travailler tard le soir 8O

merci ;)