textbox et PasswordChar

Bonjour.

Avec, sur une feuille, 1 Textbox "TextBox1" et 1 bouton "CommandButton1" pour valider

Dans le code de la feuille :

Private chgt As Boolean

Private Sub CommandButton1_Click()
MsgBox Application.Substitute(TextBox1, " ", "")
End Sub

Private Sub TextBox1_Change()
If chgt Then
chgt = Not chgt
Exit Sub
End If
If Len(TextBox1) Then
chgt = Not chgt
TextBox1 = TextBox1 & " "
End If
End Sub

Alain CROS

"Gerard" <gege@microsoft.fr> a écrit dans le message de news: 432dcf0e$0$1746$8fcfb975@news.wanadoo.fr...
| Bonsoir
| j'ai un textbox qui doit me servir pour entrer un code
| avec PasswordChar chaque lettre est remplacée par un *
| y a til un moyen de mettre plus de * que de lettre entrée...afin de ne pas
| savoir la longueur de mon code
| merci
|
|

salut
dsl, je ne vois pas l'effet
merci
"Alain CROS" <Personne@ICI> a écrit dans le message de news:
uTB$IxJvFHA.3100@TK2MSFTNGP12.phx.gbl...

Bonjour.

Avec, sur une feuille, 1 Textbox "TextBox1" et 1 bouton "CommandButton1"
pour valider

Dans le code de la feuille :

Private chgt As Boolean

Private Sub CommandButton1_Click()
MsgBox Application.Substitute(TextBox1, " ", "")
End Sub

Private Sub TextBox1_Change()
If chgt Then
chgt = Not chgt
Exit Sub
End If
If Len(TextBox1) Then
chgt = Not chgt
TextBox1 = TextBox1 & " "
End If
End Sub

Alain CROS

"Gerard" <gege@microsoft.fr> a écrit dans le message de news:
432dcf0e$0$1746$8fcfb975@news.wanadoo.fr...
| Bonsoir
| j'ai un textbox qui doit me servir pour entrer un code
| avec PasswordChar chaque lettre est remplacée par un *
| y a til un moyen de mettre plus de * que de lettre entrée...afin de ne
pas
| savoir la longueur de mon code
| merci
|
|