Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !
Function Ki2(tablea As Range, tableb As Range)
'l afonction retourne faux si erreur
Dim nb1 As Long
Dim nb2 As Long
Dim cel As Range
Dim resul As Single
Dim val2 As Single
Dim val1 As Single
Dim val3 As Single
resul = 0
nb1 = 0
nb2 = 0
For Each cel In tablea
nb1 = nb1 + 1
Next cel
For Each cel In tableb
nb2 = nb2 + 1
Next cel
If nb1 <> nb2 Then
Ki2 = False
Exit Function
End If
nb1 = 0
For Each cel In tablea
nb1 = nb1 + 1
val2 = ki3(nb1, tableb)
val3 = (2 / val2)
val1 = (cel.Value - val2) ^ val3
resul = resul + val1
Next cel
Ki2 = resul
End Function
Private Function ki3(nb1 As Long, tableb As Range)
Dim cel As Range
Dim nb2 As Long
nb2 = 0
For Each cel In tableb
nb2 = nb2 + 1
If nb2 = nb1 Then Exit For
Next cel
ki3 = cel.Value
End Function
