Masque de saisie dans listbox

[Mattew]

Bonjour,

Je souhaiterais réaliser un masque de saisi dans une textbox afin d'éviter les erreurs de saisie par les utilisateurs.
L'utilisateur devra saisir un n° de lot de la forme :

Quantième_ordre de fabrication

Ce qui donne quelque chose du style 107_01 ou 107_10 ou encore 098_04

Le undercore devra s'afficher automatiquement en 4ème caractère en partant de la gauche.

Avant la saise, l'utilisateur visualiserait quelque chose comme ça:

***_**

Je ne sais pas comment faire ça !

Merci de votre aide.

 

[pierrejean]

Re : Masque de saisie dans listbox

bonjour Mattew

Un essai

 

[BOISGONTIER]

Re : Masque de saisie dans listbox

Bonjour,

Exemples en PJ:

Masque de saisie date simple
Dim p
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

JB
Formation Excel VBA JB

 

[Mattew]

Re : Masque de saisie dans listbox

Merci àvous deux pour vos réponses rapides !

pierrejean c'est exactement ce que je veux. Parfait!