[VBA-EXCEL] Utiliser la fonction recherche

**plasticgoat** · 15/02/2007, 00h21

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 ?

**alsimbad** · 15/02/2007, 06h24

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

Code :

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

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

**SilkyRoad** · 15/02/2007, 06h36

bonjour

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

Code :

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

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

michel

**SfJ5Rpw8** · 15/02/2007, 07h37

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

VBA:

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

**plasticgoat** · 15/02/2007, 09h53

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 :

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

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)