Discussion :

[Yvanou]

Bonjour,

Je souhaite créer une fonction contenant une boucle qui m'actualise une valeur, c'est à dire que pour chaque tour dans la boucle, ma valeur change.

J'ai écrit le bout de code suivant mais la valeur de Actualisation ne change pas. Pire, la somme de départ 1 + Taux ne se fait pas!!!

Comment faire?

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
Sub Essai3()
 
Application.Volatile
 
Dim Actualisation As Long
Dim Taux As Long
Dim i As Integer
 
Taux = 0.03
 
Actualisation = 1 + Taux
 
For i = 1 To 10
    Actualisation = Actualisation * (1 + Taux)
Next i
 
MsgBox "Actualisation = " & Actualisation
 
 
End Sub

[Minick]

Salut,

C'est juste un probleme de typage.
Un long n'a pas de chiffres apres la virgule donc 0.03 devient 0

Change tes Long en Double

++
Minick

[LeForestier]

Bonjour,
Changer

Code :

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

1
2
Dim Actualisation As Long
Dim Taux As Long

par

Code :

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

1
2
Dim Actualisation As Double
Dim Taux As Double

Les type long et integer ne calcul pas avec une virgule, ce sont des entier.
A+

[Yvanou]

Oki, merci effectivement ça fonctionne maintenant!!