Comment obliger à mettre 4 caractères en textbox [Résolu]

mythiac 72 Messages postés mardi 23 septembre 2008Date d'inscription 23 février 2009 Dernière intervention - 8 janv. 2009 à 13:48 - Dernière réponse : mythiac 72 Messages postés mardi 23 septembre 2008Date d'inscription 23 février 2009 Dernière intervention
- 8 janv. 2009 à 14:07
bonjour,

j'aurais beoins d'aide pour obliger mon utilisateur à remplir dans une textbox 4 chiffres:

voici pour l'instant ce qui me permet de mettre obligatoirement des chiffres, au maximum 4 chiffres, mais pas obligatoirement hélas qu'il y ait 4 caractères.

Private Sub TextBox1_Change()
  On Error Resume Next
    If Not IsNumeric(Right(TextBox1, 1)) Then

        MsgBox "Mettre en 4 chiffres"
        TextBox1 = ""
        Exit Sub

    TextBox1.MaxLength = 4 'nbr caractère max
    TextBox1.AutoTab = True 'autotabulation
End Sub

merci par avance
Afficher la suite 

Votre réponse

2 réponses

Meilleure réponse
Renfield 17307 Messages postés mercredi 2 janvier 2002Date d'inscription 18 janvier 2017 Dernière intervention - 8 janv. 2009 à 14:00
3
Merci
embête pas les gens pendant la saisie...

sinon, y'a plusieurs manière d'aborder la chose...


Private Const ES_NUMBER As Long = &H2000&
Private Const GWL_STYLE As Long = -16

Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Sub Form_Load()
'# Textbox numérique
SetWindowLong Text1.hwnd, GWL_STYLE, GetWindowLong(Text1.hwnd, GWL_STYLE) Or ES_NUMBER
End Sub

Private Sub Text1_Change()
If LenB(Text1.Text) Then
If Not IsNumeric(Text1.Text) Then
Text1.Text = "0"
End If
End If
End Sub

Private Sub Text1_LostFocus()
Me.ValidateControls
End Sub

Private Sub Text1_Validate(Cancel As Boolean)
If Len(Text1.Text) <> 4 Then
Cancel = True
MsgBox "Vous n'avez pas respecté les regles !"
End If
End Sub

Merci Renfield 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 70 internautes ce mois-ci

Commenter la réponse de Renfield
mythiac 72 Messages postés mardi 23 septembre 2008Date d'inscription 23 février 2009 Dernière intervention - 8 janv. 2009 à 14:07
0
Merci
merci
Commenter la réponse de mythiac

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.