Private Sub Text1_Change() If InStr(1, Text1.Text, " ") <> 0 Then Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1) & "_" Text1.SelStart = Len(Text1.Text) End If End Sub
mieux vaut utiliser l'évenement keypress (keyascii as integer) :if keyascii = x then keyascii = y
en effet... jai pa vu sa, mai merci bien , je le serai ;)
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte
1 623 831 membres 143 nouveaux aujourd'hui 15 511 membres club