Signe de dollard dans la textbox

[Dennnisss]

Bonjour a tous

Quand j'ouvre mon userform pour entree mes donnees peut-on avoir le signe de dollard dans la textbox qui attend une entree de montant d'argent sans l'effacer et le transferera dans la feuille de calcul par la suite : j'ai essayer avec le code si bas et cela ne fonctionne pas je vais essayer d,avoir une reponse seulement avec cette ligne de code mais pour les besoin de la chose je vous envoie quand meme un document au cas ou
C'est la textbox 12

TextBox 12 = Format(TextBox12, "00$")
.Range("M1").Value = Val(TextBox12)

Alors merci de votre aide
dennnisss😕

 

[Grand Chaman Excel]

Re : Signe de dollard dans la textbox

Bonjour Dennnisss,

Voici une solution qui semble fonctionner.
Une ligne à ajouter lors d'initialisation de ton userform...

Private Sub UserForm_Initialize()
'WebBrowser1.Navigate "C:\gif\blocnote.Gif"
Ajouter.TextBox1.SetFocus
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1.Value)

TextBox12.Value = Format(0, "#,##0.00 $")   '****

With Sheets("Entree")
Label19.Caption = .Range("A65536").End(xlUp).Value + 1
End With
End Sub

Et un bout de code à ajouter pour concerver le bon format lorsque le montant est entré dans la cellule.

Private Sub TextBox12_exit(ByVal Cancel As MSForms.returnboolean)
     TextBox12.Value = Format(TextBox12.Value, "#,##0.00 $")   '****
End Sub

À essayer...
A+

 

[stefan373]

Bonjour dennisss et le forum.

Mettre le format de la cellule pour 2 chiffres après la virgule.

0,00$

A +

 

[Dennnisss]

Re : Signe de dollard dans la textbox

Salut Grand chaman

J'ai utiliser ton code et il fonctionne a merveille , alors
merci a toi pour ta patience et surtout ton aide

merci mille fois a toi et tous les repondant de ce site
dennnisss