Discussion :

[phil107]

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

[Transitoire]

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[eriiic]

Bonjour,

ou directement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

... =cdbl(TextBox1.Text)

eric

[pijaku]

Bonjour,

Transitoire, Eriiic (salutations),

Attention à l'erreur 13 qui vous guette.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[eriiic]

exact :-)

[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
Cordialement