textbox format

[news]

Bonjour à tous du forum,

j'essaie d'avencer avec mon userform,
mais il y a encore des bug avec le format des textbox,

le format du textbox7 = # ###,00 ou # ###.00

si on met 20 donne 20,00
si on met 240,10 donne 240,10
si on met 1240.05 donne 1 240.05
si on met 10460,15 donne 10 460,14
si on met autres caractères ou du texte >> est affiché Msgbox("texte non valable, veuillez mettre que des montants"),

j'utilise la fonction suivante:

Private Sub TextBox7_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
Me.TextBox7 = Format(Me.TextBox7, "# ##0.00")
End Sub

Comment y ajouter les autres conditions,

merci d'avance d'astuces,

news

 

[mutzik]

Re : textbox format

bonjour,

le format d'affichage des textbox sur un usf suis exactement les mêmes règles que sur une feuille de calcul, et il y a foule d'exemple dans les format déja proposés
C'est quoi, les autres conditions à ajouter ?

 

[Pierrot93]

Re : textbox format

Bonjour,

regarde le code ci-dessous, nom du "textbox" à adapter :

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(TextBox1) Then
    TextBox1 = Format(TextBox1, "# ##0.00")
Else
    MsgBox "format invalide"
End If
End Sub

bonne journée
@+

Edition : bonjour Bertrand

 

[news]

Re : textbox format

Bonjour à tous du format,

c'est juste, je scroll though les messages postés et il y en a nombreux,

mais je n'ai pas encroe trouvé ce qui convient dans mon userform,
voilà pourquoi j'ai posté ce message pour y avoir des astuces,

news

 

[news]

Re : textbox format

Bonjour à tous du forum,

meric Pierrot93 pour réponse,

j'utilise le code proposé,

si je mets du texte, affiche Msgbox
si je mets le chiffre 1240,10 donne 1 240,10

mais si je mets 1240.10, le montant n'est pas changé en 1 240.10 et est affiché Msgbox("format invalide")

comment on peut réoudre ceci,

news

 

[Pierrot93]

Re : textbox format

Re,

pour remplacer la virgule par le point lors de la saisie, à adapter en fonction de tes paramètres régionaux :

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    'remplace virgule par point
    If KeyAscii = 44 Then KeyAscii = 46
End Sub

@+

 

[news]

Re : textbox format

Bonjour à tous du forum,

merci Pierrot93 pour explications et réponses si vite,

j'ai adapté
If KeyAscii = 44 Then KeyAscii = 46

ainsi "." est modifié en ","

sinon était affiché Msgbox("format invalide") comme le montant 1240.10
est reconnu comme du texte du au caractère "."

bonne journée encore,

news