Format pourcentage

[DAVIDRUN]

Bonjour le forum,
Mon problème est le suivant:
Dans TextBox1 j'écrit un taux (20.6 avec le pave numérique), avec l'évenement TextBox1_AfterUpdate, je souhaite formater 20.6
en 20,6 %.
Dans un même temps, je souhaite ecrire dans une cellule (Feuil6.Range ("K2")) la valeur absolue de ce poucentage soit (0,206) pour permettre un calcul sur la feuille...

Je rencontre un problème d'imcompatibilité de type avec mon code.

Merci pour votre aide


à+
DAVIDRUN

 

[STéphane]

bonjour

un petit classeur démo

dommage que le moteur nemarche pas.


bye
stephane

 

[didier]

Salut,

Pour inscrire la valeur absolue facile :
Range("K2") = Val(TextBox1.Value) / 100

Pour ce qui est de formatté 20.6 en 20,6% il faut passer par une cellule afin de pouvoir utiliser la fonction 'Replace' de Excel :

Range("K3") = Val(TextBox1.Value) >> Inscrire la valeur dans 1 cellule
Range("K3").Replace ".", "," >> Remplacer point par virgule
TextBox2.Value = Range("A2") & "%" >> Ajouter le symbole %

Comme je ne savais pas où devais venir le résultat formatté, j'ai créé une seconde textbox ...

A+
Didier