Peut-on utiliser RECHERCHEV dans une fonction ?

Version imprimable

Bonjour!
J'ai le code suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
Public Function Budget(celluleSite As Range, celluleTaille As Range, celluleNbImp As Range)
    Dim sSite As String
    Dim sTaille As String
    Dim nNbImp As Integer
 
    Dim refTarifs As Range
    Set refTarifs = ActiveWorkbook.Worksheets(4).Range("A4:H500")
 
    sSite = celluleSite.Text
    sTaille = celluleTaille.Text
    nNbImp = Val(celluleNbImp.Text)
 
    Dim nTarif As Integer
 
    Budget = 0
 
    Select Case sTaille
        Case "---", "0x0", "1x1"
            nTarif = 0
        Case "468x60"
            nTarif = Application.WorksheetFunction.RECHERCHEV(celluleSite, refTarifs, 2, False)
        Case "728x90"
            nTarif = Application.WorksheetFunction.RECHERCHEV(celluleSite, refTarifs, 3, False)
        Case "120x600"
            nTarif = Application.WorksheetFunction.RECHERCHEV(celluleSite, refTarifs, 4, False)
        Case "160x600"
            nTarif = Application.WorksheetFunction.RECHERCHEV(celluleSite, refTarifs, 5, False)
        Case "300x250"
            nTarif = Application.WorksheetFunction.RECHERCHEV(celluleSite, refTarifs, 6, False)
        Case "250x250"
            nTarif = Application.WorksheetFunction.RECHERCHEV(celluleSite, refTarifs, 7, False)
        Case Else
            nTarif = 0
    End Select
 
    Budget = nTarif * nNbImp / 1000
 
End Function

Et ça ne fonctionne pas parce qu'en fait, après moulte test dans tous les sens, il ne prend pas en compte les instructions contenues dans les case genre :

Code:

nTarif = Application.WorksheetFunction.RECHERCHEV(celluleSite, refTarifs, 7, False)

Alors je me demande si il est effectivement possible d'utiliser la fonction RECHERCHEV dans une function?
Et si non, comment puis je faire?

Merci de vos lumières!

A bientot:D

14/02/2008, 15h16
tirex28

Bonjour,

Il faut utiliser le nom anglais de la fonction:

Code:

nTarif = Application.WorksheetFunction.VLOOKUP(celluleSite, refTarifs, 2, False)

Cordialement,

Tirex28/
14/02/2008, 15h39
dany13

Merci pour cette reponse mais ce n'est pas ça ..:cry:
Comment puis je verifier que :

Code:

nTarif = Application.WorksheetFunction.RECHERCHEV(celluleSite, refTarifs, 7, False)

Me renvoie quelque chose?
Car quand je mets des Debug.print apres cette ligne, il ne me l'affiche pas donc je presume qu'il doit y avoir un probleme ... mais je ne vois pas ou? Est ce que la syntaxe est bonne?

Merci de votre aide
14/02/2008, 16h00
tirex28

Re,

VBA ne reconnait que les noms de fonctions en anglais.

Si ton code ne fait pas ce que tu veux c'est qu'il y a un autre probleme.

1) Assure toi de repérer toutes les erreurs possibles en insérant ceci au début de ta fonction:

Code:

On Error Goto 0

2) Affiche la fenetre variable locales pour verifier le contenu de tes variables

3) Execute ta fonction en pas a pas (F8) en lui fournissant des parametres devant la conduire à l'evaluation de ton instruction.

Cordialement,

Tirex28/
14/02/2008, 16h14
patbou

bonjour,

j ai survolé la discussion:cry:
la fonction find ne serait elle pas + adaptée?