Masque dans TextBox

[apt]

Bonsoir,

Voila un exemple :

Ref : XX/YYY/000/2006


J'aimerais savoir comment faire en général pour trouvé le masque adequat. OK ?
et ensuite comment l'ecrire dans la cellule correspondante ?

Merci.

 

[ERIC S]

Re : Masque dans TextBox

Bonjour

question un peu vague

des explications ou un bout de fichier

 

[bqtr]

Re : Masque dans TextBox

Bonjour apt, Eric S

Un début de réponse dans le ficiher joint.

A+

P.O

 

[apt]

Re : Masque dans TextBox

Merci bqtr;

j'ai teste, mais si je veux corriger une erreur deja la backspace ne marche pas, et puis les barres obliques restent "inffaçables".

Voila un résultat :

FF/FFF/////

 

[bqtr]

Re : Masque dans TextBox

Re apt,

J'ai rajouté un bouton pour la correction d'une erreur. Ca remet le textbox à zéro et tu peux resaisir ta référence.

( je vois pas trop comment faire autrement , les flêches gauche et droite du clavier te permettent de te déplacer dans le Textbox).

A+

P.O

 

[apt]

Re : Masque dans TextBox

Il n'y'a pas moyen de gerer le backspace, insertion et suppression sans tout effacer ?

 

[bqtr]

Re : Masque dans TextBox

Bonjour apt, tous le monde

S'il y en a un je ne le connais pas, désolé.
Peut-être que quelqu'un d'autre sait comment faire ?

Bonne journée

P.O

 

[ERIC S]

Re : Masque dans TextBox

Bonjour

a adapter

Private Sub TextBox1_Change()
TextBox1.MaxLength = 15
chaine = Replace(TextBox1.Value, "/", "")
If Len(chaine) > 2 Then chaine = Left(chaine, 2) & "/" & Right(chaine, Len(chaine) - 2)
If Len(chaine) > 6 Then chaine = Left(chaine, 6) & "/" & Right(chaine, Len(chaine) - 6)
If Len(chaine) > 10 Then chaine = Left(chaine, 10) & "/" & Right(chaine, Len(chaine) - 10)
TextBox1.Value = chaine
End Sub

 

[bqtr]

Re : Masque dans TextBox

Bonjour Eric

Juste pour savoir, le code permet de revenir en arrière et de supprimer le "/" pour pouvoir remonter jusqu'au début du TextBox avec la touche backqpace. c'est bien ca ?

(je peux pas tester, je suis au boulot... )


bonne journée

P.O

 

[ERIC S]

Re : Masque dans TextBox

Bonjour

désolé je suis la tête dans les thuyas

en fait à chaque fois j'élimine les / pour retrouver le nombre (chaine) et je le remets en forme avant de l'afficher

 

[bqtr]

Re : Masque dans TextBox

Bonsoir Eric

C'est marrant, tu as la tête dans les thuyas, moi j'ai passé la journée en tête-à-tête avec une haie de cupressus, un taille haie à la main. La pauvre (la haie).

Merci pour l'explication et le code, c'est trés pratique pour rectifier une erreur.

Bonne soirée

P.O

 

[apt]

Re : Masque dans TextBox

Bonsoir,

Y'a-t-il pas un moyen d'obtenir ce masque, sans qu'on soit dans l'obligation d'éffacer les barres obliques ?

Merci.