Private Sub TextBox1_Change()
Dim max
max = 50
If Len(TextBox1.Value) > max Then TextBox1.Value = Left(TextBox1.Value, max)
End Sub

Statistiques

Aujourd'hui1231
Hier2574
Cette semaine3805
Ce mois49381
Total depuis 200410339117

46
visiteurs actuellement en ligne