format texbox

cloclo57

XLDnaute Junior
Bonjour le forum

Un petit soucis de format d'un textbox
Je voudrais que la somme soit sous la forme ( 22,00 € )

Il doit y avoir une erreur dans la forme ci dessous

tarif.Value = format(tarif.Value, "# 00.## €")


Merci d'avance de la reponse
 

Pierrot93

XLDnaute Barbatruc
Re : format texbox

Bonjour Cloclo

regarde le code ci dessous, si cela peut t'aider :

Code:
Private Sub UserForm_Initialize()
tarif.Value = "22"
tarif.Value = Format(tarif.Value, "# #0.00 €")
End Sub

bon après midi
@+

Edition : bonjour Wilfried
 

cloclo57

XLDnaute Junior
Re : format texbox

Bonjour Wilfried 42
Merci de ta reponse rapide

J'ai essayé ton dernier exemple
tarif.Value = format(val(tarif.Value), "# ##0.00") & " €"

en entrant la valeur 22 il me m'affiche ( 2,00 € )

Merci de ta collaboration
 

Pierrot93

XLDnaute Barbatruc
Re : format texbox

Re

essaye comme ceci :

Code:
Private Sub tarif_Exit()
tarif.Value = Format(tarif.Value, "# #0.00 €")
End Sub

l'événement change intervient à chaque fois que tu tappes un caractère, l'événement "Exit" se déclenchera quand tu quitteras le textbox.

@+
 

cloclo57

XLDnaute Junior
Re : format texbox

J'ai mis ton exemple en place et j'ai le message suivant
Private Sub tarif_Exit()
tarif.Value = Format(tarif.Value, "# #0.00 €")
End Sub

Erreur de compilation
La declaration de la procedure ne correspond pas a la description de l'evenement ou de la procedure de meme nom
 

Statistiques des forums

Discussions
314 079
Messages
2 105 475
Membres
109 376
dernier inscrit
padawan88300