format obligatoire de TextBox dans un UserForm

[paul87]

bonjour à tous,
savez vous comment peut on obliger l'utilisateur à saisir au format "mm/yyyy" dans une textbox (ex: 06/2013)
svp..
merci par avance

 

[paul87]

Re : format obligatoire de TextBox dans un UserForm

bonjour,
je te remercie,
finalement avec ça.. ça marche.!!

Private Sub TextBox1_change()
Dim valeur as Byte
TextBox1.MaxLenght=7
valeur=Len(TextBox1)
If valeur = 2 then TextBox1 = TextBox1 & "/"
End Sub

Cela formate bien la TextBox en réduisant le nombre de caractère à 7 et en ajoutant / après le 2ème caractère.
Par contre je n'arrive pas à imposer uniquement des chiffres et le "/" comme caractères autorisés.
je n'ai pas réussi à adapter ce que tu as mis dans ton exemple.
Merci encore pour vos conseils

 

[MJ13]

Re : format obligatoire de TextBox dans un UserForm

Bonjour Paul, Jean-Marcel

En reprenant le fichier de Jean-Marcel 🙂, tu peux tester cette macro (avec l'année sur 2 chiffres à adapter pour 4). Notons que j'ai mis le MaxLenght à 5 dans les propriétés du textbox.

Private Sub UserForm_Initialize()
TxtDateVerif.SetFocus
End Sub

Private Sub TxtDateVerif_Change()
If Len(TxtDateVerif) = 2 And TxtDateVerif > 12 And TxtDateVerif >= 0 Then GoTo suite
If Len(TxtDateVerif) = 2 Then TxtDateVerif = TxtDateVerif & "/"
Exit Sub
suite:
TxtDateVerif = "": MsgBox "Mauvaise saisie!": Beep
UserForm_Initialize
End Sub

Private Sub Fermer_Click()
ActiveCell = CDate("01/" & TxtDateVerif)
End Sub

 

[paul87]

Re : format obligatoire de TextBox dans un UserForm

Merci à tous les 2 !!
ça fonctionne bien maintenant.
effectivement comme tu le dis Jean-Marcel,
il serait pratique (voire même sécurisant) de pouvoir bloquer les mois entre 1 et 12 compris..!! on n'est pas à l'abris d'un utilisateur distrait..!!! et même mettre une année butoir...par ex 2023

 

[paul87]

Re : format obligatoire de TextBox dans un UserForm

Merci !!
+++
A bientôt