Texbox decimale

Bonjour,

dans les textboxs de formulaire, est-ce qu'il y a moyen de limiter les nombre a seulement deux decimales sans rentrer un code pour chaque textbox? (j'en ai 46)

merci!

Pupuce

Bonsoir,

j'aurais tendance à vous dire :

orientez vous vers les "modules de class".

Et je vais attendre avec vous la solution !

J'ai envie d'apprendre !

@bientôt

LouReeD

Bonjour

pour les textbox chiffres

a tester

Private Sub TextBox1_keyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 44 Then KeyAscii = 46
    If InStr("0123456789.", Chr(KeyAscii)) = 0 Then KeyAscii = 0: Beep
End Sub

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox1.Value = Round(Val(TextBox1.Value), 2)
End Sub

A+

Maurice

Bonsoir à tous

A tester

Voilà !

Merci BOB71AU ! J'attendais avec impatience cette histoire de module de class...

Il faut vraiment que je comprenne le truc, je suis sur la "fabrication" d'un USF où il y aura beaucoup de TextBox...

Merci @ vous.

Pour archer, votre code, je pense ne marche que pour TextBox, le 1...

@ bientôt

LouReeD

oui merci!

Pupuce

Bonjour BOB71AU,

est-ce qu'il y a une raison pourquoi je ne peux mettre "16"...

chaque fois que je rentre "1", ça me sort 0,98

Nico

Bonjour

je ne constate pas ce phénomène dans le fichier que j'ai fourni.