code Function en VBA

[Djamal]

bonjour tout le monde ;

Quelqu'un peut m'aider à vérifier ce code en VBA:

Function calcul(A,B,C)
A As Single 'cofficient 1
B As Single 'cofficient 1
C As Single 'cofficient 2
If A= 0 Then Calcul=(B+C)/3
if B=0 Then Calcul=(A+c)/3
------- Etc....
ELSE calcul = (A+B+C)/4
End if
End FUNCTION

Merci.

 

[Bernard_XLD]

Bonjour Djamal, le forum

rapidement
petit conseil, évite d'utiliser pour tes variables et tes fonctions des noms pouvant signifier quelque chose en VBA, (en mettant _ dans le nom par exemple)

A+

Function Calcul_Val(A As Single, B As Single, C As Single)
If B = 0 Then
     Calcul_Val = (A + C) / 3
Else
    If A = 0 Then
        Calcul_Val = (B + C) / 3
    Else
         Calcul_Val = (A + B + C) / 4
    End If
End If
End Function

 

[vekmort]

Bonjour Djamal et Yeahou,

Puisqu'on demande de faire des tests, alors voici la function qui marche chez moi... Contre toute attente j'ai inversé dans ma logique /3 et /4 !!!

Function calcul_perso(A, B, C)
Select Case calcul
Case A = 0 Or B = 0 Or C = 0
calcul = (A + B + C) / 4
Case Else
calcul = (A + B + C) / 3
End Select
End Function

Salut et bonne après-midi sportive !!!

Vekmort