Je cherche =E0 faire la somme d'une variable dans une=20
boucle voici mon code mais je bloque sur la proc=E9dure de=20
totalisation :=20
For i =3D 1 To TextBox69.Value
'TI =3D Format((TextBox67.Value * 1) / 100, "0.00%")
Debug.Print TI
GA =3D AI / (1 + TI) ^ i
Debug.Print GA
Next i
Je veux avoir le total de GA selon le nombre de passage=20
de i
Si le 1er passage de ma boucle GA =3D 100 puis le 2eme=20
passage GA =3D 175 ,3e passage GA =3D 500 je veux avoir le=20
total apr=E8s ma boucle soit 775.
J'esp=E8re avoir =E9t=E9 claire dans mes explications
Bonsoir et merci pour vos r=E9ponses
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Neo1976_
GATot = 0 For i = 1 To TextBox69.Value 'TI = Format((TextBox67.Value * 1) / 100, "0.00%") Debug.Print TI GA = AI / (1 + TI) ^ i GATot = GATot + GA Debug.Print GA Debug.Print GATot Next i
Neo1976_
"Marco38" a écrit dans le message de news:0f5b01c3b2df$b7575170$ Bonsoir,
Je cherche à faire la somme d'une variable dans une boucle voici mon code mais je bloque sur la procédure de totalisation :
For i = 1 To TextBox69.Value 'TI = Format((TextBox67.Value * 1) / 100, "0.00%") Debug.Print TI GA = AI / (1 + TI) ^ i Debug.Print GA Next i
Je veux avoir le total de GA selon le nombre de passage de i
Si le 1er passage de ma boucle GA = 100 puis le 2eme passage GA = 175 ,3e passage GA = 500 je veux avoir le total après ma boucle soit 775.
J'espère avoir été claire dans mes explications Bonsoir et merci pour vos réponses
Marc
GATot = 0
For i = 1 To TextBox69.Value
'TI = Format((TextBox67.Value * 1) / 100, "0.00%")
Debug.Print TI
GA = AI / (1 + TI) ^ i
GATot = GATot + GA
Debug.Print GA
Debug.Print GATot
Next i
Neo1976_
"Marco38" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:0f5b01c3b2df$b7575170$a001280a@phx.gbl...
Bonsoir,
Je cherche à faire la somme d'une variable dans une
boucle voici mon code mais je bloque sur la procédure de
totalisation :
For i = 1 To TextBox69.Value
'TI = Format((TextBox67.Value * 1) / 100, "0.00%")
Debug.Print TI
GA = AI / (1 + TI) ^ i
Debug.Print GA
Next i
Je veux avoir le total de GA selon le nombre de passage
de i
Si le 1er passage de ma boucle GA = 100 puis le 2eme
passage GA = 175 ,3e passage GA = 500 je veux avoir le
total après ma boucle soit 775.
J'espère avoir été claire dans mes explications
Bonsoir et merci pour vos réponses
GATot = 0 For i = 1 To TextBox69.Value 'TI = Format((TextBox67.Value * 1) / 100, "0.00%") Debug.Print TI GA = AI / (1 + TI) ^ i GATot = GATot + GA Debug.Print GA Debug.Print GATot Next i
Neo1976_
"Marco38" a écrit dans le message de news:0f5b01c3b2df$b7575170$ Bonsoir,
Je cherche à faire la somme d'une variable dans une boucle voici mon code mais je bloque sur la procédure de totalisation :
For i = 1 To TextBox69.Value 'TI = Format((TextBox67.Value * 1) / 100, "0.00%") Debug.Print TI GA = AI / (1 + TI) ^ i Debug.Print GA Next i
Je veux avoir le total de GA selon le nombre de passage de i
Si le 1er passage de ma boucle GA = 100 puis le 2eme passage GA = 175 ,3e passage GA = 500 je veux avoir le total après ma boucle soit 775.
J'espère avoir été claire dans mes explications Bonsoir et merci pour vos réponses
Marc
Papyty
Salut @ Tous, Marco38 a écrit:
Je cherche à faire la somme d'une variable dans une boucle voici mon code mais je bloque sur la procédure de totalisation :
Essai
For i = 1 To TextBox69.Value 'TI = Format((TextBox67.Value * 1) / 100, "0.00%") Debug.Print TI GA = AI / (1 + TI) ^ i + GA Debug.Print GA Next i -- @+ Thierry
Salut @ Tous, Marco38 a écrit:
Je cherche à faire la somme d'une variable dans une
boucle voici mon code mais je bloque sur la procédure de
totalisation :
Essai
For i = 1 To TextBox69.Value
'TI = Format((TextBox67.Value * 1) / 100, "0.00%")
Debug.Print TI
GA = AI / (1 + TI) ^ i + GA
Debug.Print GA
Next i
--
@+
Thierry
Je cherche à faire la somme d'une variable dans une boucle voici mon code mais je bloque sur la procédure de totalisation :
Essai
For i = 1 To TextBox69.Value 'TI = Format((TextBox67.Value * 1) / 100, "0.00%") Debug.Print TI GA = AI / (1 + TI) ^ i + GA Debug.Print GA Next i -- @+ Thierry
Denis Michon
Bonsoir Marco38,
Ce qui suit n'est possible que si le séparateur décimal saisi dans tes textbox est le même que celui définit dans ton panneau de configuration. Au besoin, il y a tout ce qui faut sur le site à Misange pour contourner la situation.
'--------------------------- Private Sub LaSomme()
Dim B As Long If IsNumeric(Me.TextBox69) Then B = CLng(Me.TextBox69) Else MsgBox "La valeur saisie n'est pas un nombre." Me.TextBox69.SetFocus Me.TextBox69.SelStart = 0 Me.TextBox69.SelLength = Len(Me.TextBox67) Exit Sub End If
If IsNumeric(Me.TextBox67) Then For i = 1 To B TI = Format(CDbl(TextBox67) / 100, "0.00%") 'Tu fais la somme ici de quoi ? Next Else MsgBox "La valeur saisie n'est pas un nombre." Me.TextBox67.SetFocus Me.TextBox67.SelStart = 0 Me.TextBox67.SelLength = Len(Me.TextBox67) Exit Sub End If
End Sub '---------------------------
Salutations!
"Marco38" a écrit dans le message de news:0f5b01c3b2df$b7575170$ Bonsoir,
Je cherche à faire la somme d'une variable dans une boucle voici mon code mais je bloque sur la procédure de totalisation :
For i = 1 To TextBox69.Value 'TI = Format((TextBox67.Value * 1) / 100, "0.00%") Debug.Print TI GA = AI / (1 + TI) ^ i Debug.Print GA Next i
Je veux avoir le total de GA selon le nombre de passage de i
Si le 1er passage de ma boucle GA = 100 puis le 2eme passage GA = 175 ,3e passage GA = 500 je veux avoir le total après ma boucle soit 775.
J'espère avoir été claire dans mes explications Bonsoir et merci pour vos réponses
Marc
Bonsoir Marco38,
Ce qui suit n'est possible que si le séparateur décimal saisi dans tes textbox est le même que celui définit dans ton
panneau de configuration. Au besoin, il y a tout ce qui faut sur le site à Misange pour contourner la situation.
'---------------------------
Private Sub LaSomme()
Dim B As Long
If IsNumeric(Me.TextBox69) Then
B = CLng(Me.TextBox69)
Else
MsgBox "La valeur saisie n'est pas un nombre."
Me.TextBox69.SetFocus
Me.TextBox69.SelStart = 0
Me.TextBox69.SelLength = Len(Me.TextBox67)
Exit Sub
End If
If IsNumeric(Me.TextBox67) Then
For i = 1 To B
TI = Format(CDbl(TextBox67) / 100, "0.00%")
'Tu fais la somme ici de quoi ?
Next
Else
MsgBox "La valeur saisie n'est pas un nombre."
Me.TextBox67.SetFocus
Me.TextBox67.SelStart = 0
Me.TextBox67.SelLength = Len(Me.TextBox67)
Exit Sub
End If
End Sub
'---------------------------
Salutations!
"Marco38" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:0f5b01c3b2df$b7575170$a001280a@phx.gbl...
Bonsoir,
Je cherche à faire la somme d'une variable dans une
boucle voici mon code mais je bloque sur la procédure de
totalisation :
For i = 1 To TextBox69.Value
'TI = Format((TextBox67.Value * 1) / 100, "0.00%")
Debug.Print TI
GA = AI / (1 + TI) ^ i
Debug.Print GA
Next i
Je veux avoir le total de GA selon le nombre de passage
de i
Si le 1er passage de ma boucle GA = 100 puis le 2eme
passage GA = 175 ,3e passage GA = 500 je veux avoir le
total après ma boucle soit 775.
J'espère avoir été claire dans mes explications
Bonsoir et merci pour vos réponses
Ce qui suit n'est possible que si le séparateur décimal saisi dans tes textbox est le même que celui définit dans ton panneau de configuration. Au besoin, il y a tout ce qui faut sur le site à Misange pour contourner la situation.
'--------------------------- Private Sub LaSomme()
Dim B As Long If IsNumeric(Me.TextBox69) Then B = CLng(Me.TextBox69) Else MsgBox "La valeur saisie n'est pas un nombre." Me.TextBox69.SetFocus Me.TextBox69.SelStart = 0 Me.TextBox69.SelLength = Len(Me.TextBox67) Exit Sub End If
If IsNumeric(Me.TextBox67) Then For i = 1 To B TI = Format(CDbl(TextBox67) / 100, "0.00%") 'Tu fais la somme ici de quoi ? Next Else MsgBox "La valeur saisie n'est pas un nombre." Me.TextBox67.SetFocus Me.TextBox67.SelStart = 0 Me.TextBox67.SelLength = Len(Me.TextBox67) Exit Sub End If
End Sub '---------------------------
Salutations!
"Marco38" a écrit dans le message de news:0f5b01c3b2df$b7575170$ Bonsoir,
Je cherche à faire la somme d'une variable dans une boucle voici mon code mais je bloque sur la procédure de totalisation :
For i = 1 To TextBox69.Value 'TI = Format((TextBox67.Value * 1) / 100, "0.00%") Debug.Print TI GA = AI / (1 + TI) ^ i Debug.Print GA Next i
Je veux avoir le total de GA selon le nombre de passage de i
Si le 1er passage de ma boucle GA = 100 puis le 2eme passage GA = 175 ,3e passage GA = 500 je veux avoir le total après ma boucle soit 775.
J'espère avoir été claire dans mes explications Bonsoir et merci pour vos réponses
Marc
Marco38
Bonjour,
Merci c'est exactement ce que je voulais.
Marc
-----Message d'origine----- GATot = 0 For i = 1 To TextBox69.Value 'TI = Format((TextBox67.Value * 1) / 100, "0.00%") Debug.Print TI GA = AI / (1 + TI) ^ i GATot = GATot + GA Debug.Print GA Debug.Print GATot Next i
Neo1976_
"Marco38" a écrit dans le message de
news:0f5b01c3b2df$b7575170$ Bonsoir,
Je cherche à faire la somme d'une variable dans une boucle voici mon code mais je bloque sur la procédure de totalisation :
For i = 1 To TextBox69.Value 'TI = Format((TextBox67.Value * 1) / 100, "0.00%") Debug.Print TI GA = AI / (1 + TI) ^ i Debug.Print GA Next i
Je veux avoir le total de GA selon le nombre de passage de i
Si le 1er passage de ma boucle GA = 100 puis le 2eme passage GA = 175 ,3e passage GA = 500 je veux avoir le total après ma boucle soit 775.
J'espère avoir été claire dans mes explications Bonsoir et merci pour vos réponses
Marc
.
Bonjour,
Merci c'est exactement ce que je voulais.
Marc
-----Message d'origine-----
GATot = 0
For i = 1 To TextBox69.Value
'TI = Format((TextBox67.Value * 1) / 100, "0.00%")
Debug.Print TI
GA = AI / (1 + TI) ^ i
GATot = GATot + GA
Debug.Print GA
Debug.Print GATot
Next i
Neo1976_
"Marco38" <anonymous@discussions.microsoft.com> a écrit
dans le message de
-----Message d'origine----- GATot = 0 For i = 1 To TextBox69.Value 'TI = Format((TextBox67.Value * 1) / 100, "0.00%") Debug.Print TI GA = AI / (1 + TI) ^ i GATot = GATot + GA Debug.Print GA Debug.Print GATot Next i
Neo1976_
"Marco38" a écrit dans le message de
news:0f5b01c3b2df$b7575170$ Bonsoir,
Je cherche à faire la somme d'une variable dans une boucle voici mon code mais je bloque sur la procédure de totalisation :
For i = 1 To TextBox69.Value 'TI = Format((TextBox67.Value * 1) / 100, "0.00%") Debug.Print TI GA = AI / (1 + TI) ^ i Debug.Print GA Next i
Je veux avoir le total de GA selon le nombre de passage de i
Si le 1er passage de ma boucle GA = 100 puis le 2eme passage GA = 175 ,3e passage GA = 500 je veux avoir le total après ma boucle soit 775.
J'espère avoir été claire dans mes explications Bonsoir et merci pour vos réponses
Marc
.
Marco38
Bonjour,
Merci je vais tester ta solution
Marc
-----Message d'origine----- Bonsoir Marco38,
Ce qui suit n'est possible que si le séparateur décimal saisi dans tes textbox est le même que celui définit dans
ton
panneau de configuration. Au besoin, il y a tout ce qui faut sur le site à Misange pour contourner la situation.
'--------------------------- Private Sub LaSomme()
Dim B As Long If IsNumeric(Me.TextBox69) Then B = CLng(Me.TextBox69) Else MsgBox "La valeur saisie n'est pas un nombre." Me.TextBox69.SetFocus Me.TextBox69.SelStart = 0 Me.TextBox69.SelLength = Len(Me.TextBox67) Exit Sub End If
If IsNumeric(Me.TextBox67) Then For i = 1 To B TI = Format(CDbl(TextBox67) / 100, "0.00%") 'Tu fais la somme ici de quoi ? Next Else MsgBox "La valeur saisie n'est pas un nombre." Me.TextBox67.SetFocus Me.TextBox67.SelStart = 0 Me.TextBox67.SelLength = Len(Me.TextBox67) Exit Sub End If
End Sub '---------------------------
Salutations!
"Marco38" a écrit dans le message de
news:0f5b01c3b2df$b7575170$ Bonsoir,
Je cherche à faire la somme d'une variable dans une boucle voici mon code mais je bloque sur la procédure de totalisation :
For i = 1 To TextBox69.Value 'TI = Format((TextBox67.Value * 1) / 100, "0.00%") Debug.Print TI GA = AI / (1 + TI) ^ i Debug.Print GA Next i
Je veux avoir le total de GA selon le nombre de passage de i
Si le 1er passage de ma boucle GA = 100 puis le 2eme passage GA = 175 ,3e passage GA = 500 je veux avoir le total après ma boucle soit 775.
J'espère avoir été claire dans mes explications Bonsoir et merci pour vos réponses
Marc
.
Bonjour,
Merci je vais tester ta solution
Marc
-----Message d'origine-----
Bonsoir Marco38,
Ce qui suit n'est possible que si le séparateur décimal
saisi dans tes textbox est le même que celui définit dans
ton
panneau de configuration. Au besoin, il y a tout ce qui
faut sur le site à Misange pour contourner la situation.
'---------------------------
Private Sub LaSomme()
Dim B As Long
If IsNumeric(Me.TextBox69) Then
B = CLng(Me.TextBox69)
Else
MsgBox "La valeur saisie n'est pas un nombre."
Me.TextBox69.SetFocus
Me.TextBox69.SelStart = 0
Me.TextBox69.SelLength = Len(Me.TextBox67)
Exit Sub
End If
If IsNumeric(Me.TextBox67) Then
For i = 1 To B
TI = Format(CDbl(TextBox67) / 100, "0.00%")
'Tu fais la somme ici de quoi ?
Next
Else
MsgBox "La valeur saisie n'est pas un nombre."
Me.TextBox67.SetFocus
Me.TextBox67.SelStart = 0
Me.TextBox67.SelLength = Len(Me.TextBox67)
Exit Sub
End If
End Sub
'---------------------------
Salutations!
"Marco38" <anonymous@discussions.microsoft.com> a écrit
dans le message de
Ce qui suit n'est possible que si le séparateur décimal saisi dans tes textbox est le même que celui définit dans
ton
panneau de configuration. Au besoin, il y a tout ce qui faut sur le site à Misange pour contourner la situation.
'--------------------------- Private Sub LaSomme()
Dim B As Long If IsNumeric(Me.TextBox69) Then B = CLng(Me.TextBox69) Else MsgBox "La valeur saisie n'est pas un nombre." Me.TextBox69.SetFocus Me.TextBox69.SelStart = 0 Me.TextBox69.SelLength = Len(Me.TextBox67) Exit Sub End If
If IsNumeric(Me.TextBox67) Then For i = 1 To B TI = Format(CDbl(TextBox67) / 100, "0.00%") 'Tu fais la somme ici de quoi ? Next Else MsgBox "La valeur saisie n'est pas un nombre." Me.TextBox67.SetFocus Me.TextBox67.SelStart = 0 Me.TextBox67.SelLength = Len(Me.TextBox67) Exit Sub End If
End Sub '---------------------------
Salutations!
"Marco38" a écrit dans le message de
news:0f5b01c3b2df$b7575170$ Bonsoir,
Je cherche à faire la somme d'une variable dans une boucle voici mon code mais je bloque sur la procédure de totalisation :
For i = 1 To TextBox69.Value 'TI = Format((TextBox67.Value * 1) / 100, "0.00%") Debug.Print TI GA = AI / (1 + TI) ^ i Debug.Print GA Next i
Je veux avoir le total de GA selon le nombre de passage de i
Si le 1er passage de ma boucle GA = 100 puis le 2eme passage GA = 175 ,3e passage GA = 500 je veux avoir le total après ma boucle soit 775.
J'espère avoir été claire dans mes explications Bonsoir et merci pour vos réponses
