Discussion :

[Attila54]

Je suis toujours sur mon petit prog en vb6 et j'ai toujours des problemes sur les conditions.

J'ai 2 textbox que l'on doit remplir
Text1
Text2

je voudrais que :
Text1 soit compris entre -8 et 4
Text2 soit compris entre -4 et 4

quand je tabule de Text1 a text2
si Text1 n'est pas dans ces valeurs alors textbox disant "entrez une valeur pour Text1 comprise ....." et le curseur reviens sur Text1

quand je tabule de Text2 a CommandButton "Calculer"
si Text2 n'est pas dans ces valeurs alors textbox disant "entrez une valeur pour Text comprise ....." et le curseur reviens sur Text2

j'avais fait un truc bien lourd a mon gôut et pas trop fonctionnel sur le commandbutton "calculer"

Code :

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

1
2
3
4
5
6
Private Sub CommandX_Click()
If Text1 = "" Or Text1 > "-8" Or Text1 > "4" Or Text2 = "" Or Text2 > "-4" Or Text2 > "4" Then
MsgBox ("Veuillez définir une valeur de A comprise entre -8 et 4 et une valeur de B comprise entre -4 et 4")
Else
mes_calculs
end If

et je cherche donc a faire "plus propre"

que pourrais je faire ?

merci mille fois

[DAUDET78]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Text1_Change()
   if (Val(Text1.Text) <-8) Or (Val(Text1.Text) >4) then
       MsgBox ("Veuillez définir une valeur comprise entre -8 et 4 ")
       Text1.Text=""
   end if
End Sub
Sub Text1_KeyPress(KeyAscii As Integer)
 Select Case KeyAscii   ' suppression des caractères VERBOTEN
    Case  &H30 To &H39, &H20, 8, Asc("-") ' caractères OK
    Case Else
        KeyAscii = 0: Beep
 End Select
End Sub

Tu aurais intérêt a utiliser deux contrôles de texte indexés

ZoneSaisie(0) et ZoneSaisie(1) afin de ne pas dupliquer le logiciel KeyPress et Change

[Attila54]

ah ben j'ai une erreur de compilation, il me ditr que seuls les commentaires peuvent apparaitre apres End Sub, End Function

[DAUDET78]

sans voir ton programme .......
Patiente, je te fais une demo

[DAUDET78]

Voilà de quoi cogiter .....

[Attila54]

merci bien je vais cogiter ca ce we et je reviens au raport lundi.
Par contre j'au vu un prob quand même

Code :

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

1
2
3
4
if (Val(Text1.Text) <-8) Or (Val(Text1.Text) >4) then
       MsgBox ("Veuillez définir une valeur comprise entre -8 et 4 ")
       Text1.Text=""
   end if

ce bout de code fonctionne a merveille MAIS, quand j'ouvre mon logiciel, le curseur va automatiquement sur Texbox1 et c'est voulu. Dans de cas, le code s'execute et j'ai la msgbox "Veuillez définir une valeur comprise entre -8 et 4" avant même d'avoir pu entrer une valeur ...