Bonjour à tous,

Alors voici mon problème, je suis à ma première année de programmation mais je ne parviens pas à faire tourner ce programme ou plutôt il n'affiche pas ce qu'il devrait afficher ! Alors voici ce qu'il mais demandé :

Ecrire un programme qui demande à l'utilisateur 2 nombres entiers positifs N1 et N2. Le programme affichera alors tous les nombres entiers compris entre ces deux nombres, sauf les multiples de 3 et de 5.

Voici mon code :

---------------------------------------------------------------------------

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
Private Sub main()
 
Dim n1 As Integer
Dim n2 As Integer
Dim n3 As Integer
Dim i As Integer
 
Do
n1 = InputBox("Entrez le premier nombre entier positif: ")
n2 = InputBox("Entrez le deuxième nombre entier posotif: ")
Loop Until n1 < n2
n3 = 0
For i = n1 To n2
 If i Mod 3 = 0 And i Mod 5 = 0 Then
    n3 = 0
 Else: If i Mod 3 > 0 And i Mod 5 > 0 Then n3 = n3 + 1
 End If
Next i
MsgBox ("Nombres entiers compris entre ces deux nombres sauf les multiples de 3 et de 5 :" & n3)
 
End Sub
---------------------------------------------------------------------------

Qu'est ce qui ne va pas pour que mon programme m'affiche toujours 0 ?

Merci d'avance...
20cents