Priv Function renvoie 0

Question

Bonjsoir forum,

J'ai fait une fonction, mais lorsque je la teste dans une cellule elle me renvoie la valeur 0, mais si je la test en VBA, exemple je crér un macros pour la faire fonctionner via vba, ma fonction me renvoie le bon résultat, pouvez vous me dire ou est le problème

Function Hrs_est(ByVal Valeur_F As Long, ByRef Pan As Range) As Variant
Dim HrsTech As Variant
Dim PondPan, Pondh, Pondvaleur As Integer

Application.Volatile

With Worksheets("Légendes")
    Pondvaleur = .Range("T15:W15").Find(Pan.Offset(0, 12), lookat:=xlWhole).Offset(1, 0)
    PondPan = .Range("T15:W15").Find(Pan.Offset(0, 12), lookat:=xlWhole).Offset(2, 0)
    Pondh = .Range("T15:W15").Find(Pan.Offset(0, 12), lookat:=xlWhole).Offset(3, 0)

    If Pan = 0 Then Pondvaleur = 1

    HrsTech = (Valeur_F / .Range("T9").Value * Pondh) + (Pan / .Range("T8").Value * PondPan)

    If HrsTech < 1 Then HrsTech = 1.5

End With

End Function

Merci!!

Banzai64 · Accepted Answer

Bizarre autant qu'étrange Même en VBA cette fonction te retournera 0 Je ne sais pas comment tu fais, mais pour moi il manque une instruction du style Hrs_est = HrsTech Avant de quitter la fonction...