Format numérique dans un userform

[UJAP]

Bonjour,

Je viens de me lancer, il y a quelques semaines, dans la création d’un userform pour remplir un formulaire,

Comment dois-je modifier mon code pour que celui soit au format numérique ?

Ci-joint le code :

[B2] = UserForm1.TextBox3

 

[Guiv]

Re : Format numérique dans un userform

Bonjour UJAP,
Pour récupérer la saisie de la textbox sous format nombre:

If IsNumeric(TextBox3) Then [COLOR="SeaGreen"]'pour le cas où l'opérateur saisirait des lettres[/COLOR]
[B2]= TextBox3 * 1
Else
MsgBox "Vous devez saisir une expression numérique"
End If

Cordialement,
Guiv

 

[Dull]

Re : Format numérique dans un userform

Salut UJAP, Guiv, Le forum

Essaye ça

[B2] = Format(UserForm1.TextBox3,"00.00")

ou alors le Fameux KeyPress que j'ai appris avec l'ami Pierrot

Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If InStr("0123456789.", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

qui t'empêche de mettre des caractères autres que du numérique

Bonne Journée