Bonjour à vous,

J'ai commencé il y a quelques jours la programmation en VBA et je rencontre un problème, voici mon programme:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub Addition()
 
    Dim n As Integer
    Dim TabNombres() As Long
    Dim Res As Long
    Dim Nbre As Integer
 
    n = 0
 
    On Error Resume Next
 
    Nbre = InputBox(" Combien voulez vous de nombres ? ", " Combien de nombres ? ", "")
 
    For n = 1 To Nbre
 
        TabNombres(n) = InputBox("Saisissez les nombres !", _
        "Saisie des nombres", "")
        Res = TabNombres(n) + Res
        n = n + 1
 
    Next n
 
    AfficherResAddition "Le résultat du calcul est : " & Res
 
End Sub
--------------------------------------------------------------------------
Public Sub AfficherResAddition(Text As String)
 
    MsgBox Text, vbOKOnly + vbInformation, "Résultat du calcul"
 
End Sub
Ce programme demande à un utilisateur combien il veut de nombre afin de faire une simple addition, cependant je pense que ma boucle for a un problème car elle ne fait pas autant de boucle que le nombre souhaité, de plus le résultat est égal à 0 O_o. Voila j'attends votre aide avec impatience ^^