UserForm : format de cellule de destination

[babap1]

Bonjour,

J'ai une TextBox d'un UserForm qui me permet de saisir un prix en €.
J'ai d'autre part, une colonne de mon tableur dont les cellules ont un format 'monétaire'.

Lorsque je saisis une valeur dans mon UserForm, en vue de l'insérer dans ma colonne de destination, la valeur issue de la TextBox s'insère en format 'Text' et non avec le format 'monétaire' de la colonne de destination ...

Voila mon code d'insertion :

.Offset(0, 1).Value = UserForm.TextBox_prix

Est-ce que quelqu'un a une idée ?
Je vous remercie par avance,

Bap

 

[roro69]

Re : UserForm : format de cellule de destination

Bonjour a essayer

.Offset(0, 1).Value = UserForm.Ccur(TextBox_prix)

A++

 

[babap1]

Re : UserForm : format de cellule de destination

Bonjour roro69,

je viens de tester et... ça ne fonctionne pas chez moi ...

 

[La braise]

Re : UserForm : format de cellule de destination

salut,

je procédè comme ça :

je déclare la variable dans le module en Public et currency

dans l'UF,
Variable = UserForm.TextBox_prix.Text

Pour ton code
.Offset(0, 1).Value = Variable

c'est peut-être pas le plus efficace mais ça marche.

 

[youky(BJ)]

Re : UserForm : format de cellule de destination

Bonjour le fil,...
Dans un textbox les chiffres sont reconnus comme du text.
De plus, souvent le séparateur est la virgule et non le point.
Donc en 1er changer le point en virgule et en 2eme convertir.
[A1] = CDbl(Replace(Me.TextBox1, ".", ","))
mettre le format de la colonne qui reçoit en monétaire ou autres, les valeurs seront prises en chiffres.
Bruno