Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

formater une zone de texte

L

luke

Guest
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
 
M

michel

Guest
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
 
M

michel

Guest
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
 

Discussions similaires

Réponses
15
Affichages
780
Réponses
2
Affichages
104
Réponses
5
Affichages
219
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…