Peut on utiliser RECHERCHEV dans une function?

[dany13]

Bonjour!
J'ai le code suivant :

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 :

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😀

 

[wilfried_42]

Re : Peut on utiliser RECHERCHEV dans une function?

Bonjour

RechercheV c'est du francais, VBA, de l'anglais

La fonction pour RechercheV est Vlookup

 

[dany13]

Re : Peut on utiliser RECHERCHEV dans une function?

Et oui, si ça avait été aussi simple...mais non, le problème n'est pas là malheureusement...
Alors je me demande si il n'y a pas un problème de syntaxe mais il ne me met pas d'erreur...

C pas évident.

Une idée peut etre😕

 

[Cousinhub]

Re : Peut on utiliser RECHERCHEV dans une function?

Bonjour, essaie avec une de ces deux méthodes :

    x = [VLOOKUP(celluleSite,refTarifs,3,0)]
    x = Evaluate("VLOOKUP(celluleSite,refTarifs,3,0)")

 

[dany13]

Re : Peut on utiliser RECHERCHEV dans une function?

Malheureusement il e me met rien du tout...Et pourtant je lui fais afficher les valeur comme ceci :

Select Case sTaille
        Case "---", "0x0", "1x1"
            nTarif = 0
        Case "468x60"
            Debug.Print ("cas 2 ")
              x = [VLOOKUP(celluleSite,refTarifs,2,0)]
              x = Evaluate("VLOOKUP(celluleSite,refTarifs,2,0)")
            Debug.Print ("valeur cas 2 = " & x)
            Debug.Print ("valeur cas 2 = " & nTarif)
...

Et quand il va entrer dans le bon case il ne m'affiche que ça :

valeur stai = 468x60
cas 2

Que faire?
Merci🙁

 

[Cousinhub]

Re : Peut on utiliser RECHERCHEV dans une function?

RE-,
en mode pas à pas (F8), quand tu arrives à cette ligne, et que tu passes ta souris sur le "x", qu'est-ce qu'il affiche?
Peut-être que la valeur cherchée n'est pas trouvée dans ta base?