textbox : espace insécable pendant la saisie Résolu/Fermé

Question

Bonjour à tous, 

Je souhaite pouvoir insérer un espace insécable lors de la saisie dans une textbox.
J'ai bien trouvé le code chr(160) mais je n'arrive pas à l'intégrer lors de la saisie.
La méthode m'intéresse car j'aimerais aussi pouvoir intégrer une puce, par exemple chr(149), en cours de saisie.

Je n'ai pas trouvé de solutions sur les forums et mes différentes tentatives... 

Bref, je sollicite votre aide et vous en remercie par avance

Jean



Configuration: Windows XP / Chrome 32.0.1700.107

f894009 · Answer

Bonjour,

tout depend ou vous voulez mettre ces caracteres, si devant la sasie:
ex:
x = Chr(149) & Chr(160) & TextBox1

Zoul67 · Answer

Bonjour,

En VB ou en VBA ?
C'est surprenant d'avoir besoin spécifiquement d'une espace insécable...
Si tu veux remplacer automatiquement un caractère par un autre lors de la saisie (ou empêcher la saisie de certains caractères), utilise les codes ASCII dans la procédure :

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

A+

GrandJean · Answer

Merci à tous les deux d'avoir répondu aussi rapidement.

C'est bien en cours de frappe que je veux pouvoir utiliser ces caractères. Si ma phrase se termine par un ?, j'ai besoin d'un espace insécable pour éviter que, lors de l'utilisation du contenu dans un autre formulaire, le ? se retrouve tout seul sur une nouvelle ligne.

J'ai bien essayé avec keypress, sans succès. Je ne trouve pas le rapprochement entre chr() et keyAscii. Pardon si je m'exprime mal.

J'espère que vous aurez une piste.

GrandJean · Answer

Pardon, j'ai oublié de préciser : en Excel VBA

Zoul67 · Answer

Un exemple pour ajouter un espace insécable avant le ? :
(adapter le code à ton besoin ; celui-ci permet d'empêcher la saisie de caractère non désirés)
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
    Case 63
        TextBox1.Value = TextBox1.Value & Chr(160)
    Case 97 To 122
        ' Caracteres alpha min

Case 65 To 90
        'Caracteres alpha Maj

Case 8
        'Retour Chariot

Case Else

KeyAscii = 0

End Select

End Sub

GrandJean · Answer

Super.

J'ai essayé ta solution qui fonctionne très bien. Merci beaucoup.
Par contre, si elle fonctionne bien en création d'un nouveau texte, en mode correction cela ne va plus : si je reviens sur le texte et que je veuille mettre un ?, avec le select case, mon ? se retrouve en dernier caractère.
J'ai donc remplacé le select case par :
TB_1 = Replace(TB_1, " ?", Chr(160) & "?") 'pour l'espace insécable
TB_1 = Replace(TB_1, "*", Chr(149)) 'pour la puce

Là, je peux mettre mon caractère où nécessaire. Le curseur se place, cependant, en fin de texte. Mais ce n'est pas très grave.
J'aurais préféré un raccourci clavier (comme ctrl / Enter pour aller à la ligne). Je n'ai pas trouvé.

Encore merci
Jean

Textbox : espace insécable pendant la saisie

6 réponses

Discussions similaires