XL 2016 mettre en format une TextBox ayant déjà une valeur

marc.gilliand

XLDnaute Occasionnel
Bonjour le Forum
J'ai une textBox aélimentée depuis une base de donnée, dont voici le code :

Private Sub TextBox42_Change()

Sheets("USF9").Cells(38, 2).Value = TextBox42.Value

End Sub

Je souhaterai lui rajouter la ligne de code suivante :

Private Sub TextBox42_AfterUpdate()

On Error Resume Next

TextBox42Text = Format(TextBox42.Text, "#,##0.00 CHF")

End Sub

mais lorsque je saisis une valeur, la TB se comporte d'une manière très bizarre, Xl me remonte 1CHF.00, alors que le montant que je saisis est de 100

Merci de votre aide.
 

patricktoulon

XLDnaute Barbatruc
Bonsoir
VB:
Private Sub TextBox42_AfterUpdate()
    Dim T$
    With TextBox42
        T = Replace(.Text, ".", ",")
        If IsNumeric(T) Then .Text = Format(T, "#"".""##0.00 CHF")    'le point avant les milliers
        'ou
        'If IsNumeric(T) Then .Text = Format(T, "#.##0.00 CHF")    ' espace avant les milliers
    End With
End Sub
 

Discussions similaires