textbox en %

Lemidi34 · 8 Mars 2006

Bonsoir,

Apres maintes recherches j'ai des difficultes à rentrer des pourcentages dans des textbox.

J'y arrive à les mettre dans les textbox mais pas dans ma celulles.

j'utlise ca

Private Sub TextBox7_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox7.Value = Format(Val(TextBox7.Value) / 100, '0.00 %')
End Sub

Si je rentre 20 soit ca me met 2000 % en format % dans la cellule soit 20 en format nombre, y a t'il un truc sachant que pour rentrer le textbox je fait

Range('b1') = val(textbox1)

Merci

Marco60 · 8 Mars 2006

Salut le midi,

As-tu essayé ceci :

TextBox7.Value = Format(Val(TextBox7.Value), '0.0000') * 100 & '%'

Je n'ai pas testé donc je te laisse faire

A+

Marc

Lemidi34 · 8 Mars 2006

Meme effet que precedemment ca rentre dans la cellule à 1000 %

Charly2 · 8 Mars 2006

Bonsoir Lemidi34 et Marco60,

Si les saisies dans ta TextBox sont sous la forme '80%', tu peux essayer :

TaCellule = Val(TextBox) / 100

Si tu as des décimales :

TaCellule = CDbl(TextBox) / 100#

A+

Lemidi34 · 8 Mars 2006

Ca marche

Merci beaucoup

Manu13 · 8 Mars 2006

Bonjour à tous et le forum

n'aurais tu pas tout simplement oublié de mettre ta cellule au format pourcentage
car range('b1').value = textbox1.value
donne le bon résultat

bonne journée
Manu

textbox en %

Lemidi34

XLDnaute Occasionnel

Marco60

XLDnaute Occasionnel

Lemidi34

XLDnaute Occasionnel

Charly2

Nous a quittés en 2006

Lemidi34

XLDnaute Occasionnel

Manu13

XLDnaute Occasionnel

Discussions similaires