Questions sur le format des TextBoxs

[Papynou]

Bonjour,

Je cherche à définir le format de 3 textboxs :

1) pour saisir un code numérique composé de 9 chiffres séparés par groupe de trois avec un blanc entre chaque groupe.

2) pour saisir une date jj/mm/yy.

3) pour saisir du texte en ayant au début de chaque saisie la date de la saisie qui s'affiche automatiquement.

Je souhaite que la saisie soit faite en continu sur le clavier numérique pour les n° 1 et 2 sans que l'on soit obligé de taper sur la barre d'espace pour le 1 ni sur le / pour 2.

L'autre paramètre est l'affichage du bon format dans la textbox dès le passage à un autre textbox.

Quelqu'un peut-il m'aider ?

 

[Papynou]

Re : Questions sur le format des TextBoxs

Suite,

J'ai inséré le code ci-dessous pour le 1, code que j'ai pompé sur un formulaire de J. Boisgontier ( merci à lui 🙂 ) mais les / s'effacent à la saisie. 😕

Dim p
Private Sub UserForm_Initialize()
Me.TextBox1 = "../../.."
p = 0
Me.TextBox1.SelStart = p
Me.TextBox1.SelLength = 1
End Sub
Private Sub CTX_Change()
p = p + 1
If p = 2 Or p = 5 Then p = p + 1
Me.TextBox1.SelStart = p
Me.TextBox1.SelLength = 1
End Sub

Je tourne en rond !

 

[michel_m]

Re : Questions sur le format des TextBoxs

bonsoir,

essaies: format(tadate,"dd/mm/yy")
attention tadate est transformée en variabkle de type string

et pour le 2 non testé
format(tavaleur, "000 000 000")

 

[Papynou]

Re : Questions sur le format des TextBoxs

re

Merci pour les infos, finalement j'ai trouvé la solution dans une partie du Wiki que je n'avais pas exploré.😀

Bonne continuation
@+