Discussion :

[zangaloni]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jfontaine]

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

[zangaloni]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.