function qui ne fonctionne pas

[GTE]

Bonjour,
je dois faire qlqch de bete. Y'a quelqu'un qui peut m'eclairer? cette fichu fonction veut rien savoir.
Merci d'avance,


Function Rthmal(thick() As Range, lambda() As Range) As Double
Dim Rtemp As Double
Dim i As Integer
Rtemp = 0
For i = LBound(thick) To UBound(thick)
Rtemp = Rtemp + thick(i) / lambda(i)
Next i
Rthmal = Rtemp
End Function

 

[RENAUDER]

Re : function qui ne fonctionne pas

Bonjour,
Je ne sais si c'est que tu veux mais voici une correction de ta fonction.

Function Rthmal(Thick As Range, Lambda As Range) As Double
    Dim Rtemp As Double
    Dim i As Integer
    A = Thick.Value
    B = Lambda.Value
    Rtemp = 0
    For i = LBound(A) To UBound(A)
        Rtemp = Rtemp + A(i, 1) / B(i, 1)
    Next i
    Rthmal = Rtemp
End Function

 

[GTE]

Re : function qui ne fonctionne pas

Bonjour,
Je ne sais si c'est que tu veux mais voici une correction de ta fonction.

Function Rthmal(Thick As Range, Lambda As Range) As Double
    Dim Rtemp As Double
    Dim i As Integer
    A = Thick.Value
    B = Lambda.Value
    Rtemp = 0
    For i = LBound(A) To UBound(A)
        Rtemp = Rtemp + A(i, 1) / B(i, 1)
    Next i
    Rthmal = Rtemp
End Function

Merci, mais je crois que cette fonction ne marche que si je met mes chiffres en colonnes. Elle ne fonctionne pas si je mets en lignes.

Merci en tout cas pour l'aide