Bonsoir
J'ai un textbox, et je souhaite pouvoir saisir de des lettres mais avec un
espace au milieu mais pas de part et d'autre.
exemple : "cent ving-trois", si je mets dans le Change textbox1 =
Trim(Textbox1), cela m'empêche de saisir un espace au milieu
Je vous remercie
Didier
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Didier,
Ce code ne permet la saisie d'un espace dans le textbox... l'usager est libre de l'utiliser où il le désire mais il ne peut pas en saisir 2
'--------------------- Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 32 Then If InStr(1, Me.TextBox1, " ", vbTextCompare) <> 0 Then KeyAscii = 0 End If End If
End Sub '---------------------
Salutations!
"Didier Novarin" a écrit dans le message de news: OqTD%23% Bonsoir J'ai un textbox, et je souhaite pouvoir saisir de des lettres mais avec un espace au milieu mais pas de part et d'autre. exemple : "cent ving-trois", si je mets dans le Change textbox1 Trim(Textbox1), cela m'empêche de saisir un espace au milieu Je vous remercie Didier
Bonjour Didier,
Ce code ne permet la saisie d'un espace dans le textbox... l'usager
est libre de l'utiliser où il le désire mais il ne peut pas en saisir 2
'---------------------
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 32 Then
If InStr(1, Me.TextBox1, " ", vbTextCompare) <> 0 Then
KeyAscii = 0
End If
End If
End Sub
'---------------------
Salutations!
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de news: OqTD%23%23eSGHA.5656@TK2MSFTNGP11.phx.gbl...
Bonsoir
J'ai un textbox, et je souhaite pouvoir saisir de des lettres mais avec un
espace au milieu mais pas de part et d'autre.
exemple : "cent ving-trois", si je mets dans le Change textbox1 Trim(Textbox1), cela m'empêche de saisir un espace au milieu
Je vous remercie
Didier
Ce code ne permet la saisie d'un espace dans le textbox... l'usager est libre de l'utiliser où il le désire mais il ne peut pas en saisir 2
'--------------------- Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 32 Then If InStr(1, Me.TextBox1, " ", vbTextCompare) <> 0 Then KeyAscii = 0 End If End If
End Sub '---------------------
Salutations!
"Didier Novarin" a écrit dans le message de news: OqTD%23% Bonsoir J'ai un textbox, et je souhaite pouvoir saisir de des lettres mais avec un espace au milieu mais pas de part et d'autre. exemple : "cent ving-trois", si je mets dans le Change textbox1 Trim(Textbox1), cela m'empêche de saisir un espace au milieu Je vous remercie Didier
Didier Novarin
Bonjour Denis merci beaucoup encore une fois ! Denis
"michdenis" a écrit dans le message de news: eH8z$
Bonjour Didier,
Ce code ne permet la saisie d'un espace dans le textbox... l'usager est libre de l'utiliser où il le désire mais il ne peut pas en saisir 2
'--------------------- Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 32 Then If InStr(1, Me.TextBox1, " ", vbTextCompare) <> 0 Then KeyAscii = 0 End If End If
End Sub '---------------------
Salutations!
"Didier Novarin" a écrit dans le message de news: OqTD%23% Bonsoir J'ai un textbox, et je souhaite pouvoir saisir de des lettres mais avec un espace au milieu mais pas de part et d'autre. exemple : "cent ving-trois", si je mets dans le Change textbox1 > Trim(Textbox1), cela m'empêche de saisir un espace au milieu Je vous remercie Didier
Bonjour Denis
merci beaucoup encore une fois !
Denis
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
eH8z$JqSGHA.4740@TK2MSFTNGP14.phx.gbl...
Bonjour Didier,
Ce code ne permet la saisie d'un espace dans le textbox... l'usager
est libre de l'utiliser où il le désire mais il ne peut pas en saisir 2
'---------------------
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 32 Then
If InStr(1, Me.TextBox1, " ", vbTextCompare) <> 0 Then
KeyAscii = 0
End If
End If
End Sub
'---------------------
Salutations!
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news: OqTD%23%23eSGHA.5656@TK2MSFTNGP11.phx.gbl...
Bonsoir
J'ai un textbox, et je souhaite pouvoir saisir de des lettres mais avec un
espace au milieu mais pas de part et d'autre.
exemple : "cent ving-trois", si je mets dans le Change textbox1 > Trim(Textbox1), cela m'empêche de saisir un espace au milieu
Je vous remercie
Didier
Bonjour Denis merci beaucoup encore une fois ! Denis
"michdenis" a écrit dans le message de news: eH8z$
Bonjour Didier,
Ce code ne permet la saisie d'un espace dans le textbox... l'usager est libre de l'utiliser où il le désire mais il ne peut pas en saisir 2
'--------------------- Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 32 Then If InStr(1, Me.TextBox1, " ", vbTextCompare) <> 0 Then KeyAscii = 0 End If End If
End Sub '---------------------
Salutations!
"Didier Novarin" a écrit dans le message de news: OqTD%23% Bonsoir J'ai un textbox, et je souhaite pouvoir saisir de des lettres mais avec un espace au milieu mais pas de part et d'autre. exemple : "cent ving-trois", si je mets dans le Change textbox1 > Trim(Textbox1), cela m'empêche de saisir un espace au milieu Je vous remercie Didier
