Comment mettre en oeuvre ces conditions ?

Bonjour,

Totalement novice en VB6, j'ai pourtant réussi a développer une petite application permettant des calculs basiques. Pour cela, l'on doit entrer deux nombres puis cliquer sur calculer. Il y a neanmoins des conditions que je n'arrive pas a appliquer.

- le champ ne doit pas etre vide
- les nombres doivent être compris entre 36 et 46 sinon le calcul ne se fait pas et une msgbox apparait disant "merci d'entrer une valeur comprise entre 36 et 46"


Merci de votre aide :zoubi:

C'est une question trop simple, vraiment... regarde dans l'aide du côté des opérateurs de comparaison et des fonctions de vérification de type de données comme IsNumeric...

merci pour le renseignement, tu vois je suis tellement nul que j'ignorais l'intitulé exact ou chercher ....
:roll:

alors j'ai plus ou moins réussi avec des conditions de type :

Code:

---

1 2 3 4 5

if textboxX = "" or textboxX < y or textboxX > Z then 'mon messagebox else 'moncalcul end if

---

en tout cas pour des valeurs positives ca fonctionne (style comprise entre 25 et 35 par exemple)

mais pour des valeurs comprises entre -5 et 6, toujours par exemple, ca ne marche absolument pas.

j'ai bien essaye de mettre l'inverse en operateur (vu que par ex, -7 et plus petit que -6) mais pareil, ca ne fonctionne pas :oops:

qu'ais je raté s'il vous plait ?

merci beaucoup

Salut zazaraignée

Attila54 poses sur un Form, 1 CommandButton et 1 TextBox est ce

Code:

---

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

Option Explicit Dim Y As Integer, Z As Integer Dim Msg As String   Private Sub Form_Load() Y = -10: Z = 50 End Sub Private Sub Command1_Click() If IsNumeric(Text1.Text) Then If CInt(Text1.Text) < Y Or CInt(Text1.Text) > Z Then Msg = "mon message" Else Msg = "mon calcul" End If Else Msg = "mon message" End If MsgBox Msg, vbInformation End Sub

---

F2 dans ton editeur VB, dans la liste Classes choisis Conversion, déjà pas mal d'infos, si tu veux en savoir plus, tu choisis un element de la liste Membres de Conversion et tu appuis sur F1
Pour cela il faut que tu ais MSDN, si tu ne l'a pas encore, il est disponible sur DVP ICI (Français)

alors cela fonctionne en partie, en effet j'au une box au clic sur le commandbutton mais au depart, mon curseur n'est pas mis sur Text1 et ca, je suis obligé de le faire.

A priori je suis sur le point de résoudre le probleme

merci bien :)