% dans une textbox

[Tungstene]

Bonjour,

J'ai une textbox dans laquelle j'inscris un %
J'utilise le code suivant :

TextBox = Format(TextBox.Value, '0%')

En revanche le format défini multiplie par 100 ce que je rentre dans ma textbox.
Autrement dit pour afficher 50% je dois rentrer 0.5 qui x100 = 50%.

Etant donnée que j'aurai que des % sans chiffres après la virgule, n'est il pas possible d'avoir quelque choses qui me transforme le chiffre que je mets en % sans multiplier par 100.

Soit si je rentre 50 cela doit m'afficher 50% et bien prendre en compte que cela correspond à 50 % car je m'en sert dans un calcul ensuite.

Merci.

 

[Charly2]

Bonjour Tungstene, bonjour le forum,

Pourquoi ne pas tout simplement le faire dans ton affectation :

TextBox = Format(TextBox.Value/100, '0%')

Cela répondrait à ta demande pour l'affichage et pour les calculs ultérieurs...

Amicalement
Charly

 

[Tungstene]

Merci mais déjà essayer et ça foncitonne pas.

 

[Hervé]

Bonjour tungstène, charly

J'aurais fait la meme réponse que charly.

Par contre ce code va te transformer ta donnée en string, il faut donc que tu la change en numerique pour faire tes calculs: Val(TextBox)

salut

 

[Charly2]

Re Tungstene et Hervé et tous les autres 😉

La conversion est naturellement indispensable, comme le dit Hervé, mais pour le problème d'affichage de valeur, je viens d'essayer et cela fonctionne très bien :

Private Sub TextBox1_AfterUpdate()
Me.TextBox1.Value = Format(Me.TextBox1.Value / 100, '0%')
End Sub

Cela donne le résultat que tu souhaitais au niveau de l'affichage du moins...

Charly

 

[evelynetfrancois]

bonsoir a tous !!

pour passer en numerique je fais
Me.TextBox1.Value = Format(Me.TextBox1.Value / 100, '0%')*1

pas accademique mais efficace

bonne soirée
EetF