Discussion :

[albanalix]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[antonysansh]

Tu peux essayer comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[albanalix]

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.

[antonysansh]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[albanalix]

Merci, c'est exactement ce que je voulais!