format textbox monetaire

[naidinp]

Bonsoir a tous,

Voila je recupere dans un UserForm la valeur d'un champ (monetaire) et je l'affiche dans une textbox.

Est il possible d'afficher le valeur recupere sous forme monetaire ? (au lieu d'afficher la valeur 1299,56 afficher 1299,56 €)

merci d'avance

Paul

 

[@+Thierry]

Salut Naidimp, le Forum

Voici comment faire :

Private Sub UserForm_Initialize()
With Me.TextBox1
.Value = Format(Sheets("Sheet1").Range("A1"), "# ###.#0 €")
End With
End Sub

Mais attention si tu dois ensuite récupérer la valeur de la TextBo1...

Je te conseille ces fils :
Lien supprimé

Lien supprimé

Tu y trouveras mes démos...

Bonne Soirée
@+Thierry

 

[naidinp]

Bonsoir,

J'ai essaye la première variante (pour me faire la main ;o) mais je rencontre un pb au niveau de l'initialisation de mon formulaire. J'ai l'erreur d'execution '9' - L'indice n'appartient pas à la sélection.

Qq'un a t'il une idee ?

Merci d'avance.

Paul