[COLOR=blue]Private[/COLOR] [COLOR=blue]Sub[/COLOR] TextBox1_KeyPress([COLOR=blue]ByVal[/COLOR] KeyAscii [COLOR=blue]As[/COLOR] MSForms.ReturnInteger)
[COLOR=blue]Select[/COLOR] [COLOR=blue]Case[/COLOR] KeyAscii
[COLOR=blue]Case[/COLOR] 32, 48 To 57 [COLOR=green]' espace et Chiffres,:[COLOR=blue]on[/COLOR] ne fait rien[/COLOR]
[COLOR=blue]Case[/COLOR] 46: KeyAscii = 44 [COLOR=green]'remplacer le point par la virgule[/COLOR]
[COLOR=blue]Case[/COLOR] 43, 45
[COLOR=green]' si le + ou l - n'est pas entré en première postion (0)annuler la touche[/COLOR]
[COLOR=blue]If[/COLOR] TextBox1.SelStart > 0 [COLOR=blue]Then[/COLOR] KeyAscii = 0
[COLOR=blue]Case[/COLOR] [COLOR=blue]Else[/COLOR]: KeyAscii = 0 [COLOR=green]'annuler la touche[/COLOR]
[COLOR=blue]End[/COLOR] [COLOR=blue]Select[/COLOR]
[COLOR=blue]End[/COLOR] [COLOR=blue]Sub[/COLOR]