format dans TextBox VBA Excel Résolu/Fermé

Question

Bonjour,

Voilà dans mon UserForm, il ya un textBox je voudrais entrer une valeur du type Exemple 46,26  surtout je voudrais une vigule, dont j'ai fais ce code.
Mais cela ne marche pas il m'affiche 4 626 si mon format est "##,##" et il m'affiche 4.62 si mon format est "##.##"

Private Sub TextBox3_Change()
TextBox3.Value = Format(TextBox3, "##,##")
End Sub

Je suis sur excel 2000.

Merci pour vos réponse

Boulette67 · Answer

hello.

pour tout t'avouer je comprend pas trop ton problème. est ce que tu récupère ce 46,26? ou tu le saisie toi même. si tu le saisie alors il ne devrait y avoir aucun problème. par contre si tu le saisie et que tu essaye de faire des opérations avec, il tout a fait est normal que ça ne marche pas. ton TextBox est de type String, il te faut juste faire une conversion CDec(textbox1.text). Le CDec tu change le texte en décimal.

jh50160 · Answer

Salut boulette67, tout d'abord merci de m'avoir répondu. 
1erè j'inscrit la valeur moi même 46,26 ou autre 25,62 dans le textBox3 et quand je valide mon userform, la valeur incrite dans le texbox3 s'inscrit dans la colonne E1, mais avec un point 46.26 . Moi je veux qu'il apparaisse dans ma colonne avec une virgule. Car dans ma feuille de calcul je fais la somme E1-H2.

Boulette67 · Answer

Alors j'ai testé et ça marche pour moi.
J'ai un textbox et un bouton. Dans l'événement clic:

Feuil1.Range("E1").Value = CDec(TextBox1.Text)
                           OU
Feuil1.Cells(1,5).value = CDec(TextBox1.Text)


Le Range est pour plusieurs cellules range("E1","D6") par exemple. Alors que le Cells est pour une cellule

Format dans TextBox VBA Excel

3 réponses

Discussions similaires