Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Ecriture d'une fonction

yaka

XLDnaute Occasionnel
Bonjour

Je suis en train de m'écrire une fonction.
Par exemple la suivante

Function gain(pa, pv) As Double
gain = Round(pa, 0) * pv - Application.WorksheetFunction.Max(pa * pv * comP, ComE) - (Round(pa, 0) * pa + Application.WorksheetFunction.Max(pa * pa * comP, ComE))

End Function

...où

Const ComE = 7.78
Const comP = 0.0048


Pour la fonction Max suis-je obligé d'écrire à chaque fois Application.WorksheetFunction.??

merci
 
A

AV

Guest
Ave,

Le mieux serait que tu nous dises ce que tu cherches à faire avec la fonction perso

''...Pour la fonction Max suis-je obligé d'écrire à chaque fois Application.WorksheetFunction.??...''
Tu peux te contenter de ''Application.Max(...)''

AV [aaa]
 

yaka

XLDnaute Occasionnel
cette fonction perso fonctionne...
... Mon seul souci est de savoir si je peux raccourcir les lignes de codes?

mais je peux l'expliquer si c'est vraiment nécessaire.
 
A

AV

Guest
''...cette fonction perso fonctionne...''

On n'a jamais dit le contraire..
Quoique...la fonction vba ''Round'' étant bien connue comme étant de la deaube, il se pourrait bien que..

Bon... allez...
AV [aaa]
 

yaka

XLDnaute Occasionnel
AV écrit:

j'avais pas tout lu... je vais donc me contenter de Application.Max()


Merci
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…