Variable qui ne retient pas la valeur
Bonjour à tous,
j'ai un petit morceau de code vraiment bizarre, où ma variable principal ne change pas son valeur lors qu'elle entre ou sort de la boucle:
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| cap_aux = 0
principal = CDbl(Me.txtSolde.Value)
AnEnCours = anEntree
MsgBox ("aw_princ " & AnEnCours & ": " & principal)
cap_aux = An1(AnEnCours, principal)(0, 2) + An1(AnEnCours, principal)(1, 2) + An1(AnEnCours, principal)(2, 2) + An1(AnEnCours, principal)(3, 2)
MsgBox ("cap_aux: " & cap_aux)
pricipal = principal + cap_aux
MsgBox ("principal: " & pricipal)
AnEnCours = AnEnCours + 1
While AnEnCours < anArret
MsgBox ("w_princ " & AnEnCours & ": " & principal)
cap_aux = cap_aux + AnComplete(AnEnCours, principal)(0, 2) + AnComplete(AnEnCours, principal)(1, 2) + AnComplete(AnEnCours, principal)(2, 2) + AnComplete(AnEnCours, principal)(3, 2)
MsgBox ("w_cap_aux: " & cap_aux)
pricipal = principal + cap_aux
MsgBox ("w_principal: " & pricipal)
AnEnCours = AnEnCours + 1
Wend
MsgBox ("dw_princ " & AnEnCours & ": " & principal) |
l'exemple:
Je fais principal (Me.txtSolde.Value)=1000
il fait cap_aux=8,611111
et j'ai la MsgBox ("principal: " & pricipal)=1008,611111
après l'entrée dans le While, le MsgBox ("w_princ " & AnEnCours & ": " & principal) donne principal = 1000,
pendant le boucle le principal change encore une fois et le principal ensuite le WEnd revient à 1000.
Est-ce que quelqu'un peut m'aider svp?
Merci d'avance