formater une zone de texte

[luke]

bonsoir,

est-il possible de formater une zone de texte dans userform, par exemple pour y entrer une date : __/__/____
si oui quelle est la procédure ou code vba à utiliser.

merci pour votre aide
Luke

 

[michel]

bonjour Luke

ci joint un exemple pour forcer pour le format JJ/MM/AAAA lors de la saisie d'un date dans un textbox

Private Sub TextBox1_Change()
Dim Val As Byte
TextBox1.MaxLength = 10 'nb caracteres maxi dans textbox
' à redéfinir selon format souhaité
Val = Len(TextBox1)
Select Case Val
Case 2
TextBox1 = TextBox1 & "/"
Case 5
TextBox1 = TextBox1 & "/"
End Select

End Sub

bon debut de week end au forum
michel

 

[michel]

rebonjour luke

une autre solution

Private Sub TextBox1_Change()
Dim Val As Byte
TextBox1.MaxLength = 10 'nb caracteres maxi dans textbox
' à redéfinir selon format souhaité
Val = Len(TextBox1)
If Val = 2 Or Val = 5 Then TextBox1 = TextBox1 & "/"
End Sub

michel