Forcer à saisir d'abord un textbox avant de pouvoir saisir dans un autre!

Bonjour,

j'ai deux textbox(textbox1 et textbox2) et je souhaiterai éviter que l'on puisse saisir dans textbox2 avant d'avoir renseigné textbox1. J'ai mis le code suivant dans le keypress de textbox2 :

Code:

---

1 2 3 4 5 6 7 8

If textbox1.Text = "" Then   textbox2.Text = "" MsgBox "Veuillez d'abord renseigner textbox1 svp!" textbox1.SetFocus   End If

---

mais il m'affiche ce que j'ai saisi dans textbox2 (la 1ère lettre) d'abord avant de le supprimer alors je souhaiterai que même ce qui a été saisi dans textbox2 ne s'affiche pas.

Merci d'avance.

Cordialement.

Voici la résolution à mon problème pour ceux que cela pourrait aider :

Code:

---

1 2 3 4 5 6 7 8 9

If Textbox1.Text = "" Then   KeyAscii = 0 Textbox2.Text = "" MsgBox "Veuillez d'abord renseigner textbox1 svp!" Textbox1.SetFocus   End

---

If

Tu peux aussi mettre la propriété Enable de ton deuxième textbox à False tant que le premier est vide.

Si tu as plusieurs textbox sur la fiche tu peux utiliser le code suivant

Code:

---

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

Public Function AssertEditValue(Edit As TextBox, _ ByVal vMin As Long, ByVal vMax As Long) As Boolean Dim V As Long With Edit On Error GoTo ErrConv V = CLng(Edit.Value) If (V >= vMin) And (V <= vMax) Then AssertEditValue = True Exit Function End If ErrConv: MsgBox """" & Edit.Value & """ N'est pas une valeur correcte", _ vbExclamation .SelStart = 0 .SelLength = .TextLength .SetFocus End With End Function

---

Et pour le bouton de validation

Code:

---

1 2 3 4 5 6

Private Sub BOK_Click() If Not AssertEditValue(TextBox1, 0, 1000) Then Exit Sub If Not AssertEditValue(TextBox2, 0, 1000) Then Exit Sub If Not AssertEditValue(TextBox3, 10, 2000) Then Exit Sub If Not AssertEditValue(TextBox4, 10, 2000) Then Exit Sub end sub

---