Discussion :

[Novice72]

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 :

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

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

[patricktoulon]

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 :

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

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 :

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

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

[joe.levrai]

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 :

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

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)

[patricktoulon]

Bonjour joe oui aussi

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

[unparia]

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

Code :

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

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é

[Novice72]

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

Encore merci.

NOVICE72

[RyuAutodidacte]

Coucou tous,

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


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

à 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

[unparia]

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 :

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

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

[RyuAutodidacte]

re Jacques,
Bien bien vu pour le message d'avertissement, j'avais pas fait ce test
avec le 0 en défaut dans les paramètres de Application.InputBox et c'est réglé
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

[unparia]

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 :

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

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

[patricktoulon]

re
oui si vous voulez

Code :

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

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 :

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

if bon=true thne

......

[unparia]

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

[patricktoulon]

re
bonjour unparia

Code :

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

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 :

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

 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

[patricktoulon]

tien comme ca tu a droit a 5 tentatives

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

[unparia]

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 )

[patricktoulon]

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

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
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 :

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

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

[RyuAutodidacte]

Salut Jacques,

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.

Coucou Patrick,

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

[patricktoulon]

une petite variante avec une seule variable bon

Code :

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

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

[unparia]

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

[unparia]

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) ?