textbox en %

[Lemidi34]

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]

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]

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

 

[Charly2]

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]

Ca marche

Merci beaucoup

 

[Manu13]

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