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