Discussion :

[glamgeek]

Bonjour a tous
je suis debutante en VBA
et j'ai un probleme avec le code ci-dessous

quand je l'execute j'ai une "erreur du type 13 incompatibilite de type"

le code ci-dessous doit faire la somme des N premiers nombres
pourriez vous m'aider?
merci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Sub Somme()
Dim Somme As Integer
Dim n As Integer
Dim i As Integer
Nombre = InputBox$("Entrez un nombre")
n = Val(Nombre)
Somme = 0
For i = 1 To n
    Somme = Somme + i
Next i
Nombre = Str(Somme)
MsgBox ("La somme des" + i + "premiers nombres est" + Nombre)
End Sub

[Qwazerty]

Bonjours et bienvenu
Il est préférable d'indiquer la ligne ou ce trouve l'erreur, bon ici les code est court donc ça va aller ^^

Code :

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

MsgBox ("La somme des" + i + "premiers nombres est" + Nombre)

Ici tu fais bien ton transtypage en mettant somme, qui est un entier, dans Nombre, qui est un variant ici, en lui indiquant

Code :

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

Nombre = Str(Somme)

il faut donc faire la même chose pour i

Code :

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

MsgBox ("La somme des" + str(i) + "premiers nombres est" + Str(Somme))

Tu peux également noter que la conversion peut se faire directement dans la ligne de code du msgbox

A++
Qwaz

[glamgeek]

C'est Bon, ça marche

Merci Qwazerty!!!!