Mise en forme textbox

Bonjour,

J'ai créé un formulaire qui affiche la valeur d'une cellule dans une textbox avec ce code:

Code:

---

1 2 3 4 5

Private Sub UserForm_Activate()   UserForm1_1.TextBox1.Value = Sheets(1).Range("q2").Value   End Sub

---

Je suis plutôt satisfait de ce formulaire cependant j'aimerais qu'il affiche la valeur dans un format monétaire (0,00 €) ou au moins savoir comment contrôler le nombre de chiffre après la virgule.

Merci d'avance pour le temps accordé à mon problème de débutant :)

Tu peux essayer comme ça :

Code:

---

1 2 3 4 5

Private Sub UserForm_Activate()   UserForm1_1.TextBox1.Value = Format(Sheets(1).Range("q2").Value, "#,##0.00 €")Sheets(1).Range("q2").Value   End Sub

---

Bonjour anthony et merci du temps que tu accordes à mon problème
J'ai essayé d'utiliser le code que tu m'as fourni mais je rencontre un problème lorsque je lance mon userform.
La textbox est vide et j'ai un message d'erreur:
/!\ Erreur de compilation: erreur de synthaxe.

Problème de copier/coller désolé :

Code:

---

1 2 3 4 5

Private Sub UserForm_Activate()   UserForm1_1.TextBox1.Value = Format(Sheets(1).Range("q2").Value, "#,##0.00 €")   End Sub

---

Merci, c'est exactement ce que je voulais!