Discussion :

[Maxence45]

Bonsoir , j'ai écrit ce morceau de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Function valeur(ByVal x As Double) As Double
Const Cb = 5
Const Cm = 12
    If x <= 10000 Then
        valeur = Cb + Cm + x*1,2

Sur la dernière ligne je dis bien que la fonction valeur vaut la constante cb + la constante cm + la variable x multipliée par 1,2 .

Je ne vois pas où est le probleme car j'ai déjà vu des codes ou on attribuait directement une valeur numérique à la fonction , genre la fonction polynome :

polynome = 3 , ya pas d'erreur de syntaxe , alors pq dans la mienne yaurait une erreur de syntaxe ?

merci

[Maxence45]

j'ai résolu le probleme de syntaxe mais là j'ai un probleme de compilation dû au nombre d'arguments , pour dans ma définition de fonction je ne définis qu'un argument à manipuler :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Function valeurCommission(ByVal x As Double) As Double
Const Cb = 5
Const Cm = 12
    If x <= 10000 Then
        valeurCommission = valeurCommission(x * 0, 12) + Cb + Cm
    Else
        valeurCommission = valeurCommission(x * 0, 9) + Cb + Cm
    End If
End Function

[fred65200]

re bonsoir Maxence

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
  valeur = Cb + Cm + x*1,2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
  valeur = Cb + Cm + x*1.2

VBE ne reconnait pas la virgule comme séparateur décimal

@+

[Maxence45]

bon ok alors j'ai modifié , tout compile bien mais quand je teste cette fonction dans excel j'ai un #valeur! .

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Function valeurCommission(ByVal x As Double) As Double
Const Cb = 5
Const Cm = 12
    If x <= 10000 Then
        valeurCommission = valeurCommission(x * 0. 12) + Cb + Cm
    Else
        valeurCommission = valeurCommission(x * 0. 9) + Cb + Cm
    End If
End Function

c'est donc une erreur en rapport avec le typage , est ce que par hasard ça serait pas dû aux Cb et Cm que j'ai mis dans valeurComission ?

merci

[fred65200]

re

essaie de lire ta fonction en français.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Function valeurCommission(ByVal x As Double) As Double
Const Cb = 5
Const Cm = 12
valeurCommission = IIf(x <= 10000, (x * 0.12) + Cb + Cm, (x * 0.9) + Cb + Cm)
'ou
'    If x <= 10000 Then
'        valeurCommission = (x * 0.12) + Cb + Cm
'    Else
'        valeurCommission = (x * 0.9) + Cb + Cm
'    End If
End Function

cordialement

[Maxence45]

je n'ai pas compris ton dernier message...je relis ma fonction et je ne vois pas vraiment ce qui cloche , la seule hypothèse que je peux faire c'est qu'il y a un problème avec les types...mais je ne le vois pas

[fred65200]

re

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
valeurCommission = valeurCommission(x * 0.12) + Cb + Cm

comment lis tu ceci?
Tu avais bien commencé (hormis le séparateur décimal)

Bonsoir , j'ai écrit ce morceau de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Function valeur(ByVal x As Double) As Double
Const Cb = 5
Const Cm = 12
    If x <= 10000 Then
        valeur = Cb + Cm + x*1,2

fred

[Maxence45]

la fonction valeurCommission renvoit la valeur de x multipliée par 0.12 , et on ajouter à ce résultat la valeur de la constante Cm et Cb

[fred65200]

Ce que tu viens de traduire, c'est ce que tu dois écrire.
Il y a une ValeurCommission que tu n'as pas traduit

@+