Controle caractere en debut et fin de saisie dans Textbox

[yves03]

Bonjour à tous,
J'ai un probleme de saisie dans un textbox, il faudrait que la saisie commence par une etoile et finisse par une etoile, et si ce n'est pas correct, ou afficher un Msgbox, ou mieux encore modifier le textbox en rajoutant en debut et fin une etoile.
Si vous avez une idée.
Merci d'avance.
🙂

 

[Staple1600]

Re : Controle caractere en debut et fin de saisie dans Textbox

Bonjour à tous

A tester

Private Sub TextBox1_AfterUpdate()
If Not Left(TextBox1.Text, 1) = Chr(42) And Not Right(TextBox1, 1) = Chr(42) Then
TextBox1 = Chr(42) & TextBox1.Text & Chr(42)
End If
End Sub

 

[yves03]

Re : Controle caractere en debut et fin de saisie dans Textbox

Genial, ça marche !!
🙂

Une derniere question, peut'on rendre les etoiles en debut et fin de saisie, invisible.
Merci

 

[yves03]

Re : Controle caractere en debut et fin de saisie dans Textbox

C'est bon, j'ai trouver une solution.
Merci

 

[Staple1600]

Re : Controle caractere en debut et fin de saisie dans Textbox

Re


Et on peut la connaitre cette solution ,stp?

Cela pourrait intéresser d'autres ici.

 

[yves03]

Re : Controle caractere en debut et fin de saisie dans Textbox

Bonjour à tous

A tester

Private Sub TextBox1_AfterUpdate()
If Not Left(TextBox1.Text, 1) = Chr(42) And Not Right(TextBox1, 1) = Chr(42) Then
TextBox1 = Chr(42) & TextBox1.Text & Chr(42)
End If
End Sub

En fait c'etait pour generer un code barre, qui avait besoin de * en debut et en fin pour pouvoir etre lu correctement par une douchette.
Comme j'ai Textbox1 avec la reference et Textbox2 avec le code barre qui s'affiche, j'ai simplement modifier ton code comme ça:

TextBox2 = Chr(42) & TextBox2.Text & Chr(42)

Les etoiles se mettent bien en debut et en fin de code barre mais pas sur la reference.
Encore merci à toi, pour le code.

 

[MuscatMimi]

Re : Controle caractere en debut et fin de saisie dans Textbox

Bonjour a tous

Je squate ce fil, mais j'aurais une question a poser,la voici
Dans les codes notés,il il ya des codes pour des caractéres spéciaux
ou je peux trouver la liste de tous ces carractéres pour ,si j'ai besion les inclure dans du code VBa
merci a l'avance
bonne soirée