Format numérique dans un userform

UJAP · 4 Septembre 2009

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 · 4 Septembre 2009

Re : Format numérique dans un userform

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

Code:

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 · 4 Septembre 2009

Re : Format numérique dans un userform

Salut UJAP, Guiv, Le forum

Essaye ça

Code:

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

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

Code:

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

Format numérique dans un userform

UJAP

XLDnaute Occasionnel

Guiv

XLDnaute Occasionnel

Dull

XLDnaute Barbatruc

Discussions similaires

Format numérique dans un userform

UJAP

XLDnaute Occasionnel

Guiv

XLDnaute Occasionnel

Dull

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency