Format dans une textbox

Bourrique66 Messages postés 158 Date d'inscription   Statut Membre Dernière intervention   -  
Bourrique66 Messages postés 158 Date d'inscription   Statut Membre Dernière intervention   -

Bonjour ;

J’aimerais mettre ce format « TextBox1.Value = Format(TextBox1.Value, "0.00Km") dans mes textbox, mais comme pour remplir ces textbox j’utilise CDbl pour faire des calculs le code ne fonctionne pas. Comment faire pour pouvoir utiliser ce format dans les textbox. Merci de vous pencher sur mon problème.

Je joins un fichier: https://www.cjoint.com/c/MBdkCJXhoCK

Private Sub TextBox1_afterupdate()
Application.ScreenUpdating = False
TextBox3.Value = CDbl(TextBox1.Value) + CDbl(TextBox2.Value)
TextBox4.Value = CDbl(TextBox1.Value) + CDbl(TextBox4.Value)
TextBox5.Value = CDbl(TextBox1.Value) + CDbl(TextBox5.Value)
Application.ScreenUpdating = True
End Sub
A voir également:

2 réponses

Réponse 1 / 2
Willzac Messages postés 266 Date d'inscription   Statut Membre Dernière intervention   14
 

Bonjour,

Pourquoi ne pas l'faire dans les cellule à la place?

Vous n'aurez pas Km dans les TextBox mais vous aurez Km dans les cellule

Cordialement
0
Réponse 2 / 2
Bourrique66 Messages postés 158 Date d'inscription   Statut Membre Dernière intervention   2
 

Bonjour Willzac

J'ai bien essayé de mettre ce format personnalisé (# ##0,00 "km") mais il ne veut pas s'appliquer aux cellules. Peut-être à cause du mode de calcule
0