Microsoft 365 Montant dans une TextBox

[Yann71]

Bonsoir la comm. J'ai un tableau avec des montants ex.: 635.- . Mes TextBox affiche que le montant sans les symbole .-
Quel est la solution pour y arriver !

J'utilise ce code :

Private Sub userform_initialize()

TextBox1.Text = Sheets("Liste").Range("M65").Value
TextBox2.Text = Sheets("Liste").Range("N65").Value
TextBox3.Text = Sheets("Liste").Range("O65").Value
TextBox4.Text = Sheets("Liste").Range("P65").Value

End Sub

 

[Dranreb]

Bonsoir.
Utilisez la fonction Format pour mettre en forme les textes à destination de TextBox construits à partir de montants.
Vous pouvez aussi affecter la propriété Text des cellules au lieu des propriétés Value.

 

[sylvanu]

Bonsoir Yann, dranreb,
Un petit fichier test serait le bienvenu.
Au pif essayez avec ça :

Sub essai()
With UserForm1
    .TextBox1.Text = Sheets("Liste").Range("M65").Text
    .TextBox2.Text = Sheets("Liste").Range("N65").Text
    .TextBox3.Text = Sheets("Liste").Range("O65").Text
    .TextBox4.Text = Sheets("Liste").Range("P65").Text
    .Show
End With
End Sub

 

[Dranreb]

N'oubliez pas lors du renvoi vers des cellules de reconvertir ces textes en montants au moyen de la fonction CCur.

 

[Yann71]

Bonsoir Yann, dranreb,
Un petit fichier test serait le bienvenu.
Au pif essayez avec ça :

Sub essai()
With UserForm1
    .TextBox1.Text = Sheets("Liste").Range("M65").Text
    .TextBox2.Text = Sheets("Liste").Range("N65").Text
    .TextBox3.Text = Sheets("Liste").Range("O65").Text
    .TextBox4.Text = Sheets("Liste").Range("P65").Text
    .Show
End With
End Sub

Bonsoir Dranreb, merci pour ton aide, c'est ce que je recherchais.

Salutations

Yann