Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Mask dans TextBox

25 réponses
Avatar
Apitos
Bonjour,

Comment pour maitriser en general les mask dans les TextBox ?

dans mon cas ; Ref : ../../N=B0/Ann=E9e

Merci.

10 réponses

1 2 3
Avatar
Apitos

Bonjour,

Comment pour maitriser en general les mask dans les TextBox ?

dans mon cas ; Ref : ../../N°/Année

Merci.


De l'aide SVP.

Avatar
Daniel
Bonjour.
Est-ce que "/N°/Année" est une constante ? Dans le cas contraire, sur
combien de positions le "N°" et sur combien de positions l'année ?
Daniel
"Apitos" a écrit dans le message de news:



Bonjour,

Comment pour maitriser en general les mask dans les TextBox ?

dans mon cas ; Ref : ../../N°/Année

Merci.


De l'aide SVP.

Avatar
Apitos

Bonjour.
Est-ce que "/N°/Année" est une constante ? Dans le cas contraire, sur
combien de positions le "N°" et sur combien de positions l'année ?
Daniel
"Apitos" a écrit dans le message de news:




Voila un exemple :

Ref : AT/AFG/102/2006

mais j'aimerais tu fera pour trouvé le masque adequat. OK ?

Merci.

Avatar
Daniel
L'idée est d'afficher un pseudo masque. J'utiiise un userform contenant le
textbox.
A l'initialisation du userform :

Private Sub UserForm_Initialize()
With TextBox1
.Value = "Ref: ../.../.../...."
.SelStart = 5
.SelLength = 1
End With
Posit = 5
End Sub

Au fur et à mesure de la saisie, le curseur se déplace et la valeur "hors
masque" est récupérée à la saisie du dernier caractère :

Private Sub TextBox1_Change()
If Posit > 19 Then Exit Sub
If Posit = 6 Or Posit = 10 Or Posit = 14 Then
Posit = Posit + 2
Else
Posit = Posit + 1
End If
With TextBox1
.SelStart = Posit
.SelLength = 1
If Posit > 19 Then
valeurtextbox = Mid(.Value, 6, 2) & Mid(.Value, 9, 3) & _
Mid(.Value, 13, 3) & Right(.Value, 4)
MsgBox valeurtextbox
End If
End With
End Sub

La variable Posit est déclarée dans un module :
Public Posit As Integer

C'est seulement, j'en suis conscient, une ébauche de solution. Reste à gérer
le plus difficile : les retours arrière de la saisie, les copier / Coller
etc.
Daniel

"Apitos" a écrit dans le message de news:



Bonjour.
Est-ce que "/N°/Année" est une constante ? Dans le cas contraire, sur
combien de positions le "N°" et sur combien de positions l'année ?
Daniel
"Apitos" a écrit dans le message de news:




Voila un exemple :

Ref : AT/AFG/102/2006

mais j'aimerais tu fera pour trouvé le masque adequat. OK ?

Merci.

Avatar
Apitos

L'idée est d'afficher un pseudo masque. J'utiiise un userform contenant le
textbox.
A l'initialisation du userform :

Private Sub UserForm_Initialize()
With TextBox1
.Value = "Ref: ../.../.../...."
.SelStart = 5
.SelLength = 1
End With
Posit = 5
End Sub

Au fur et à mesure de la saisie, le curseur se déplace et la valeur " hors
masque" est récupérée à la saisie du dernier caractère :

Private Sub TextBox1_Change()
If Posit > 19 Then Exit Sub
If Posit = 6 Or Posit = 10 Or Posit = 14 Then
Posit = Posit + 2
Else
Posit = Posit + 1
End If
With TextBox1
.SelStart = Posit
.SelLength = 1
If Posit > 19 Then
valeurtextbox = Mid(.Value, 6, 2) & Mid(.Value, 9, 3) & _
Mid(.Value, 13, 3) & Right(.Value, 4)
MsgBox valeurtextbox
End If
End With
End Sub

La variable Posit est déclarée dans un module :
Public Posit As Integer

C'est seulement, j'en suis conscient, une ébauche de solution. Reste à gérer
le plus difficile : les retours arrière de la saisie, les copier / Coll er
etc.
Daniel

"Apitos" a écrit dans le message de news:



Bonjour.
Est-ce que "/N°/Année" est une constante ? Dans le cas contraire, s ur
combien de positions le "N°" et sur combien de positions l'année ?
Daniel
"Apitos" a écrit dans le message de news:




Voila un exemple :

