À l'aide d'une plage nommée dans la fonction VBA pour RECHERCHEV

J'ai le suivant sur ma feuille de calcul:

  • Une cellule d'une monnaie [en A1]
  • Une plage de cellules (deux colonnes, l'une pour la monnaie, et l'autre pour un correspondant pourcentage de commission) [défini comme/named/RANGE, et l'étendue de la feuille de calcul]
  • Une cellule [tente] pour déterminer le calcul de pourcentage de commission basée sur A1 et RANGE

J'ai ensuite une fonction VBA appelé Calculate, comme suit:

Function Calculate(LookupValue As Double, LookupRange As Range) As Double
    Calculate = [VLOOKUP(LookupValue, LookupRange, 2)]
End Function

La cellule qui détermine le pourcentage est le suivant:

=Calculate(A1, RANGE)

Problème, c'est que la cellule ne renvoie #VALUE!...

Une idée de ce que je pourrais faire de mal?

J'ai essayé plusieurs choses comme le type-hinting à Range(), en passant LookupRange.Value2 à VLOOKUP, etc, aucun n'a fonctionné.

J'ai aussi essayé de déboguer, notant que LookupRange ne contiennent en réalité l'autonomie requise en Value2, qui est pourquoi j'ai essayé de le passer à la fonction.

Note de côté: La fonction et de la disposition mentionnée ci-dessus est juste un mannequin - la fonction réelle est un peu plus complexe car elle repose sur des tarifs négociés, mensuel des marges, etc. C'est pourquoi je suis à l'aide de VBA en premier lieu. Je sais que je suis en train de faire quelque chose de mal avec la recherche, comme c'est la seule chose qui semble être à défaut au sein de la fonction - tout le reste correspond et calcule.

  • se débarrasser de la [] qui renvoie un objet range. Il n'y a pas de plage appelée quelle que soit votre recherche retourne. Vous souhaitez retourner la valeur: Calculate = Application.WorksheetFunction.RECHERCHEV(LookupValue, LookupRange, 2)`
InformationsquelleAutor Mike Rockétt | 2014-05-06
  1. 11

    De MSDN:

    L'avantage d'utiliser des crochets, c'est que le code est plus court. L'avantage de l'utilisation de Evaluate est que l'argument est une chaîne de caractères, de sorte que vous pouvez construire la chaîne dans votre code ou de l'utilisation d'une variable Visual Basic.

    en d'autres termes, vous peut utilisation

    Calculate = [VLOOKUP(3, A1:B100, 2)]

    mais vous ne peut pas utilisation

    LookupValue = 3
LookupRange = Range("A1:B100")
'or
'LookupRange = "A1:B100"
Calculate = [VLOOKUP(LookupValue, LookupRange, 2)]

    Ce que vous pouvez faire est:

    Option 1:

    Function Calculate(LookupValue As Double, LookupRange As Range) As Double
    Calculate = Evaluate("VLOOKUP(" & LookupValue & "," & LookupRange.Address & ", 2")
End Function

    ou mieux:

    Function Calculate(LookupValue As Double, LookupRange As Range) As Double
    Calculate = Evaluate("VLOOKUP(" & LookupValue & ",'" & _
        LookupRange.Parent.Name & "'!" & LookupRange.Address & ", 2")
End Function

    Cependant, je suggère:

    Option 2:

    Function Calculate(LookupValue As Double, LookupRange As Range) As Double
    Calculate = Application.VLookup(LookupValue, LookupRange, 2)
End Function

    J'espère que vous savez au sujet de la signification de 4ème paramètre:

    Si TRUE ou omis, exacte ou approximative match est retourné. Si une correspondance exacte n'est trouvée, la prochaine plus grande valeur qui est inférieure à lookup_value est retourné.
    Les valeurs dans la première colonne de table_array doivent être placés dans l'ordre de tri croissant; sinon, VLOOKUP ne peut pas donner la bonne valeur. Vous pouvez mettre les valeurs dans l'ordre croissant en choisissant la commande Trier dans le menu Données et en sélectionnant dans l'ordre Croissant.

    Btw, Calculate n'est pas bon nom pour l'UDF, depuis VBA déjà a la fonction Application.Calculate. J'avais le renommer pour éviter toute confusion.

    • +1 pour l'importance de la 4ème paramètre. J'ai vu tellement de fois où cela n'est pas fait et les gens veulent savoir pourquoi il ne fonctionne pas de la manière qu'ils attendent.
    • Parfait, merci de ton 🙂 Option 2 a fonctionné pour moi... j'ai essayé quelque chose de similaire pour que, lorsque je faisais des tours, et il retourna encore une #VALUE, mais j'ai peut-être manqué quelque chose... de toute façon, il fonctionne maintenant. (Je suis un VBA débutant à essayer de trouver quelque chose pour un client très apprécié.) 🙂
    • Oh, et oui, je suis consciente de la 4ème paramètre - j'ai besoin d'être approchée dans mon cas. Encore un grand merci 🙂
    InformationsquelleAutor Dmitry Pavliv