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

[marc.gilliand]

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.

 

[herve62]

Bonsoir

Je souhaterai lui rajouter la ligne de code suivante :

?? pige pas , tu passes d'une sub change à update ensuite tu mets

TextBox42Text

c'est quoi cette variable ??
Comme quoi un bout de fichier joint est nettement plus explicite !!

 

[patricktoulon]

Bonsoir

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