run time error '6' Over flow

Over flow error

le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub CmdOk_Click()   Dim i As Integer txtR.Text = "" i = 1 While i > 0 If Val(txtData.Text) Mod i = 0 Then txtR.Text = txtR.Text & i & vbCrLf End If i = i + 1 Wend End Sub

---

j'ai besoin d'aide

Bonsoir,

Revoit ta boucle While .. et décris nous son fonctionement..

Citation:

---

Envoyé par bbil

Bonsoir,

Revoit ta boucle While .. et décris nous son fonctionement..

---

cette boucle while permet de lister tous les diviseurs d’un entier entré

et elle se termine quand ?

Citation:

---

Envoyé par bbil

et elle se termine quand ?

---

elle ne se termine pas tant que i > 0

Et c'est quoi qui fait que i devient inférieur à 0 ....


Bon on va finir pas y arriver...

Citation:

---

Envoyé par bbil

Et c'est quoi qui fait que i devient inférieur à 0 ....


Bon on va finir pas y arriver...

---

Rien :D

Citation:

---

Envoyé par biyob00

Rien :D

---

bon le problème est cerné ...

Citation:

---

Envoyé par bbil

bon le problème est cerné ...

---

donc Il n'y a pas de solution

Réponds à 2 questions :
- quelle est la valeur limite d'un Integer ?
- quelle est la valeur maximum atteinte par i dans ta boucle ?

Citation:

---

Envoyé par DarkVader

Réponds à 2 questions :
- quelle est la valeur limite d'un Integer ?
- quelle est la valeur maximum atteinte par i dans ta boucle ?

---

la valeur limite d'un Integer est 32 767
et ma boucle s’arrête pas :s
comment l’arrêter ?
j'ai changer la boucle while par for mais je ne sais pas ou je vais m’arrêter ( for 1 to ???? step 1 )

Ben tu prends le problème à l'envers ... commence par savoir ce que tu veux faire avant d'essayer de le coder au "hasard" ..

Citation:

---

Envoyé par bbil

Ben tu prends le problème à l'envers ... commence par savoir ce que tu veux faire avant d'essayer de le coder au "hasard" ..

---

OK