Discussion :

[etorria]

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 !

[Jean-Pierre49]

Bonjour

essaye

Code :

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

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

Jean-Pierre

[etorria]

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

[Jean-Pierre49]

Bonsoir

il ne manque pas de end if!!

Code :

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

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