TextBox en format %

Paritec

XLDnaute Barbatruc

• 4 Mars 2011

• #2

Re : TextBox en format %

bonjour Daniel 1949
juste un truc de départ, si tu as mis comme tu as écrit c'est normal que cela ne marche pas
il faudrait déjà mettre bien Textbox1
a+
Papou 🙂

Code:

TextBox1 = Format(TextBox1, "00.00 %")

ou aussi

Code:

TextBox1 = Format(cells(173,9),"00.00 %")

 

Dernière édition: 4 Mars 2011

Vote positif 0 Vote négatif

daniel1949

XLDnaute Occasionnel

• 4 Mars 2011

• #3

Re : TextBox en format %

Bonjour Paritec et merci,
Le "1" manquant est un oubli... dans ma description. Sinon les codes que tu me proposes, ne marchent pas (j'ai déjà essayé).
Je me demande si le fait d'attribuer un controlsource au textbox est une bonne solution...
Pour l'instant je ne touche pas car... c'est pas mon jour.
A bientôt

 

Vote positif 0 Vote négatif

James007

XLDnaute Barbatruc

• 4 Mars 2011

• #4

Re : TextBox en format %

Bonjour à tous,

Pour éviter tout ennui, mieux vaut valider ta TextBox1 pour les nombres, et utiliser l'évènement Exit Event pour formatter ta TextBox1 en pourcentage ...

A +
🙂

 

Vote positif 0 Vote négatif

daniel1949

XLDnaute Occasionnel

• 4 Mars 2011

• #5

Re : TextBox en format %

Bonjour James,
Sur tes conseils (Exit(évenements...) j'ai fini par trouver une solution (partielle) et un peu branquignolle...

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
' alimentation champ formulaire
TextBox1.Value = Range("I173").Value
' transformation % en 100ème
TextBox1.Value = Val(TextBox1.Value) / 100
' transformation en valeur texte pour affichage champ formulaire
TextBox1 = Format(TextBox1.Text, "0.00%")
End Sub

Cliquez pour agrandir...

Ca marche si... je clique sur un autre TextBox !
Bizarre.
Bonne journée

 

Vote positif 0 Vote négatif

James007

XLDnaute Barbatruc

• 4 Mars 2011

• #6

Re : TextBox en format %

Re,

Content que tu aies la solution à ton problème ...

Comme le nom de la macro Event l'indique : Exit... le format de ta TextBox1 se fait dès que ... tu quittes ta TextBox1 ...

A +
🙂

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 4 Mars 2011

• #7

Re : TextBox en format %

Re bonjour Daniel1949, James🙂
oui il faut surtout supprimer ton rowsource dans le textbox, c'est lui qui te pose problème
et tu verras que après tout marchera et pas une fois sur deux.
(Pour James, ma récupération sur yahoo pour les cours et top maintenant)
a+
Papou 🙂

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 4 Mars 2011

• #8

Re : TextBox en format %

Bonjour le fil,

daniel1949 à dit:

Dans les propriétés du TextBox j'indique en ControlSource : I173

Cliquez pour agrandir...

Est-ce bien utile ?!
Si tu formattes la TextBox, tu formateras aussi la cellule, non ?!

Code:

Private Sub UserForm_Initialize()
TextBox1 = Range("I173")
If Len(TextBox1) > 0 And IsNumeric(TextBox1) Then TextBox1 = Format(TextBox1 / 100, "00.00%")
End Sub

...en ayant viré le ControlSource auparavant
A+
kjin

 

Vote positif 0 Vote négatif

daniel1949

XLDnaute Occasionnel

• 4 Mars 2011

• #9

Re : TextBox en format %

Re-bonjour,
Tu veux dire ControlSource ? Je n'ai pas de rowsource dans les propriétés du TextBox.
Existe-t-il un moyen autre que ExitEvent ?
Bonne journée

 

Vote positif 0 Vote négatif

daniel1949

XLDnaute Occasionnel

• 4 Mars 2011

• #10

Re : TextBox en format %

Bonjour et merci Kjin,
Pas mal sauf que 57.50 % de la cellule I173 deviennent 0,58 %... même après avoir viré le control source !
C'est soit dans "/100", soit dans "00.00%"... mais comme je l'ai signalé plus haut : c'est pas mon jour !

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 4 Mars 2011

• #11

Re : TextBox en format %

Bonjour,

daniel1949 à dit:

c'est pas mon jour !

Cliquez pour agrandir...

Non, c'est surtout pas très clair !
Mon marc de café s'obstine à ne pas vouloir me dire ce que contient I173 !!!
Soit ta cellule est déjà au format pourcentage soit elle ne l'est pas, d'où la division par 100 ou pas, à moins qu'il ne faille aussi tester son format...
A+
kjin

 

Vote positif 0 Vote négatif

daniel1949

XLDnaute Occasionnel

• 4 Mars 2011

• #12

Re : TextBox en format %

Re-Bonjour,
Au tout début était...

(...) en cellule I173 j'ai un résultat (variable) en format 00,00%

Cliquez pour agrandir...

On va prendre un café pour récupérer un marc ? ;-)
A + et encore merci.
Daniel

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 4 Mars 2011

• #13

Re : TextBox en format %

Re,

daniel1949 à dit:

Au tout début était...

Cliquez pour agrandir...

Désolé, je l'ai vu après coup...!
Qu'entends tu par variable
A+
kjin

 

Vote positif 0 Vote négatif

daniel1949

XLDnaute Occasionnel

• 4 Mars 2011

• #14

Re : TextBox en format %

Re,
Variable ? C'est que ce chiffre est une somme de % d'une colonne. Rien d'important en soi...

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 4 Mars 2011

• #15

Re : TextBox en format %

Re,

daniel1949 à dit:

Variable ? C'est que ce chiffre est une somme de % d'une colonne. Rien d'important en soi...

Cliquez pour agrandir...

Pourquoi préciser alors...(cela aurait pu justifier le ControlSource)

Code:

Private Sub UserForm_Initialize()
TextBox1 = Range("I173").Value
If Len(TextBox1) > 0 And IsNumeric(TextBox1) Then TextBox1 = FormatPercent(TextBox1, 2)
End Sub

...devrait suffire, si la cellule est déjà bien au format "0.00%", le 2 indiquant ici 2 chiffres après la virgule
A+
kjin

 

Vote positif 0 Vote négatif