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 : 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
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