OVH Cloud OVH Cloud

Format textbox

2 réponses
Avatar
Michel
Bonjour

J'ai essayé le truc sur le site exel labo, mais ça ne marche pas quand je
fait pour avoir le format monétaire
TextBox2.Value = Format(TextBox2.Value, "#,##0.00 [$F-40C]")
dès que je veux insérer une valeur dans textbox3 il marque1.0 et rien n'y
fait

2 réponses

Avatar
Michel
Bonjour

J'ai essayé le truc sur le site exel labo, mais ça ne marche pas quand je
fait pour avoir le format monétaire
TextBox2.Value = Format(TextBox2.Value, "#,##0.00 [$F-40C]")
dès que je veux insérer une valeur dans textbox3 il marque1.0 et rien n'y
fait
Avatar
Denis Michon
Bonjour Michel,

A ) La fonction Format et le format tel que défini dans une cellule d'une feuille de calcul, c'est 2 choses
différentes.

B ) Si tu fais un clic sur le mot format dans la feuille où est écrit ton code, tu vas obtenir beaucoup d'informations.
En plus, il y a moult exemple sur ce que la fonction "Format" peut faire !

C ) La fonction "Format" exige que le séparateur décimal utilisé dans ton textbox soit le même que celui définit dans
ton panneau de configuration. Si dans ton Textbox , il y a la valeur 12.54 et que ton séparateur système est la virgule,
faut pas te surprendre si le résultat obtenu est totalement erratique.

D ) "#,##0.00 [$F-40C]" Est-ce réellement un format monétaire ? Si oui, quel affichage es-tu supposé obtenir avec cela
?

E ) Pour solutionner le problème de ton séparateur décimal, ajoute cette petite procédure au code de ton formulaire :
Peu importe que tu cliques sur la virgule ou le point, ce sera toujours le séparateur système qui s'inscrira dans
ton textbox.

'-----------------------
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

Dim Sep As String
Sep = Application.International(xlDecimalSeparator)

If KeyAscii = 44 Or KeyAscii = 46 Then
KeyAscii = Asc(Sep)
End If

End Sub
'-----------------------


F ) Habituellement, on choisit l'événement On_Exit du textbox pour insérer le formatage dans le textbox.


Tout ceci pour le même prix... Bien cela doit être ta journée !

;-)


Salutations!


"Michel" a écrit dans le message de news:3f7d8c69$0$10733$
Bonjour

J'ai essayé le truc sur le site exel labo, mais ça ne marche pas quand je
fait pour avoir le format monétaire
TextBox2.Value = Format(TextBox2.Value, "#,##0.00 [$F-40C]")
dès que je veux insérer une valeur dans textbox3 il marque1.0 et rien n'y
fait