Format dans TextBox VBA Excel

Résolu/Fermé
jh50160 Messages postés 90 Date d'inscription samedi 15 juillet 2006 Statut Membre Dernière intervention 12 janvier 2024 - 22 nov. 2008 à 12:35
Boulette67 Messages postés 54 Date d'inscription lundi 19 février 2007 Statut Membre Dernière intervention 16 juillet 2011 - 24 nov. 2008 à 11:02
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
A voir également:

3 réponses

Boulette67 Messages postés 54 Date d'inscription lundi 19 février 2007 Statut Membre Dernière intervention 16 juillet 2011 6
22 nov. 2008 à 14:21
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.
0
jh50160 Messages postés 90 Date d'inscription samedi 15 juillet 2006 Statut Membre Dernière intervention 12 janvier 2024
22 nov. 2008 à 17:12
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.
0
Boulette67 Messages postés 54 Date d'inscription lundi 19 février 2007 Statut Membre Dernière intervention 16 juillet 2011 6
24 nov. 2008 à 11:02
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
0