Controle caractere en debut et fin de saisie dans Textbox

Staple1600

XLDnaute Barbatruc

• 24 Août 2008

• #2

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

Bonjour à tous

A tester

Code:

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

 

Vote positif 0 Vote négatif

Y

yves03

XLDnaute Occasionnel

• 24 Août 2008

• #3

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

 

Vote positif 0 Vote négatif

Y

yves03

XLDnaute Occasionnel

• 24 Août 2008

• #4

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

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 24 Août 2008

• #5

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.

 

Vote positif 0 Vote négatif

Y

yves03

XLDnaute Occasionnel

• 24 Août 2008

• #6

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

Staple1600 à dit:

Bonjour à tous

A tester

Code:

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

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif

MuscatMimi

XLDnaute Accro

• 24 Août 2008

• #7

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

 

Vote positif 0 Vote négatif