Changer valeur de textbox en valeur monetaires

Version imprimable

26/10/2018, 16h48
phil107

1 pièce(s) jointe(s)

Changer valeur de textbox en valeur monetaires

bonjour,

je suis novice en la matiere. j'ai un userform qui va alimenter un tableau. dans ce userform j'ai des textbox (elles sont colorisée dans le fichier joint) qui doivent contenir des valeurs monetaires .
je voudrais en fait , que les valeurs des textes box s'affichent en format monetaires dans mon tableau

merci de me venir en aide

Bonjour,

Citation:

je suis novice en la matiere. j'ai un userform qui va alimenter un tableau. dans ce userform j'ai des textbox (elles sont colorisée dans le fichier joint) qui doivent contenir des valeurs monetaires .
je voudrais en fait , que les valeurs des textes box s'affichent en format monetaires dans mon tableau

Il faut déjà par l'entête excel des colonnes concernées, choisir un format monétaire puis ensuite passer les valeurs sous une forme comme celle-ci:
Code:

1 2 3 4 5 Private Sub TextBox1_Change() Dim x As Double x = TextBox1.Value Range("A1").Value = x 'La range("A1") est donnée comme exemple et doit être remplacée par l'adresse correspondante. End Sub
Chez moi ça fonctionne. A vous de le mettre à votre sauce. :)
Cordialement 8-)

27/10/2018, 18h54
eriiic

Bonjour,

ou directement :

Code:

... =cdbl(TextBox1.Text)

eric

Bonjour,

Transitoire, Eriiic (salutations),

Attention à l'erreur 13 qui vous guette.

Code:

1
2
3
4
5
6
7
8
9
Private Sub TextBox1_Change()
Dim x As Double
   If TextBox1.Value <> "" Then
      x = TextBox1.Value
      Range("A1").Value = x
      'ou directement :
      Range("A1").Value = CDbl(TextBox1.Value)
   End If
End Sub

29/10/2018, 11h56
eriiic

exact :-)
29/10/2018, 14h59
Transitoire

Salut a tous.
L'erreur 13 qui nous guette?
J'ai pourtant testé mon code avant de la transmettre et sur mon ordinateur ça fonctionnait super bien. pourriez vous développer un peu Svp 8O
Cordialement 8-)
29/10/2018, 15h02
pijaku

Salut,

En utilisant l'événement Change() de ton TextBox, tu t'exposes à son déclenchement lors de la suppression du contenu du TextBox.
Or un TextBox vide renvoie "" (vbNullString).
Cette valeur (vbNullString), comme tout String (excepté une valeur numérique stockée sous forme de String), provoque l'erreur 13 si on tente de la stocker dans une variable de type Double.

Ce que je développais dans mon code :

Code:

If TextBox1.Value <> "" Then
29/10/2018, 15h10
Transitoire

Re.
Okay Je ne connaissais pas, d'habitude, je ne transfère mes valeurs que sur bouton de commande, ce qui fait que je n'utilise pas l'évenement change.
Je suis content, j'en ai appris une nouvelle :mouarf:
Cordialement 8-)