Masque pour une texte box dans un userform

[sylv@in]

Bonjour,

dans une application j'ai créé un userform pour que l'utilisateur rentre des données dont l'une des données est une date

J'aurais voulu savoir s'il était possible de limiter ce que l'utilisateur rentre avec un masque pour limiter le nombre d'erreur et voir si la date entré est vraie (pas avoir un 35/15/2008 et avoir un masque du genre **/**/**** ou l'utilisateur aurait juste a rentrer les infos a la place des étoiles)

merci d'avance

 

[wilfried_42]

Re : Masque pour une texte box dans un userform

Bonjour

regarde ce fil chez nos amis de developpez.com, tirex a fait quelque chose de geant

ICI

 

[BOISGONTIER]

Re : Masque pour une texte box dans un userform

Bonjour,

http://boisgontierjacques.free.fr/fichiers/Formulaire/MasqueSaisie.xls

JB

 

[sylv@in]

Re : Masque pour une texte box dans un userform

bonjour boisgontier,

j'aurais voulu avoir quelque explications sur ton code ligne par ligne car ne comprenant pas tout je n'arrives pas à l'adapter dans mon code ca ne marche pas jpeux pas rentrer plus que les deux premiers nombre

Private Sub UserForm_Initialize()
Me.TextBox1 = "../../.."
p = 0
Me.TextBox1.SelStart = p
Me.TextBox1.SelLength = 1
End Sub

Private Sub TextBox1_Change()
p = p + 1
If p = 2 Or p = 5 Then p = p + 1
Me.TextBox1.SelStart = p
Me.TextBox1.SelLength = 1
End Sub