Discussion :

[trentks95]

Bonjour à tous,

encore une fois j'ai besoin d'aide

alors si j'ai bien compris VB calcul en priorité les puissances malheureusement dans mon calcul les puissances doivent être calculé en dernier, voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Calucler_Click()
b = nbmensualité
 
t = (taux / 100)
z = Val(montantprêt) * t
y = Round((z / 12), 6)
j = 1 - (1 + t) / (12)
k = Round((j ^ (-b)), 1)
 
couttotal = k
 
 
    'Round((b / 12), 6)
    'couttotal = Val(montantprêt) * a / 12
    'mensualitéassu = Val(mensualité2) + Val(assuf)
 
End Sub

Alors comment je peux faire pour que VB la prenne le calcul en dernier ou y a t'il une autre solution.

Merci
Seb

[iclic]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
Private Sub Calucler_Click()
 
Dim couttotal As String
 
B = nbmensualité
 
T = (taux / 100)
Z = 2600 * T 'Val(montantprêt) * T
Y = Round((Z / 12), 6)
J = 1 - (1 + T) / (12)
K = ((J ^ (-B)))
 
couttotal = Str(K)
couttotal = Replace(couttotal, ".", ",")
'met un nombre sous la forme 0,00
couttotal = Euro(couttotal)
MsgBox (couttotal)
 
End Sub
Public Function Euro(H9$)
 
  Dim EU$, EU2$, EU3$, EU4$, EU5$
  Dim EU1 As Integer
 
  EU$ = H9$
  EU1 = InStr(EU$, ",")
  If EU1 = 1 Then EU$ = "0" + EU$: EU1 = 2
  If EU1 <> 0 Then
         EU$ = EU$ + "0"
         EU2$ = Left$(EU$, EU1 - 1): EU3$ = Mid$(EU$, EU1 + 1, 2)
         If EU2$ = " " Then EU2$ = "0"
         EU$ = EU2$ + "," + EU3$
                  Else
         EU$ = EU$ + ",00"
   End If
   Euro = EU$
End Function

[trentks95]

Merci pour ton aide mais j'ai toujours le même problème dans le calcul, le résultat est faux. Pourtant tout va bien jusqu'à la ligne 7 dans mon code et arrivé au calcul de puissance ça part en vrille !

[l_autodidacte]

La valeur de la variable j est tout le temps comprise entre 1 et 0 mais plus proche de 1.

Dans le calcul de la puissance, on a alors toujours 1 comme résultat.

Il faut vérifier si les formules de calcul sont correctes ou non.

A ta place je ferais, par exemple, ceci pour voir le contenu de toutes les variables

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Private Sub Calculer_Click()
    Me.Cls
    t = (120 / 100)
    z = Val(25000) * t
    y = Round((z / 12), 6)
    j = 1 - (1 + t) / 12
    couttotal = Format(j ^ (-b), "0.00")
 
    Print "t = ", t
    Print "z = ", z
    Print "y = ", y
    Print "j = ", Format(j, "0.00")
    Print "couttotal = ", couttotal
End Sub
 
Private Sub Form_Load()
    Me.AutoRedraw = True
    Me.FontSize = 13
    Me.FontBold = True
End Sub

[trentks95]

Vraiment tous les calculs sont bon jusqu'à la puissance négative, il me met error overflow.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Me.Cls
    t = (4 / 100)
    z = Val(150000) * t
    y = Round((z / 12), 6)
    j = 1 - (1 + t)
    k = j / 12
    l = (k ^ (-300))
    couttotal = l 'Format(k ^ (-300), "0.00")
 
    Print "t = ", t
    Print "z = ", z
    Print "y = ", y
    Print "j = ", Format(j, "0.00")
    Print "couttotal = ", couttotal

[trentks95]

Alors j'ai essayé integer, long et rien n'y fait à chaque étape tout est bien calculé, c'est la puissance qui fou tout en vrac !! voila la formule que je veux appliquer :

ça me rend dingue !