restrictions dans une saisi de texteRésolu

Question

Bonjour !!
Merci de contribuer a resoudre ce probleme:

Vous entrex une texte dans une bote de texte ,selon des restrictions, la forme sera LCLCLC

L=lettre
C=Chiffre

le texte ne depasse pas 6 caracteres

Entrez le code dans le format suivant (LCLCLC)
A1B2C3

Merci beaucoup
Ex:A1B2C3

cs_CanisLupus · Accepted Answer

Salut, Allez, c jour de bonté, essaie ce code dans une form avec une textbox nommée text1 : Private Sub Text1_KeyPress(KeyAscii As Integer) If Len(Text1) < 6 Then If Len(Text1) Mod 2 = 0 Then ' conversion des minuscules en majuscules (au cas où) If KeyAscii >= 97 Or KeyAscii <= 122 Then KeyAscii = KeyAscii - 32 ' si c pas une lettre If KeyAscii < 41 Or KeyAscii > 90 Then KeyAscii = 0 MsgBox "Veuillez saisir une lettre" Text1.SetFocus End If Else ' si c pas un chiffre If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 MsgBox "Veuillez saisir un chiffre" Text1.SetFocus End If End If Else KeyAscii = 0 MsgBox "Pas plus de 6 caractères" End If End Sub A la place des msgbox, tu mets ce que tu veux, un beep ou autre action. Les valeurs de keyascii c les valeurs ascii des caractères saisis. Cordialement, CanisLupus Tous les glands ne deviennent pas des chênes mais tous les chênes ont été des glands

cs_DARKSIDIOUS · Answer

Cela ressemble à un problème posé en BTS info, je me trompe ?
_______________________________________

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer

cs_rene38 · Answer

Bonjour
cf la fonction Like

eric_piccaut · Answer

Merci ça marcheža merveille !!!
Trois fois Bravo !!!
Merci beaucoup 
Tres coordialement,Eric

cs_rene38 · Answer

une autre solution à condition que la feuille contienne un autre objet :

Private Sub Text1_LostFocus()
If Not Text1.Text Like "?#?#?#" Then 
   MsgBox "Format incorrect"
End If
End Sub

Restrictions dans une saisi de texte

5 réponses

Discussions similaires