XL 2016 Userform vers cellule pourcentage 3 décimales

[fmoore]

Bonjour,

Ma formule suivante :

Private Sub ButtonOk_Click()
Range("A1") = Format(Val(TextBox1.Text) / 100, "0.00%")

marche très bien mais je ne trouve pas comment ajouter des décimales.

Aussitôt j'essaie

Private Sub ButtonOk_Click()
Range("A1") = Format(Val(TextBox1.Text) / 100, "0.0000%")

le calcul ne fonctionne plus et me donne exemple pour 5.2511 % 52511 %.

Je suis découragé quelqu'un a une idée ?

Merci !

 

[youky(BJ)]

Bonjour Fmoore,
A tester
Enlève le format dans le code et mets le format de la cellule en % et 3 décimales.
Bruno

 

[Jacky67]

Bonjour,

Ma formule suivante :

Private Sub ButtonOk_Click()
Range("A1") = Format(Val(TextBox1.Text) / 100, "0.00%")

marche très bien mais je ne trouve pas comment ajouter des décimales.

Aussitôt j'essaie

Private Sub ButtonOk_Click()
Range("A1") = Format(Val(TextBox1.Text) / 100, "0.0000%")

le calcul ne fonctionne plus et me donne exemple pour 5.2511 % 52511 %.

Je suis découragé quelqu'un a une idée ?

Merci !

Bonjour,
**Ou encore..
Range("A1") = TextBox1.Value / 100
Range("A1").NumberFormat = "0.000%"

Hello Bruno
As-tu résolu le problème du copier/coller ==>code vba

 

[fmoore]

Bonjour Fmoore,
A tester
Enlève le format dans le code et mets le format de la cellule en % et 3 décimales.
Bruno

Merci. Sa fonctionne très bien, je n'en reviens pas je me cassais la tête pour une solution aussi simple.

 

[youky(BJ)]

Hello Jacky,
Pour mon copier-coller c'est toujours en passant par le bloc note
Cela se produit en messagerie COURRIER de Win10, y a pas que le vba qui se colle pas.
Sur le forum ici mon VBA sans faire un copier-coller dans le Bloc-Note ne passerait pas.
Dans les autres messageries ca colle sans PB.
Bruno