XL 2016 Limiter nombre de caractères dans textbox

[KTM]

Bon Dimanche au Forum
Je voudrais automatiquement valider ma saisie dans mon textbox des que le nombre de caractères saisis atteint 17
Merci

 

[mapomme]

Bonjour KTM ,

Une piste :

Private Sub TextBox1_Change()
   If Len(TextBox1) = 17 Then
      MsgBox "Max atteint - faites ici ce que vous voulez..."
      Unload Me
   End If
End Sub

 

[KTM]

Bonjour KTM ,

Une piste :

Private Sub TextBox1_Change()
   If Len(TextBox1) = 17 Then
      MsgBox "Max atteint - faites ici ce que vous voulez..."
      Unload Me
   End If
End Sub

OK MERCI !!

 

[bof]

Bonjour,
Autre piste :

Private Sub UserForm_Initialize()
Me.TextBox1.MaxLength = 17
Me.TextBox1.AutoTab = True
End Sub

A+

 

[KTM]

Bonjour,
Autre piste :

Private Sub UserForm_Initialize()
Me.TextBox1.MaxLength = 17
Me.TextBox1.AutoTab = True
End Sub

A+

merci