incompatibilité des types ?

Bonjour,
Je n'arrive pas à détecter l'erreur dans le code vba suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub CommandButton1_Click() temp=0 Dim n As Integer Dim i As Integer n = TextBox2.Value For i = 1 To n temp = temp+[TextBox1.Value / ((1 + TextBox4.value) ^ i) '<-- ERREUR Next i TextBox5 = temp + (TextBox3.Value / ((1 + TextBox4.Value) ^ n)) End Sub

---

Sachant qu'on me dit que l'erreur se situe au niveau de la ligne indiquée ci-dessus.
Merci de m'aider si vous avez une idée.
Sachant qu'on le message sorti dit que c'est l'erreur d'exécution "13" incompatibilité des types.

Code:

---

1 2 3 4

Dim temp as double   n=val(TextBox2.Value) temp = val(TextBox1.Value) / ((1 + val(TextBox4.value)) ^ n)

---

je ne vois pas l'utilité de la boucle, en fin de compte temp prend la dernière valeur de i (qui est n)

PS: vba n'est pas un traitement de texte, attention aux crochets qui ont une autre signification

Bonjour,

a première vu plusieurs possibilités :

1) les textboxs contiennent contiennent un caractère alpha (vérifier le symbole décimale. VB a besoin d'un point et non une virgule qui est par défaut sur les excel français)

2) TextBox2.Value dépasse la capacité d'un integer soit 32768

Bonjour,
@ Mercatog :je me suis trompé, j'ai corrigé.
@jfontaine :Je vérifie ce que tu dis et je te répond.
En effet, j'ai fais les modification suivantes et ça marche.

Code:

---

1 2 3 4 5 6 7 8 9

Dim n As Double Dim i As Integer temp = 0 n = TextBox2.Value For i = 1 To n temp = temp + (TextBox1.Value / ((1 + TextBox4.Value) ^ i)) Next i TextBox5 = temp + (TextBox3.Value / ((1 + TextBox4.Value) ^ n)) End Sub

---

Merci pour votre aide.
Ah j'ai utiliser la virgule (j'utilise excel 2007), le point ne marche pas.