Excel TextBox Format Résolu

Question

Bonjour, 

J'ai des TextBox dans mon code qui prennent la valeur de cellules au format pourcentage 
Je cherche a avoir la valeur de ma textbox au format pourcentage egalement avec 2 chiffres apres la virgule 

Ma textBox s'appel BC1 et pour l'instant elle est egale a 48,22 % 

Si je met rien dans le code j'obtien 0,4822 et au format text... 
si je met le code suivant 

BC1 = Format(BC1, "0.00%") 

j'obtien bien 48,22% mais toujours en format text 

si je met BC1 = Format(BC1, "0,00%") (avec une virgule) 
j'obtien bien un pourcentage mais sans les deimales : il m 'affiche 48,00% au bon format 

voila moi je voudrai avoir 48,22 % en tant que nombre et pas tex 

si quelau un sait 
merci 
Antoine

thev · Answer

1- affichage
BC1.Value = Format(BC1.Value, "0.00%")

2- récupération valeur
BC1.Value = Replace(BC1.Value, "%", "")
BC1.Value = Replace(BC1.Value, " ", "")
BC1.Value = Replace(BC1.Value, ",", ".")
BC1.Value = Val(BC1.Value)

anocheda · Answer

Merci mais ca change rien,

A l'affichage c'est toujours bon , j' 48,12 % mais il y a toujours une petite fenetre verte dans ma cellule qui dit:
"Nombre stoké sous forme de texte"  et donc c'est inutilisable 

je te met un fichier ultra simple en joint   il prend la cellule A1 la met dans la textBox et la colle dans la cellule A2  et moi je voudrai qu'il n'y ait pas le petit onglet vert dans laq cellule

merci si tu as le temps

bon je sais pas comment on joint un fichier..

tu ouvre un nouveau classeur , tu cré une textbox1 et un boutton  et tu colle le code:

Private Sub CommandButton1_Click()

TextBox1.Value = Cells(1, 1).Value
TextBox1.Value = Format(TextBox1.Value, "0.00%")
Cells(1, 2).Value = TextBox1.Value

End Sub

en A1 tu marque 0,1234  et tu appui sur le bouton 
en A2 va y avoir la bonne reponse mais au mauvais format  ...

thev · Answer

'** alimentation champ formulaire 
TextBox1.Value = Cells(1, 1).Value 

'** transformation en valeur texte pour affichage champ formulaire
TextBox1.Value = Format(TextBox1.Value, "0.00%")                

' ** transformation valeur texte en valeur numérique
TextBox1.Value = Replace(TextBox1.Value .Value, "%", "") 
TextBox1.Value = Replace(TextBox1.Value .Value, " ", "") 
TextBox1.Value = Replace(TextBox1.Value .Value, ",", ".") 
TextBox1.Value = Val(TextBox1.Value)

'** alimentation A2
Cells(1, 2).Value = TextBox1.Value 
Cells(1, 2).Value.Numberformat  = "0,00%"                

'** restauration en valeur texte pour affichage champ formulaire
TextBox1.Value = Format(TextBox1.Value, "0.00%")

eriiic · Answer

Bonjour,

tu as déjà posé cette question hier, merci d'éviter les doublons.

anocheda · Answer

D'accord merci j'avais compri le truc  mais ca marche pas....
Est ce que ca marche chez toi?

Si tu prend ton code (en enlevant des petites erreures) et que tu mets 0,1234 en A1, 
en A2 tu va avoir le bon resultat mais avec un petit triangle vert qui dit que c'est pas au bon format....

thev · Answer

il faut que je vérifie ton exemple car j'ai en fait extrait du code dans une application que j'ai écrite et qui fonctionne correctement. Cela dit, en examinant le mieux le code de cette application, j'apporte une correction : 

** alimentation champ formulaire 
TextBox1.Value = Cells(1, 1).Value 

'** transformation en valeur texte pour affichage champ formulaire 
TextBox1.Value = Format(TextBox1.Value, "0.00%") 

' ** transformation valeur texte en valeur numérique 
TextBox1.Value = Replace(TextBox1.Value .Value, "%", "") 
TextBox1.Value = Replace(TextBox1.Value .Value, " ", "") 
TextBox1.Value = Replace(TextBox1.Value .Value, ",", ".") 
TextBox1.Value = Val(TextBox1.Value) /100
TextBox1.value= Replace(TextBox1..Value, ",", ".")

'** alimentation A2 
Cells(1, 2) = TextBox1.Value 
Cells(1, 2).Numberformat = "0,00%" 
'** restauration en valeur texte pour affichage champ formulaire 
TextBox1.Value = Format(TextBox1.Value, "0.00%")

A vérifier et au fait, as-tu vérifié le format de ta cellule A2. Elle doit être au format standard ou nombre.

anocheda · Answer

Excellent ca marche avec ton aide,  en fait il faut juste faire:


TextBox1.Value = Cells(1, 1).Value

TextBox1.Value = Format(TextBox1.Value, "0.00%") 
TextBox1.Value = Replace(TextBox1.Value , ",", ".")

Cells(1, 2) = TextBox1.Value
Cells(1, 2).NumberFormat = "0.00%"    ' avec un point ici et pas une virgule 

ca marche super bien maintenant 

merci

eriiic · Answer

et pour être sûr que tout le monde le lise un p'tit lien à la fin : 
http://www.commentcamarche.net/forum/affich 7677380 excel textbox format#9

anocheda · Answer

Salut Eric,

Faut pas s'enerver comme ca !!!

j'pense pas avoir été aussi méchant, égoiste, indécent... pour avoir reposé une question dé&#309;à posée...
effectivement j'aurai du mettre résolu sur l'autre ou la remettre en haut mais... j'y ai pas pensé...

J'ai du poser une 30 ene de questions sur ce forum et j'ai du oublier de dire merci a 2 effectivement 
C'est parceque j'ai pas compri les réponses et que j'ai changé d'idée entre temps, c'est vrai que c'est un peu égoiste.

Je trouve ce forum super bien et les gens dessus excellent, rapide et sympa donc je m'excuse si tu as mal pri ce message, j'recommencerai plus...

On reste ami quand meme?

anocheda

eriiic · Answer

Je pense qu'à un certain moment il faut savoir dire les choses.
C'est tombé sur toi comme ça aurait pu tomber sur d'autres, rappeler les regles élémentaires est malheureusement nécessaire...
Sans rancune mais n'oublie pas que laisser un mot, même la personne n'a pas résolu ton pb, est le minimum pour la remercier d'y avoir passer du temps. 
eric

Excel TextBox Format

10 réponses

Newsletters