Transfert userform dans une cellule pourcentage
Bonjour,
Dans mon userform j'ai la formule suivante :
Private Sub ButtonOk_Click()
Range("A1") = Format(Val(TextBox1.Text) / 100, "0.00%")
Elle fonctionne très bien à 2 décimal mais si je veux exemple 4 décimale je croyais je pourrais faire :
Private Sub ButtonOk_Click()
Range("A1") = Format(Val(TextBox1.Text) / 100, "0.0000%")
mais sa ne fonctionne pas.
Quelqu'un a une idée ?
Merci !
Bonjour,
pour mieux comprendre, faite le test en pas à pas,
Sub Test_pourcentage()
t = "123456"
Range("A2") = t / 10000
Range("A2").NumberFormat = "General"
Range("A2") = Format(Range("A2") / 100, "0.0000%")
Range("A2").NumberFormat = "0.0000%"
End SubEn testant votre formule sa ne fonctionne pas sa m'inscrit 123456,0000%
moi j'obtient 12.3456%
j'ai fait le test sur une cellule qui avait été préalablement formatée en texte
et aussi sur une cellule qui avait été préalablement formatée en %
je n'ai peut être pas testé tous les cas, pourriez-vous joindre votre fichier 6
Voilà un fichier vide dont j'ai inscrit la macro.
j'ouvre votre ficher et j'exécute la macro, le résultat est 12.3456%
je suis sur win7, excel2010
pouvez-vous essayer sur un autre ordi ?
Bonjour,
J'ai réglé le problème en changeant les caractéristiques de la cellule au lieu de le faire dans mon userform.
Merci !