Format Textbox spécial

[la croisée des pains]

bonjour à vous tous,

j'aimerais savoir comment écrire ce format dans mon textbox de mon usf(format Tva intracommunautaire)

FR00 000 000 000

j'ai ecris ce code :

Private Sub TextBox9_Change()
TextBox9.Value = "FR"
TextBox9 = Format(TextBox9, "00 000 000 000")
End Sub

mais cela ne marches pas,merci de votre aide
bonne journée
Laurent

 

[pierrejean]

Re : Format Textbox spécial

bonjour la boulange

teste

Private Sub TextBox1_AfterUpdate()
TextBox1 = "FR" & Format(TextBox1, "00 000 000 000")
End Sub

 

[la croisée des pains]

Re : Format Textbox spécial

bojour le forum,bonjour PierreJean

le teste est bon, merci de ton aide
est-il possible que le Fr reste dans le textbox et mettre seulement le numéro?

bonne journée

 

[la croisée des pains]

Re : Format Textbox spécial

re,
et est-il possible d'écrire le label de l'usf quand on range le textbox.
je m'explique:
je rentre le nombre de jours dans un texbox
ce que j'ecris actuellement : 15

ce que je voudrais en prenant le label du textbox: 15 jours
"jour "correspond au label


Private Sub CommandButton2_Click()
Dim x As Range

With Sheets("Base")

li = .Range("G65536").End(xlUp).Row + 1

.Range("G" & li) = Me.TextBox1

End With
TextBox1 = ""
End Sub

 

[Dull]

Re : Format Textbox spécial

Salut Laurent, Pierrejean, le forum

essai

TextBox1.Value = Format(TextBox1, "FR" & "00 000 000 000")

 

[Dull]

Re : Format Textbox spécial

Re le fil,


2ème question

vois si le fichier joint peut t'aider
en espérant avoir bien compris

Bonne Journée

 

[la croisée des pains]

Re : Format Textbox spécial

re bonjour,
merci à vous Dull et PierreJean
cela marche impécable

bonne soirée
laurent

 

[la croisée des pains]

Re : Format Textbox spécial

bonjour,
voila j'ai un petit souci de textbox
j'ecris dans le textbox comme ceci 04512006 et après j'aimerais automatiquement cela se transforme en FAC04512006.

donc voila mon code

Private Sub TxtN°Facture_AfterUpdate()
TxtN°Facture.Value = Format(TxtN°Facture, "FAC" & "00000000")
End Sub

voila le resultat: FA03/04/190400000000

si j'enleves le ''C'' de FAC cela marche!!!!!

merci de votre aide
laurent

 

[Dull]

Re : Format Textbox spécial

Salut lolo, le Forum

essai cela

Private Sub TxtN°Facture_AfterUpdate()
TxtN°Facture.Value = Format("FAC" & TxtN°Facture)
End Sub

Bonne Journée

 

[la croisée des pains]

Re : Format Textbox spécial

bonjour à tous,
bonjour Dull

super comme d'habitude avec toi, rapide et efficace

bonne journée

laurent