Test MaxLength d'une textbox..

[babap1]

Bonjour le forum,

j'aimerai faire un test sur ma textbox pour en définir la taille maximale :
Ma textbox ne peut contenir que des chiffres [0123456789] ou un tiret [-] et en fonction de ce que tappe l'utilisateur, il faut qu'il puisse entrer plus ou moins de données :

Private Sub textbox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
     If InStr("[0123456789][-]", Chr(KeyAscii)) = 0 Then
        KeyAscii = 0
        Beep
     End If
    
    ' Si l'utilisateur écrit un tiret alors la taille maximale est 7 sinon elle est de 12
    If InStr("[-]", Chr(KeyAscii)) = "-" Then
        Me.txt_SRnumber.MaxLength = 7
    Else
        Me.txt_SRnumber.MaxLength = 12
    End If
End Sub

Ca ne fonctionne pas très bien puisque s'il détecte un tiret maxLength =7 et si ensuite l'utilisateur entre un chiffre, la taille repasse à 12 au lieu de 7 puisqu'il y a un tiret dans ce qu'il y a d'écrit..

Merci du coup de main.
Baptiste

 

[tototiti2008]

Re : Test MaxLength d'une textbox..

Bonjour babap1,

InStr renvoie la position d'un caractère dans une chaîne, et il ne comprend pas les crochets, je crois (contrairement à Like)

Moi je ferais un truc du type :

Private Sub Txt_SRnumber_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
     If InStr("0123456789-", Chr(KeyAscii)) = 0 Then
        KeyAscii = 0
        Beep
     End If
    
    ' Si l'utilisateur écrit un tiret alors la taille maximale est 7 sinon elle est de 12
    If InStr(Txt_SRnumber.Text, "-") > 0 Then
        Me.Txt_SRnumber.MaxLength = 7
    Else
        Me.Txt_SRnumber.MaxLength = 12
    End If
End Sub

 

[Guest]

Re : Test MaxLength d'une textbox..

Bonjour babap,

Si j'ai compris ce que tu veux faire, essaie plutôt quelque chose comme ceci:
A l'entrée de txt_SRnumber, contrôle de la présence du "-" dans textbox et si oui longueur 7 sinon longueur 12,

Private Sub TextBox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If InStr("[0123456789][-]", Chr(KeyAscii)) = 0 Then
        KeyAscii = 0
        Beep
    End If
End Sub
Private Sub txt_SRnumber_Enter()
    If InStr(1, TextBox1, "-") > 0 Then
        Me.txt_SRnumber.MaxLength = 7
    Else
        Me.txt_SRnumber.MaxLength = 12
    End If
End Sub

[Edition] Hello Tototiti
A+

 

[babap1]

Re : Test MaxLength d'une textbox..

Bonjour tototiti2008, Hasco

merci de votre coup de main, c'est exactement ce dont j'avais besoin. 😀
Les deux solutions sont bien et j'ai besoin des deux. Un grand merci et bonne soirée.

Bap