Inputbox et nombre entier

Bonjour à toutes et à tous,

J'ai créer un petit programme mais un problème subsiste : Je souhaite que la personne qui utilise le programme ne puisse pas entrer autre chose qu'un nombre entier compris entre 1 et 20 dans une "inputbox".

Code:

---

1 2	nombrevaluation = InputBox("Combien d'évaluation comptez-vous effectuer au cours de l'année scolaire ?", "Nombre d'évaluations")

---

Si la personne entre autre chose ( nombre décimal, lettre, etc..... ) je souhaite qu'un message apparaisse et lui "raffiche l'inputbox".

Est-ce quelqu'un peut m'aider ?

Merci d'avance.


Novice72

Bonjour
il y a 2 facon d'aborder ton soucis
soit ut utilise un imput box et tu gere la donnée entrée
soit tu utilise "application.inputbox qui on des parametre voir l'aide F1

pour le inputbox comme ceci:

Code:

---

1 2 3 4 5 6 7 8

Sub test() myvalue = InputBox("entrez un chiffre", "inputbox numerique", 0) If IsNumeric(myvalue) And Val(myvalue) <= 20 Then MsgBox "ok" Else If myvalue <> "" Then MsgBox "veuillez entrez un nunmero valide " End If End Sub

---

pour le application.inputbox comme ceci:

Code:

---

1 2 3 4 5 6 7 8

Sub test2() myvalue = Application.InputBox("entrez un chiffre", "inputbox numerique", , , , , , 1) If myvalue <> False And myvalue <= 20 Then MsgBox myvalue Else MsgBox "le numero que vous avez entré est superieur au max" End If End Sub

---

Bonjour,

si la saisie est réellement impérative, une méthode où on ne laisse plus le choix que de donner un nombre valable
l'arrêt du processus est basé sur la saisie du chiffre 0, qui s'obtient également si on clique sur le bouton "annuler"

Code:

---

1 2 3 4 5 6 7 8

Sub izi() Dim Nombre As Long, NombreTest As Double Do NombreTest = Application.InputBox("Entrez un nombre entier entre 1 et 20", , , , , , , 1) If NombreTest = 0 Then Exit Do If NombreTest = CInt(NombreTest) And NombreTest > 0 And NombreTest < 21 Then Nombre = NombreTest Loop While Nombre = 0 End Sub

---

Edit : Patrick, sur la fonction InputBox de Type 1, je suis casse pied, j'ai plutôt l'habitude de travailler sur un retour 0 plutôt que False lors de l'annulation, histoire de ne pas mélanger les Types (même si au final, le comportement est identique)

Bonjour joe oui aussi

perso je préfère utiliser la réponse originale de VBA

Bonjour
Voilà comment j'ai dans ce cas l'habitude de procéder

Code:

---

1 2 3 4 5 6 7 8

Dim bon As Boolean, entree As String Do While Not bon entree = InputBox("veuillez entrer un nombre entier entre 1 et 20") If StrPtr(entree) = 0 Then Exit Do ' -->> on a annulé If Val(entree) > 0 And Val(entree) <= 20 Then bon = True Loop ' voyons ce que nous avons saisi MsgBox IIf(bon, "vous avez saisi " & entree, "vous avez annulé")

---

qui me permet de tout contrôler, mais également de savoir si on a annulé ou quitté

Super merci à vous tous.
Je viens juste d'incorporer ce petit bout de programme qui fonctionne à merveille.

Encore merci.

NOVICE72

Coucou tous,

je testé tous les codes, mais celui qui correspond à la demande c'est celui de Joe :plusser: x 2


Sinon j'aime bien le code de Jacques qui permet de tout contoler :plusser:
et les code de Patrick pour montrer différentes méthodes :plusser:

à qui (J., J., P.) je passe un petit coucou ainsi que Joe ;)

par contre @Novice72, il faudra juste faire correspondre ces codes pour un entier et pas des nombres avec décimal

Bonjour Ryu
Chaque code avait un petit défaut.
Celui que tu as préféré, par exemple,
- conduit à un message d'avertissement si on clique d'emblée sur OK et "plus loin" si l'on "insiste"
- retient 0 si l'on annule ou quitte

