Format Textbox spécial

pierrejean

XLDnaute Barbatruc

• 17 Novembre 2006

• #2

Re : Format Textbox spécial

bonjour la boulange

teste

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

 

Vote positif 0 Vote négatif

la croisée des pains

XLDnaute Occasionnel

• 17 Novembre 2006

• #3

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

 

Vote positif 0 Vote négatif

la croisée des pains

XLDnaute Occasionnel

• 17 Novembre 2006

• #4

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

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 17 Novembre 2006

• #5

Re : Format Textbox spécial

Salut Laurent, Pierrejean, le forum

essai

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

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 17 Novembre 2006

• #6

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

 

Pièces jointes

• lolo.xls

  29.5 KB · Affichages: 73
• lolo.xls

  29.5 KB · Affichages: 71
• lolo.xls

  29.5 KB · Affichages: 71

Vote positif 0 Vote négatif

la croisée des pains

XLDnaute Occasionnel

• 17 Novembre 2006

• #7

Re : Format Textbox spécial

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

bonne soirée
laurent

 

Vote positif 0 Vote négatif

la croisée des pains

XLDnaute Occasionnel

• 25 Avril 2007

• #8

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

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 25 Avril 2007

• #9

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

Cliquez pour agrandir...

Bonne Journée

 

Vote positif 0 Vote négatif

la croisée des pains

XLDnaute Occasionnel

• 25 Avril 2007

• #10

Re : Format Textbox spécial

bonjour à tous,
bonjour Dull

super comme d'habitude avec toi, rapide et efficace

bonne journée

laurent

 

Vote positif 0 Vote négatif