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 !!Bonjour KTM ,
Une piste :
VB:Private Sub TextBox1_Change() If Len(TextBox1) = 17 Then MsgBox "Max atteint - faites ici ce que vous voulez..." Unload Me End If End Sub
Private Sub UserForm_Initialize()
Me.TextBox1.MaxLength = 17
Me.TextBox1.AutoTab = True
End Sub
merciBonjour,
Autre piste :
A+VB:Private Sub UserForm_Initialize() Me.TextBox1.MaxLength = 17 Me.TextBox1.AutoTab = True End Sub