Ref : AT/AFG/102/2006

mais j'aimerais tu fera pour trouvé le masque adequat. OK ?

Merci.


Je crois qu'il y'a un control de formulaire avec mask predefini pour
cette tache, mais je ne le trouve pas ... Enfin je compare avec Delphi
..

mais bon, je vais essaye avec ta solution.

mais il reste aussi comment recuperer la valeur du TextBox et l'ecrire
dans une cellule ?

Merci Daniel.

Salutations.


Avatar
Daniel
Change :
If Posit > 19 Then
valeurtextbox = Mid(.Value, 6, 2) & Mid(.Value, 9, 3) & _
Mid(.Value, 13, 3) & Right(.Value, 4)
MsgBox valeurtextbox
End If
en :
If Posit > 19 Then
[A1]= Mid(.Value, 6, 2) & Mid(.Value, 9, 3) & _
Mid(.Value, 13, 3) & Right(.Value, 4)
End If

"Apitos" a écrit dans le message de news:



L'idée est d'afficher un pseudo masque. J'utiiise un userform contenant le
textbox.
A l'initialisation du userform :

Private Sub UserForm_Initialize()
With TextBox1
.Value = "Ref: ../.../.../...."
.SelStart = 5
.SelLength = 1
End With
Posit = 5
End Sub

Au fur et à mesure de la saisie, le curseur se déplace et la valeur "hors
masque" est récupérée à la saisie du dernier caractère :

Private Sub TextBox1_Change()
If Posit > 19 Then Exit Sub
If Posit = 6 Or Posit = 10 Or Posit = 14 Then
Posit = Posit + 2
Else
Posit = Posit + 1
End If
With TextBox1
.SelStart = Posit
.SelLength = 1
If Posit > 19 Then
valeurtextbox = Mid(.Value, 6, 2) & Mid(.Value, 9, 3) & _
Mid(.Value, 13, 3) & Right(.Value, 4)
MsgBox valeurtextbox
End If
End With
End Sub

La variable Posit est déclarée dans un module :
Public Posit As Integer

C'est seulement, j'en suis conscient, une ébauche de solution. Reste à
gérer
le plus difficile : les retours arrière de la saisie, les copier / Coller
etc.
Daniel

"Apitos" a écrit dans le message de news:



Bonjour.
Est-ce que "/N°/Année" est une constante ? Dans le cas contraire, sur
combien de positions le "N°" et sur combien de positions l'année ?
Daniel
"Apitos" a écrit dans le message de news:




Voila un exemple :

Ref : AT/AFG/102/2006

mais j'aimerais tu fera pour trouvé le masque adequat. OK ?

Merci.


Je crois qu'il y'a un control de formulaire avec mask predefini pour
cette tache, mais je ne le trouve pas ... Enfin je compare avec Delphi
..

mais bon, je vais essaye avec ta solution.

mais il reste aussi comment recuperer la valeur du TextBox et l'ecrire
dans une cellule ?

Merci Daniel.

Salutations.


Avatar
Oliv'
Je crois qu'il y'a un control de formulaire avec mask predefini pour
cette tache, mais je ne le trouve pas ... Enfin je compare avec Delphi
..
tu peux ajouter un contrôle supplémentaire

Microsoft Mask edit control version 6.0
semble convenir

--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook : http://faq.outlook.free.fr/
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
OE6 : http://www.faqoe.com/
Sql : http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Avatar
JB
Bonjour,

Exemple pour une date avec la gestion des flèches de déplacement:

http://cjoint.com/?jpkOTZi035

Cordialement JB


Bonjour,

Comment pour maitriser en general les mask dans les TextBox ?

dans mon cas ; Ref : ../../N°/Année

Merci.


Avatar
Apitos

tu peux ajouter un contrôle supplémentaire
Microsoft Mask edit control version 6.0
semble convenir

--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook : http://faq.outlook.free.fr/
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
OE6 : http://www.faqoe.com/
Sql : http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



Voila ce qui me repond excel 2000 a propos de ce controle :

Le contrôle n'a pas été créé car il n'est pas correctement
licencié.

Avatar
Apitos

Bonjour,

Exemple pour une date avec la gestion des flèches de déplacement:

http://cjoint.com/?jpkOTZi035

Cordialement JB


Bonjour,

Comment pour maitriser en general les mask dans les TextBox ?

dans mon cas ; Ref : ../../N°/Année



Il y'a du code à voir jacques ...

je te ferais signe des resultas ...

Merci.


1 2 3