Masque de saisie textbox ,format 0000/00

sousou

XLDnaute Barbatruc

• 26 Mars 2014

• #2

Re : Masque de saisie textbox ,format 0000/00

bonjour
je te propose ceci

Private Sub TextBox1_Change()
If Right(TextBox1, 1) = "/" Then
TextBox1 = Format(Left(TextBox1, Len(TextBox1) - 1), "0000") & "/"
End If
End Sub

 

Vote positif 0 Vote négatif

ssassam

XLDnaute Occasionnel

• 26 Mars 2014

• #3

Re : Masque de saisie textbox ,format 0000/00

Si si si sousou super ton code , merci beaucoup,

Stp est ce que jepeux afficheir le masque par defaut a l'ouverture du USERFORM a cette format ----/--

Merci

 

Dernière édition: 26 Mars 2014

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 26 Mars 2014

• #4

Re : Masque de saisie textbox ,format 0000/00

re
As ti mis le code dans ton userform?
est-ce bien textbox1 qui est concernée?
en principe lorsque tu va saisir le "/" le formatage du premier nombre doit ce faire
Pour moi ca fonctionne
si non met un point d'arret sur Private Sub TextBox1_Change() et regarde ce qui ce passe

 

Vote positif 0 Vote négatif

ssassam

XLDnaute Occasionnel

• 26 Mars 2014

• #5

Re : Masque de saisie textbox ,format 0000/00

Merci merci ça marche a merveille.

 

Vote positif 0 Vote négatif