pythagore table de multiplication

Version imprimable

Bonjour,

Je cherche à faire une table de multiplication avec restriction des variables compris entre 0 et 10.

ci-dessous mon code :

Code:

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
Sub pythagore()
 
Dim nb1 As Integer
Dim nb2 As Integer
Dim total As Integer
Const fin = 10
 
nb1 = InputBox("veuillez rentrez un nombre 1")
    While nb1 > 10
        While nb1 < 0
            nb1 = InputBox("veuillez rentrez un nombre 1")
            total = nb1
        Wend
    Wend
 
nb2 = InputBox("veuillez rentrez un nombre 2")
    While nb2 > 10
        While nb2 < 0
            nb2 = InputBox("veuillez rentrez un nombre 2")
            total = nb1 * nb2
        Wend
    Wend
 
total = nb1 * nb2
total = MsgBox("resultat : " & total)
 
End Sub

Lorsque je lance mon algo avec une variable > 10 ou < 0, Access plante et ne prend pas mes boucles "tant que". comment dois je procéder?

Merci par avance,

15/02/2011, 11h37
Jean-Philippe André
salut,

il faut revoir soit tes tests soit tes boucles,

avec une syntaxe comme ceci
Code:

1 2 3 4 While nb1 > 10 While nb1 < 0 Wend Wend
tu ne pourrais jamais rentrer dans les deux boucles (a ma connaissance aucune nombre negatif n'est superieur a 10 :aie:)

Bonjour,
Essai avec une seule boucle :

Code:

1
2
3
4
5
 
    While nb1 > 10 Or nb1 < 0
        nb1 = InputBox("veuillez rentrez un nombre 1")
        total = nb1
    Wend

Une autre solution :

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Function NombreValide(Msg As String) As Integer
On Error Resume Next
    Do
        NombreValide = InputBox(Msg)
        If NombreValide > 0 And NombreValide < 11 Then Exit Function
    Loop
End Function
 
Sub Multiplication()
    MsgBox NombreValide("Saisir un premier nombre entre 1 et 10") * NombreValide("Saisir un deuxième nombre entre 1 et 10")
End Sub

salut,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Sub pythagore()
 
Dim nb1 As Integer
Dim nb2 As Integer
Dim total As Integer
Const fin = 10
 total=1
nb1 = InputBox("veuillez rentrez un nombre 1")
    While nb1 > 10 and nb1 < 0
       nb1 = InputBox("veuillez rentrez un nombre 1")
       Wend
   total =total*nb1
 
nb2 = InputBox("veuillez rentrez un nombre 2")
    While nb2 > 10 and nb2 < 0
            nb2 = InputBox("veuillez rentrez un nombre 2")
        Wend
 total = nb1 * nb2
total = MsgBox("resultat : " & total)
 End Sub

si j'ai bien compris votre problème:roll:
Bonne Chance:ccool: