Recherche

 

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

Statistiques

France 76,0% France
Canada 7,9% Canada
États-Unis d'Amérique 4,7% États-Unis d'Amérique

Total:

66

Pays
018274371
Aujourd'hui: 11
Hier: 145
Cette semaine: 694
Semaine dernière: 783
Ce mois: 2.633