textbox

[petchy]

bonsoir à tous
est il possible d'insérer un symbole en permanente (ex:€)dans un textbox
et quand on le valide il se met dans la case désirée.

merci
petchy

 

[denis-J]

bonsoir a tous

bonsoir Petchy

Tu donne le format au textbox comme ça:

Textbox1 = Format(Textbox1, "# ##0.00" & " €")

et comme ça des que tu entre un chiffre dans la textbox tu as le chiffre avec le signe €

@+ denis

 

[jacquesderyes]

Bonsoir petchy et Denis ,Bonsoir à tous

J'ai esayé ton code Denis, mais chez moi celà ne marche pas!et pourtant celà semble clair.
La façon(COMPLIQUEE!)que j'utilise est la suivante:

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Text = Format(TextBox1.Text, "##0.00 € ")
End Sub
Lorsque l'on valide ou que l'on va au tab suivant le TBX affiche le nombre en format monetaire et €
Pour envoyer cette valeur sur une cellule(au format monetaire € j'utilise le code suivant
ActiveSheet.[A1].Value = Val(TextBox1.Value)

Alors pourrais-tu me préciser à quel niveau tu places ton code qui est nettement moins emm......t que le mien!?

J'ai profité de ta question petchy et de la réponse de Denis pour essayer d'y voir plus clair.
Merci à vous deux
Bonne nuit à tous les amis du FORUM

Jacques de ryes

 

[petchy]

bonjour
merci denis-j pour ta réponse,il ya un petit soucis avec le code,quand je met un chiffre dans le textbox le symbole s'affiche de suite
exemple:2,00€ si je veut 200€ je suis obliger de revenir en arriere avec les flèches,il y a t'il une solution pour ça.

merci
petchy