Private Sub TextBox1_Change() Txtb = UserForm1.TextBox1.Value If Len(Txtb) = 1 Then Select Case Txtb Case 0, 1, 2, 3, 4, 5, 6, 7, 8, 9 ' test si c'est un chiffre.. UserForm1.TextBox1.MaxLength = 4 Case Else ' sinon... bloquer à 3 lettres UserForm1.TextBox1.MaxLength = 3 End Select End If End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub TextBox1_Change() Txtb = UserForm1.TextBox1.Value PC = Left(Txtb, 1) Select Case PC Case 0, 1, 2, 3, 4, 5, 6, 7, 8, 9 ' test si c'est un chiffre.. UserForm1.TextBox1.MaxLength = 4 tip = "chiffre" Case Else ' sinon... bloquer à 3 lettres UserForm1.TextBox1.MaxLength = 3 tip = "texte" End Select If Len(Txtb) > 1 Then LC = Right(Txtb, 1) Select Case LC Case 0, 1, 2, 3, 4, 5, 6, 7, 8, 9 If tip "texte" Then UserForm1.TextBox1.Value Left(Txtb, Len(Txtb) - 1) Case Else If tip "chiffre" Then UserForm1.TextBox1.Value Left(Txtb, Len(Txtb) - 1) End Select End If End Sub