Format dans une textbox

Bourrique66 -  

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

2 réponses

  1. Bourrique66 Auteur

    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
    1. Willzac

      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