Le mien, focalisé sur le "repérage" d'une annulation ou abandon, oubliait la vérification de la qualité d'entier.
Je vais corriger/compléter le mien et laisser les autres en faire autant avec le leur --->>

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim bon As Boolean, entree As String, L As Integer Do While Not bon entree = InputBox("veuillez entrer un nombre entier entre 1 et 20") If StrPtr(entree) = 0 Then Exit Do ' -->> on a annulé L = Len(entree) If entree Like String(L, "#") And Val(entree) > 0 And Val(entree) <= 20 Then bon = True End If Loop ' voyons ce que nous avons saisi MsgBox IIf(bon, "vous avez saisi " & entree, "vous avez annulé")

---

Bonne sieste à tous (y compris à moi).
Amitiés à tous

re Jacques,
Bien bien vu pour le message d'avertissement, j'avais pas fait ce test :oops:
avec le 0 en défaut dans les paramètres de Application.InputBox et c'est réglé
:plusser: pour les différentes remarques et la correction ;)

comme quoi toujours bien vérifier l'ensemble des paramètres en adéquation au code et à la problématique (la demande / le but à atteindre) …

Bonne sieste

Salut Ryu
Observons que la partie du test/bon aurait pu également se faire sans variable L ni comparaisons arithmétiques, ainsi, par exemple :

Code:

---

1 2 3

If entree Like "[1-9]" Or entree Like "1[0-9]" Or entree = "20" Then bon = True End If

---

re
oui si vous voulez

Code:

---

1 2 3 4 5 6 7

Sub test() entre = InputBox("entrez un numero", "inupt numerique") bon = entre = True Or IsNumeric(entre) And entre < 20 MsgBox bon MsgBox IsNumeric(entre) And entre < 20 'End If End Sub

---

1. 0 a 20 :bon=true
2. + de 20 bon=false
3. lettres bon=false
4. rien : bon =false

annuler bon=false on pourrait donc simplement faire apres

Code:

---

if bon=true thne

---

......

Bonjour paricktoulon
As-tu testé ton code ?
Il est à corriger. ;)

edit : et (une fois corrigé) : montre comment tu écris ta boucle avec ce code de sorte à :
- ne sortir que lorsque saisie conforme (d'un entier entre 1 et 20 inclus) ou annulation
- savoir si saisie annulée ou non en utilisant comme tu le proposes l'état seul de la booléenne bon

re
bonjour unparia

Code:

---

1 2 3 4 5 6 7 8

Sub test() entre = InputBox("entrez un numero", "inupt numerique") bon = entre = True Or IsNumeric(entre) And entre <= 20 And entre > 0 MsgBox bon MsgBox IsNumeric(entre) And entre <= 20 MsgBox entre 'End If End Sub

---

les 3 msgbox te donne la situation

si annulé les 3 msgbox te donneront faux,faux et rien et combien même si tu a tapé des bons chiffres avant d'annuler

si c'est plus grand que 20 les 3 msgbox te donneront faux,vrai,la donnée tapée

si c'est plus petit ou égal a 20 ca te donnera vrai,vrai la donnée tapée

parti de la si tu fait un

Code:

---

if bon=true then

---

tu ne dvrait pas pouvoir taper autre chose que de 1 a 20

après le mettre dans un do loop avec compteur histoire de proposer de 1 a X rattrapage si tu veux

tien comme ca tu a droit a 5 tentatives

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub test() Dim i i = 0 Do i = i + 1 entre = InputBox("tentative N° " & i & " entrez un numero", "inupt numerique") bon = entre = True Or IsNumeric(entre) And entre <= 20 And entre > 0 numbon = IsNumeric(entre) And entre < 20 If bon = False And entre = "" Then MsgBox "vous avez annuler" Exit Do ElseIf numbon Then Exit Do End If Loop Until i = 5 If bon = True Then MsgBox entre If bon = False And i = 5 Then MsgBox "vous avez griller vos 5 possibilités" End Sub

---

Toujours pas, patricktoulon ...
Tu devrais vraiment tester (idem pour la première de tes deux nouvelles propositions), hein ...
Tiens (comme tu dis) -->> (je vais zapper la1ère, car elle est pire) -->> la seconde (la "moins pire", donc) --->>
Lance et clique sur OK d'entrée de jeu --->> ton code dira que tu as .... ANNULE !
Bon ... Je vais faire ma sieste et te relirai lorsque tu auras su réparer également cela...
Mais : pour l'amour de Zeus --->> teste avant d'affirmer ... et de faire tourner en rond, s'il te plait. ;)

(Tu vas finir par y arriver, à la nécessité de vérifier sur la base de strptr ... et donc ? --->> de faire enfin ce que je dis depuis le tout début )

j'ai testé
autant pour moi j'ai zappé le zero
2 variantes

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub test() Dim i i = 0 Do i = i + 1 entre = InputBox("tentative N° " & i & " entrez un numero", "inupt numerique", 0) bon = entre = True Or IsNumeric(entre) And entre <= 20 And entre > 0 numbon = IsNumeric(entre) And entre < 20 If bon = False And entre = "" Then MsgBox "vous avez annuler" Exit Do ElseIf numbon Then Exit Do End If Loop Until i = 5 If bon = True Then MsgBox entre If bon = False And i = 5 Then MsgBox "vous avez griller vos 5 possibilités" End Sub

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub test2() Do i = i + 1 entre = InputBox("tentative N° " & i & " entrez un numero", "inupt numerique", 0) annuler = entre = ""'même si il y a zero par defaut le clique sur annuler donne "" pour entre numbon = IsNumeric(entre) And entre <= 20 And entre > 0 If annuler Or numbon Then Exit Do Loop Until i = 5 If annuler Then MsgBox "annulé!!" If numbon = False And i = 5 Then MsgBox "vous avez griller vos 5 possibilités" If numbon = True Then MsgBox entre End Sub

---

Salut Jacques, ;)

