Format d'une TextBox

DL_13

XLDnaute Occasionnel

• 21 Juillet 2011

• #2

Re : Format d'une TextBox

Bonjour,

Peut-être comme cela

Code:

Private Sub TextBox1_AfterUpdate()
TextBox1 = Format(TextBox1, "0# ## ## ## ##")
End Sub

Bonne Journée

 

Vote positif 0 Vote négatif

BLACKHAYES

XLDnaute Impliqué

• 21 Juillet 2011

• #3

Re : Format d'une TextBox

Bonjour DL_13,

Génial, ca fonctionne a merveille

merci

 

Vote positif 0 Vote négatif

BLACKHAYES

XLDnaute Impliqué

• 21 Juillet 2011

• #4

Re : Format d'une TextBox

re Bonjour Le Fil,

Par contre dans une TextBox j'ai du chiffre et que je veux séparer par une virgule et ca ne fonctionne pas;
y a t'il un code spécialpour les points et virgules ?

je voudrais obtenir "00,00" ou "00.00"


et dans une autre je voudrais inserer "L/M/M/J/V/S/D", mais pas forcément tous les jours a chaque fois, cela peut etre "L/M/J" ou bien "L", ou bien encore "J/V", c'est très aleatoire
J'ai donc mis ce code Private Sub TextBox127_AfterUpdate()
TextBox127 = Format(TextBox127, " #/#/#/#/#/#/# ")
End Sub
Mais ca ne fonctionne pas non plus

qui saurait

 

Dernière édition: 21 Juillet 2011

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 21 Juillet 2011

• #5

Re : Format d'une TextBox

Bonjour BlackHayes, DL_13

Voici un exmple pour entrer des numéros de téléphone.

 

Pièces jointes

• TextBox_Format.xls

  44.5 KB · Affichages: 68

Vote positif 0 Vote négatif

BLACKHAYES

XLDnaute Impliqué

• 21 Juillet 2011

• #6

Re : Format d'une TextBox

ok, merci, MJ13, mais ca pour le tel c'est bon,

c'est pour mettre une virgule "," entre 2 nombre que ca ne marche pas

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 21 Juillet 2011

• #7

Re : Format d'une TextBox

Re Blachayes

ok, merci, MJ13, mais ca pour le tel c'est bon,

c'est pour mettre une virgule "," entre 2 nombre que ca ne marche pas

Cliquez pour agrandir...

Ce serait peut-être bien que tu mettes ton fichier non!

Le forum doit fonctionner dans les 2 sens 😕.

 

Vote positif 0 Vote négatif

BLACKHAYES

XLDnaute Impliqué

• 21 Juillet 2011

• #8

Re : Format d'une TextBox

voila mon fichier,

Sachant que la saisie se fera sans espace

ex: 922

et je voudrais que ca s'affiche en 9,22€

 

Pièces jointes

• Fichier test 2.xls

  28 KB · Affichages: 52
• Fichier test 2.xls

  28 KB · Affichages: 53
• Fichier test 2.xls

  28 KB · Affichages: 56

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 21 Juillet 2011

• #9

Re : Format d'une TextBox

Re

Alors essaye ce code (j'ai rajouté un commandbutton dans l'USf):

Code:

Private Sub CommandButton1_Click()
valeur = Replace(TextBox3, ",", ".")
ActiveCell = valeur
ActiveCell.NumberFormat = "#,##0.00 $"
End Sub
Private Sub TextBox2_AfterUpdate()
TextBox2 = Format(TextBox2, "0# ## ## ## ##")
End Sub
Private Sub TextBox3_Change()
TextBox3 = Replace(TextBox3, ".", ",")
End Sub

 

Vote positif 0 Vote négatif

BLACKHAYES

XLDnaute Impliqué

• 21 Juillet 2011

• #10

Re : Format d'une TextBox

non ce n'est pas ca,

je veux juste saisir un nombre directement dans la TextBox, et que la saisie s'affiche directement apres avoir fait "Enter" ou Tabulation pour aller a la TextBox suivante en 0,00 ou 00,00 quand il y a 4 chiffres.

mais je ne veux pas qu'on ait a cliquer surun bouton pour transformer le format.

juste un code tout bete (moins que moi, car je ne trouve pas ce code) comme celui du N° de tel,

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 21 Juillet 2011

• #11

Re : Format d'une TextBox

Re

non ce n'est pas ca,

Cliquez pour agrandir...

Je me disais aussi 😱.

Alors teste cette dernière version.

 

Pièces jointes

• Fichier_USF_Textbox_4Chiffres.xls

  44.5 KB · Affichages: 49

Vote positif 0 Vote négatif

BLACKHAYES

XLDnaute Impliqué

• 21 Juillet 2011

• #12

Re : Format d'une TextBox

désolé non plus, je veux juste que la virgule se mette toute seule après la saisie dans la textbox3

C'est tout, on saisi 922, on valide et hop ca s'affiche 9,22 ou 9.22

c'est la "Virgule ou le point" qui me pose probleme,

quand je met "##,## ou ##.##" ca memet le point ou la virgule aprés les chiffres "922," et "922.00"
il doit y avoir une astuce pour prendre le "point ou la virgule" en compte dans un code !!?

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 21 Juillet 2011

• #13

Re : Format d'une TextBox

Re

désolé non plus, je veux juste que la virgule se mette toute seule après la saisie dans la textbox3

C'est tout, on saisi 922, on valide et hop ca s'affiche 9,22 ou 9.22

c'est la "Virgule ou le point" qui me pose probleme,

quand je met "##,## ou ##.##" ca memet le point ou la virgule aprés les chiffres "922," et "922.00"
il doit y avoir une astuce pour prendre le "point ou la virgule" en compte dans un code !!?

Cliquez pour agrandir...

Pour cela, c'est très simple:

Tu ouvres un nouveau classeur, dans le code de la feuille, tu écris ce code et tu n'as même pas besoin de USF, c'est pas beau ça 🙂.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveCell.Offset(-1, 1) = ActiveCell.Offset(-1, 0) / 100
End Sub

 

Vote positif 0 Vote négatif

BLACKHAYES

XLDnaute Impliqué

• 21 Juillet 2011

• #14

Re : Format d'une TextBox

oui mais moi, c'est juste dans une textbox dans usf que je voudrais ce code

il doit bien exister un "code format" simple pour prendre en compte le point ou la virgule dans un code.

un code comme pour le format "textbox" n° de tel ci dessous, mais pour une virgule entre de chiffre

Private Sub TextBox1_AfterUpdate()
TextBox1 = Format(TextBox1, "0# ## ## ## ##")
End Sub

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 21 Juillet 2011

• #15

Re : Format d'une TextBox

Re

Dernière intervention, mais il doit y avoir plus simple 😱.

 

Pièces jointes

• Divise_par_100.xls

  50.5 KB · Affichages: 49

Dernière édition: 21 Juillet 2011

Vote positif 0 Vote négatif