Private Sub TextBox1_Change()
Dim max
max = 50
If Len(TextBox1.Value) > max Then TextBox1.Value = Left(TextBox1.Value, max)
End Sub
- Vous êtes ici :
-
Accueil
-
Word
- Formulaires & contrôles
Comment créer une Input box dans laquelle l'utilisateur ne peut pas saisir plus que 50 caractères ?
- Détails
- Catégorie parente: Word
- Catégorie : Formulaires & contrôles
- Affichages : 15802