Format pourcentage dans textbox

[Willy]

Bonjour le forum,

Je récupère la valeur en pourcentage de 2 textbox dans une troisième
comme ceci :
textbox3.value = (textbox1.value / textbox2.value)*100 et je me retrouve avec 13 chiffres après la virgule.
Je n'en souhaite que 2 et sans le sigle %.

Quel est le format à appliquer sur le textbox3 ?

J'ai essayé d'afficher le résultat dans une cellule au format pourcentage, cela fonctionne correctement mais je me retrouve avec le même pb en récupérant le contenu de la cellule dans le textbox3

Une piste ?

Merci et bon W-E
Willy

 

[@+Thierry]

Bonjour Willy, le Forum

Voici une méthode, en supposant que tu lances le calcul depuis un CommandButton, j'ai aussi mis un test de valeur numérique dans les TextBox pour éviter un méchant bug si on tape autre chose que des chiffres ou si elles sont vides :

Private Sub CommandButton1_Click()
Dim Pourcent As Double

If Not IsNumeric(TextBox1) Or Not IsNumeric(TextBox2) Then Exit Sub

Pourcent = ((TextBox2.Value / TextBox1.Value) * 100) / 100

TextBox3.Value = Format(Pourcent, "0.00%")


With Range("A1")
.NumberFormat = "0.00%"
.Value = Pourcent
End With

With Range("A2")
.NumberFormat = "0.00%"
.Value = TextBox3
End With
End Sub

A Toutes fins utiles on notera que la cellule "A1" reporte une valeur numérique, alors que la Cellule "A2" reporte du texte, d'où l'intérêt de la variable de type Double "Pourcent"si on a besoin de récupérer cette valeur pour d'autres caculs en chaines...

Bon Samedi
@+Thierry

 

[@+Thierry]

Re Willy,

En relisant "Je n'en souhaite que 2 et sans le sigle %."

Tu corrigeras ainsi (of course !! )

TextBox3.Value = Format(Pourcent, "0.00%")

Bon Samedi
@+Thierry

 

[@+Thierry]

par :

TextBox3.Value = Format(Pourcent, "0.00")

Arf !!

@+Thierry

 

[Willy]

Bonjour Thierry,
Merci pour ton aide.
Pas si évident du coup le format pourcentage, je n'y serai pas arrivé sans ton aide.

Bon W-E
Willy