création de fonction

[laurent J]

bonsoir

j'ai essayé de créer une fonction complémentaire mais lorsque je l'utilise elle s'arrête sur le 2ème Max et j'ai le message suivant "erreur de compilation, sub ou function non définie"

voici cette fonction
----------------------------------
Function pvm(qte, pa)

pvm = Max((qte) * (pa) + Max((qte) * (pa) * 0.0048, 7.78) / ((qte) - (qte) * 0.0048), (qte) * (pa) + Max((qte) * (pa) * 0.0048, 7.78) + 7.78) / (qte)

End Function


merci pour votre aide

 

[wally]

Bonjour Laurent J et le forum,

Essaye ceci :

Function pvm(qte, pa) As Double

pvm = Application.WorksheetFunction.Max((qte) * (pa) + Application.WorksheetFunction.Max((qte) * (pa) * 0.0048, 7.78) / ((qte) - (qte) * 0.0048), (qte) * (pa) + Application.WorksheetFunction.Max((qte) * (pa) * 0.0048, 7.78) + 7.78) / (qte)

End Function


Slts

wally

 

[laurent J]

c'est parfait. muchas gracias.

Cdlt.

Laurent