Discussion :

[dany13]

Bonjour!
J'ai le code suivant :

Code :

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

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 :

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

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

[tirex28]

Bonjour,

Il faut utiliser le nom anglais de la fonction:

Code :

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

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

Cordialement,

Tirex28/

[dany13]

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

Code :

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

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

[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 :

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

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/

[patbou]

bonjour,

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