Nombre naturel macro excel

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

Code:

---

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

Bonjour,

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

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

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é.

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:

---

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

---

cordialement.