OVH Cloud OVH Cloud

Textbox

2 réponses
Avatar
Denys
Bonjour à tous,

Sur un userform, j'ai quelques textbox dans lesquels l'usager inscrit des
montants.
Je souhaiterais deux choses:
1) Si le montant est entier, qu'Excel ajoute .00 à la sortie du textbox
2) (Plus difficile je présume) Que le montant à la gauche du point aille
dans la cellule C1, et que les deux chiffres à la droite du point aillent en
D1.

Quelqu'un pourrait m'orienter en ce sens?

Merci pour votre temps

Denys

2 réponses

Avatar
Daniel
Bonjour.
[C1] = Int(CDbl(TextBox1.Value))
[D1] = CDbl(TextBox1.Value) - _
Int(CDbl(TextBox1.Value))
[C1:D1].NumberFormat = "0#.00"
Cordialement.
Daniel
"Denys" a écrit dans le message de news:

Bonjour à tous,

Sur un userform, j'ai quelques textbox dans lesquels l'usager inscrit des
montants.
Je souhaiterais deux choses:
1) Si le montant est entier, qu'Excel ajoute .00 à la sortie du textbox
2) (Plus difficile je présume) Que le montant à la gauche du point aille
dans la cellule C1, et que les deux chiffres à la droite du point aillent
en
D1.

Quelqu'un pourrait m'orienter en ce sens?

Merci pour votre temps

Denys


Avatar
Denys
Bonjour Daniel,

Merci infiniment..... tout est parfait..

Bonne journée

Denys


Bonjour.
[C1] = Int(CDbl(TextBox1.Value))
[D1] = CDbl(TextBox1.Value) - _
Int(CDbl(TextBox1.Value))
[C1:D1].NumberFormat = "0#.00"
Cordialement.
Daniel
"Denys" a écrit dans le message de news:

Bonjour à tous,

Sur un userform, j'ai quelques textbox dans lesquels l'usager inscrit des
montants.
Je souhaiterais deux choses:
1) Si le montant est entier, qu'Excel ajoute .00 à la sortie du textbox
2) (Plus difficile je présume) Que le montant à la gauche du point aille
dans la cellule C1, et que les deux chiffres à la droite du point aillent
en
D1.

Quelqu'un pourrait m'orienter en ce sens?

Merci pour votre temps

Denys