:plusser: pour la variante du post 10, je n'aurais pas pensé à le faire comme cela
C'est toujours intéressant de voir les variantes car cela permet de se perfectionner en apprenant toujours un peu plus, et les choses auxquels on n'aurait pas pensé, permettent de pouvoir les utiliser quand le cas s'y prête,
afin de d'améliorer toujours un peu plus son code. :ccool:

Coucou Patrick, ;)

:plusser: pour le test2, c'est bien d'avoir amener la notion du nombre de fois où l'on a droit de rentrer un nombre (petit bémol, il manque la partie pour que l'on puisse rentré qu'un entier et pas un nombre à virgule)
Par contre test1, pas d'indication de ce qui se passe pour l'utilisateur quand égal à 0 puisque ça quitte et on peut aussi rentrer des nombres négatif

une petite variante avec une seule variable bon

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub test3() Do i = i + 1 entre = InputBox("tentative N° " & i & " entrez un numero", "inupt numerique", 0) If entre = "" Then bon = "annulé!!": Exit Do If IsNumeric(entre) And entre <= 20 And entre > 0 Then bon = entre: Exit Do If Val(bon) = 0 And i = 5 Then bon = "5 tentatives epuisées" Loop Until i = 5 MsgBox bon End Sub

---

le message te dis bien si annuler ou bon avec 5 tentatives possible
Ryu pour les negatifs c'est pas possible par rapport a la ligne "if isnumeric......"
unparia "strptr" incognito ni dans les fenêtre de définition tout librairie confondues ni dans F1
excel 2007

Citation:

---

unparia "strptr" incognito ni dans les fenêtre de définition tout librairie confondues ni dans F1

---

Les petits "incognitos" de VBA sont plus nombreux que ce que tu penses, patricktoulon :D
Celui-ci, toutefois, est moins "incognito" que les autres "incognitos" et si tu fouilles bien (sur ta propre machine), tu sauras le trouver, parmi d'autre petits "incognitos" pas trop "incognitos".
Cherche un peu plus ... :coucou:

Quant à ta dernière "petite variante" : je vais la mettre à mal, "tiens" (comme tu aimes dire) --->>
L'utilisateur lance, voit le 0, l'efface et clique sur OK -->> et ... reçoit un message lui disant qu'il a ANNULE ;)

Tu y viens quand, à l'utilisation de strsptr (seule salvatrice possible) ? ;)