Saisie réglementée dans TextBox

Bonjour !

Dans un USF, j'ai inséré plusieurs TextBox dans lesquels sont saisies un code de 2 lettres (ex. MA ou FE...).

1- Comment prévenir lors de la saisie que tel ou tel code n'est pas valable et qu'il n'existe pas ?
2- Comment bien spécifier que l'on doit saisir 2 lettres et non 1 lettre et un chiffre ?

Cordialement,
Etorria...qui en apprend tous les jours grâce à vous !

Bonjour

essaye

Code:

---

1 2 3 4 5 6

Private Sub TextBox1_Change() Me.TextBox1.MaxLength = 2   If IsNumeric(Me.TextBox1.Value) = True Then Me.TextBox1.Value = ""   If Len(Me.TextBox1.Value) = 2 And IsNumeric(Right(Me.TextBox1.Value, 1)) = True Then Me.TextBox1.Value = Left(Me.TextBox1.Value, 1)

---

End Sub

Je pense qu'il a plus court :mouarf:

Jean-Pierre

Merci à toi !

J'ai rajouté les "End if" manquants !

Sinon pour la question "Comment prévenir lors de la saisie que tel ou tel code n'est pas valable et qu'il n'existe pas ?" tu aurais une idée ?

A+

Etorria

Bonsoir

il ne manque pas de end if!!8O

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub TextBox1_Change() TextBox1.MaxLength = 2   If IsNumeric(TextBox1.Value) = True Then Me.TextBox1.Value = "" If Left(Me.TextBox1.Value, 1) <> "M" And Left(TextBox1.Value, 1) <> "F" Then Me.TextBox1.Value = "" If Len(TextBox1.Value) = 2 And IsNumeric(Right(TextBox1.Value, 1)) = True Then TextBox1.Value = Left(TextBox1.Value, 1) If Len(TextBox1.Value) = 2 And (Me.TextBox1.Value <> "MA" And TextBox1.Value <> "FE") Then TextBox1.Value = Left(TextBox1.Value, 1)     End Sub

---

Il y a certainement plus court ;)


Jean-Pierre