Changer la valeur TextBox vers cellule

Bonjour le forum,

Pouvez vous me dire comment je dois faire pour que la valeur "Me.Valeur.Value" soit reconnue dans le fichier Excel comme une valeur monétaire. Et si possible écrire dans ma TextBox en positif et avoir la valeur en négatif coté Excel.

Voici le code

Public Sub ValD()

Dim LigneAjout As Single

With Worksheets("Tableau de Bord")

LigneAjout = .Range("B" & Rows.Count).End(xlUp).Row + 1

.Range("B" & LigneAjout) = Me.CmBoxSociete.Value

.Range("C" & LigneAjout) = Me.ComBoxTrade.Value

.Range("D" & LigneAjout) = Me.ComBoxSite.Value

.Range("E" & LigneAjout) = Me.Tescrib.Value

.Range("F" & LigneAjout) = CDate(Me.DateEntrée.Value)

.Range("G" & LigneAjout) = Me.CmBoxTypD.Value

.Range("H" & LigneAjout) = Me.CmBoxNomD.Value

.Range("X" & LigneAjout) = Me.ReferenceF.Value

.Range("Z" & LigneAjout) = CDate(Me.DateFour.Value)

.Range("AA" & LigneAjout) = CDate(Me.DateDebut.Value)

.Range("AC" & LigneAjout) = CDate(Me.DateFin.Value)

.Range("V" & LigneAjout) = Me.Valeur.Value

.Range("AE" & LigneAjout) = Me.CmBoxNomStx.Value

.Range("AG" & LigneAjout) = Me.Comment.Value

Merci pour votre aide

José

bonsoir

une proposition

.Range("V" & LigneAjout) = - Me.Valeur.Value
.Range("V" & LigneAjout).NumberFormat = "$#,##0.00"