Interdir la saisie alphabetique dans une boite de saisie

Question

Bonjour, je suis novice et j'aurai besoin d'aide pour un projet.

Voil&#224; le contexte :

- Je saisie une valeur dans une boite de saisie (dll cr&#233;e par mon professeur d'algo).
- Les valeurs autre que celles d'un d&#233; &#224; 6 faces sont interdite (0,7,8,9,...).
- Le r&#233;sultat de ma saisie est stock&#233; dans une variable (Entier, car des op&#233;rations suivent)

Je voudrais interdire la saisie de caract&#232;re alphab&#233;tique et donc afficher un message d'erreur si un caract&#232;re alphab&#233;tique &#233;tais saisie.

Merci pour votre aide.

cs_SkyrOu · Answer

Je pr&#233;cise qu'il ne faut pas utiliser le KeyPress.

Julien237 · Answer

Je fais le code en vitesse comme ca : dim Pom as string, value as long 'Pom est l'entrée de texte, value la valeur une 'fois qu'on a vérifié qu'elle était valable... if str(val(Pom))=Pom and Val(Pom)>0 and Val(Pom)<7 and Val(Pom)=Int(Val(Pom)) then 'Ok, bonne entrée value=val(pom) else 'Mauvais msgbox "Mauvaise entrée..." end if Alors, les vérifications dans l'ordre: - Est-ce que la transformation en texte de la valeur numérique de pom = l'originale ? car val("2a") renvoie 2... mais str(val("2a")) = "2" et <> "2a" - Pom >0 - Pom <7 - Pom est-il entier ? si pom est pas entier, son arrondi est différent de lui-même, sinon c'est un entier... Julien.

cs_SkyrOu · Answer

Merci pour ta r&#233;ponse mais j'ai omi de pr&#233;ciser que l'option Strict est ON ce qui rend impossible la possibilit&#233; de convertion.

Julien237 · Answer

Lol, ben d&#233;clare value comme Double &#224; la place de Long et &#231;a marche non ? C'est la seule conversion implicite que je vois...



Julien.

Julien237 · Answer

Mais si j'ai bonne m&#233;moire de la fonction Str, j'ai fais une autre
erreur : str(val()) rajoute un espace, remplace donc str(val()) par
trim(str(val()))



Julien.

PCPT · Answer

salut, VB6 ? voici un exemple facile à comprendre Option Explicit ' ' Private Sub Command1_Click() ' explication Dim sAlerte As String sAlerte = "" ' saisie Dim sRep As String sRep = InputBox("Saisissez votre chiffre", "exo") If sRep "" Then sAlerte "Réponse vide": GoTo SubExit ' entier On Error GoTo ErrHandler Dim iNumber As Integer iNumber = Val (sRep) \ 1 On Error GoTo 0 '*FGE* ' test If iNumber < 1 Then sAlerte = "Valeur trop petite": GoTo SubExit If iNumber > 6 Then sAlerte = "Valeur trop grande": GoTo SubExit ' ok MsgBox "ok, valeur conservée = " & iNumber, 32, ":-Þ" SubExit: If sAlerte <> "" Then MsgBox sAlerte, 32, "non valide!!" Exit Sub ErrHandler: Err.Clear MsgBox "Valeur totalement stupide", 32, "non valide!!" End Sub Coloration syntaxique automatique [AFCK] PCPT [AFCK]

jpleroisse · Answer

Bonsoir, (plustôt Bonne nuit) Un exemple VB6 avec un textBox (Il y a surement moyen de racourcir le code.) Private Sub Text1_Change() Dim i i = Array("1", "2", "3", "4", "5", "6") On Error Resume Next If Text1 = "" Then Text1.SetFocus Exit Sub End If If Text1 <> i(0) Then If Text1 <> i(1) Then If Text1 <> i(2) Then If Text1 <> i(3) Then If Text1 <> i(4) Then If Text1 <> i(5) Then MsgBox " vous devez tapper une valeur entre 1 et 6", vbCritical, "Mauvaise entrée !" Text1 = "" End If End If End If End If End If End If End Sub jpleroisse Si une réponse vous convient, cliquez Réponse Acceptée.

Interdir la saisie alphabetique dans une boite de saisie

7 réponses

Discussions similaires