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 874 888 membres 107 nouveaux aujourd'hui 16 153 membres club