Indiquer s' il s' agit d' un chiffre ou pasRésolu

Question

Bonjour &#224; tous,



Voila en essayant de creer un peti programme je me heurte a un "petit" obstacle, je voudrai en gros encrit en ligne de code :



Si A n' est pas un nombre alors 

ou

Si A est une lettre alors



Aficher un message box etc...



Si vopus pouviez m' eclairer sur ce point :)



Merci

cs_CanisLupus · Accepted Answer

if (keyascii < 48 or keyascii > 57) and keyascii <> 45 then keyascii =0 beep endif 45 étant la valeur ascii du caractère "-". On peut aller comme ça plus loin encore. Si c'est pour faire une calculatrice, je te conseille de voir les nombreuses sources traitant de ce sujet sur le site. Tu progresserais encore plus vite. ------------------------------------------------- Dresseur de puces, .... normal pour un loup !?

olixelle · Answer

dim ma_chaine as string
ma_chaine = inputbox("Veuillez saisir qqchose")
if isnumeric(ma_chaine) then
   msgbox("C un num&#233;rique")
else
   msgbox("C pas un num&#233;rique")
end if

Rollerman

SpoS · Answer

A la place de de "isnumeric", il n' existe pas une autre fonction pour dire en gros, isword

pour indiquer



Si A est un lettre alors 

Message box ...

olixelle · Answer

non lol

mais si tu sais que ce n'est pas un num&#233;rique..... c'est que c'est un chiffre :)



variante:

_____________________________________________

m ma_chaine as string

ma_chaine = inputbox("Veuillez saisir qqchose")

if not isnumeric(ma_chaine) then

   msgbox("C pas un num&#233;rique")

else

   msgbox("C un num&#233;rique")

end if
______________________________________________


Rollerman

Gobillot · Answer

Dim car As String

    

'   il y a toujours le Select Case    

    car = "A"

    Select Case car

      Case 65 To 90: MsgBox "Lettre Majuscule"

      Case 97 To 122: MsgBox "Lettre Minuscule"

      Case 48 To 57: MsgBox "Chiffre"

      Case Else: MsgBox "Autres"

      End Select

    

' ou si tu pr&#233;f&#232;res

    car = "A"

    If car Like "[A-Za-z]" Then MsgBox "c'est une lettre"

    car = "9"

    If car Like "[0-9]" Then MsgBox "c'est un chiffre"











  

Daniel

SpoS · Answer

Merci de votre aide mais je n' arrive pas a adapter cela pour mon logiciel.



Il s' agit en fait d' une petite calculatrice &#233;volu&#233; (pour cacluler
calculer les racine des trinome de 2nd degr&#233;s), et lorsque l'
utilisateur rentre un lettre &#224; la place d' un chiffre ( ce qui ne
devrai pas ariver vu qu' il s'agit d' une calculatrice) VB m' affiche
un message d' erreur.



Les trois textbox ou l' on peut &#233;crire un nombre sont



A = val(Text1.text)

B = val(Text2.text)

C =  val(Text3.text)



- Serai t' il possible par exemple d' interdire l' &#233;criture des lettre ou autre chose que les chiffre ?

- Ou afficher lorsque l' utilisateur n' indique
pas de nombre un message box "Veuillez saisir un chiffre"


Merci :)

cs_CanisLupus · Answer

Salut, moi j'aime bien les soluces propos&#233;es par Daniel. Au cas o&#249; tu ne conna&#238;trais pas les valeurs ascii des caract&#232;res, tu peux coder aussi, partant de ta question de depart qui supposait que A ne contient qu'UN seul caract&#232;re  :

  Select Case A
    Case "A" To "Z", "a" To "z"
      MsgBox "c'est une lettre"
    Case "0" To "9"
      MsgBox "c'est un chiffre"
    Case Else
      MsgBox "autre"
  End Select


'Ou, si tu veux d&#233;tailler
  Select Case A
    Case "A" To "Z"
      MsgBox "c'est une lettre majuscule"
    Case "a" To "z"
      MsgBox "c'est une lettre minuscule"
    Case "0" To "9"
      MsgBox "c'est un chiffre"
    Case Else
      MsgBox "autre"
  End Select

Si A contient plus d'UN caract&#232;re, il faut proc&#233;der autrement.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

cs_CanisLupus · Answer

Oups, pas vu ton dernier post, dans ce cas, tu mets ce code dans l'&#233;v&#232;nement keypress de tes textboxes :

if keyascii < 48 or keyascii > 57 then 
   keyascii =0
   beep
endif

De cette fa&#231;on, on ne peut saisir que des chiffres avec un tit bip signalant l'erreur.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

Gobillot · Answer

si c'est une moquerie, je corrige:





Select Case Asc(car)






mais apparemment , c'est pas un seul caract&#232;res.


dans ce cas faudrait savoir si faut accepter le point d&#233;cimal ou pas.

pour que des chiffres faire une TextBox num&#233;rique, ou solution de CanisLupus.

sinon voir les nombreuses sources qui parlent de ce sujet


Daniel

cs_CanisLupus · Answer

Non, Daniel, ce n'est pas une moquerie. Je t'ai m&#234;me fait confiance et ai carr&#233;ment zapp&#233; ce coup-l&#224;. Merci d'avoir corrig&#233; de toi-m&#234;me.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

SpoS · Answer

Merci de votre aide &#224; tous,



Canis Lupus ton truc marche parfaitement, 



if keyascii < 48 or keyascii > 57 then 

   keyascii =0

   beep

endif



Juste une petit truc, Je voudrai pouvoir aussi &#233;crire le signe - pour
les calculs, comment c' est possible de le rajouter a partir de la m&#234;me
id&#233;e.



Sinon j' aurai une autre solution, c' est de gris&#233; le bouton Calculer
tant que les valeur comprise dans A, B et C ne sont pas des nombres (
signe - comprit ) 



Je comprend que mes questions vous paraisse un peu "?!?" mais je debute
dans le monde de Vb ( et je n' ai luq encore que la moiti&#233; de mon livre
)



Merci :)

SpoS · Answer

Pour Desactiv&#233; le bouton false un truc &#224; partir de sa :



    If text1.text = KeyAscii < 48 Or KeyAscii > 57 Then

    Command1.Enabled = True

    Else

    Command1.Enabled = False



Mais, sa ne fonctionne pas, ou se situe mon erreur :/

Gobillot · Answer

bon pour la TextBox num&#233;rique c'est r&#226;t&#233;.

je rajouterais:

un seul signe "-" possible et toujours au d&#233;but.







Private Sub Text1_KeyPress(KeyAscii As Integer)


    Select Case KeyAscii


       Case 45:


          If Text1.SelStart > 0 Or InStr(Text1.Text, "-") > 0 Then


             KeyAscii = 0


             End If


       Case 8, 48 To 57:


       Case Else: KeyAscii = 0


       End Select


End Sub





Daniel

SpoS · Answer

Merci à vous 3. J' ai finalement opté pour la réponse de Daniel car elle apporte un petit plus en ne permettant que de mettre de signe - en avant. La réponse de CanisLupus marche aussi, d' ailleur en reprenant l' idée du Beep, j' ai ajouter cette ligne qui permet quand l' utilisateur entre autre chose qu' une lettre d' emmetre un son Beep. if (keyascii < 48 or keyascii > 57) and keyascii <> 45 then Beep endif Encore merci :)

Indiquer s' il s' agit d' un chiffre ou pas

14 réponses

Discussions similaires