Format dans une textbox

Bourrique66 Messages postés 166 Statut Membre -  
Bourrique66 Messages postés 166 Statut Membre -

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.
    Willzac Messages postés 281 Statut Membre 15
     

    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
  2. Bourrique66 Messages postés 166 Statut Membre 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