Discussion :

[nico253]

Bonjour, pour un programme j'ai besoin d'avoir deux nombres naturels.
(pour une combinaison)
j'entre donc :

Code :

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

1
2
3
4
5
6
7
8
9
a=-1
b=-1
 
while n<0 or n<>int(n) or p<0 or p<>int(p) or n<p
a=inputbox("a")*1 (*1 pour ne plus l'avoir en texte)
b=inputbox("b")*1 
wend
 
if....

le problème c'est que ça ne fonctionne pas.
ça vient du int, mais je ne sais pas pourquoi. Des fois, avec le int, si j'entre a= 5.4 il compte 54... et meme avec la virgule il rentre sans cesse dans la boucle si je rentre a=4 et b=3.

Une idée?


Merci d'avance

[Theze]

Bonjour,

Une piste. La fonction Int() renvoi un entier donc, elle arrondi la partie décimale à la valeur supérieure ou inférieure :

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
 
Sub Entier()
 
    Dim a As Single
    Dim b As Single
 
    a = -1
    b = -1
 
        While a < 0 Or b < 0 Or a < b
 
        On Error Resume Next
 
        a = CSng(InputBox("a"))
        If Err.Number <> 0 Then MsgBox "a doit être seulement numérique et seulement un entier !"
        Err.Number = 0
 
        b = CSng(InputBox("b"))
        If Err.Number <> 0 Then MsgBox "b doit être seulement numérique et seulement un entier !"
        Err.Number = 0
 
    Wend
 
End Sub

Hervé.

[nibledispo]

bonjour,

il n'y a pour moi aucun problème dans tes condition.

par ailleurs, quelque soit la valeur que tu donnes à a ou b, cela n'a aucune incidence sur la boucle puisque ces valeurs n'entrent pas dans les conditions.

enfin, la condition suivante doit avoir le même effet sauf erreur de ma part.

Code :

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

n <> Int(Abs(n)) Or p <> Int(Abs(p)) Or n < p

cordialement.