XL 2013 Empêcher le saut de ligne dans un textbox

patricktoulon

XLDnaute Barbatruc

• 17 Février 2021

• #2

bonjour

je ne comprends pas tres bien le pourquoi du comment
et surtout pourquoi mettre le textbox multiline si tu veux bloquer cette possibilité
mais passons
alors bloque le au keydown

VB:

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
With TextBox1
If KeyCode = 17 Then .Tag = x
If KeyCode = 13 And .Tag = x Then KeyCode = 0: .Tag = ""
End With
End Sub

 

Vote positif 0 Vote négatif

J

JLE

XLDnaute Junior

• 17 Février 2021

• #3

Bonjour,

En fait, le multiligne à true permet de passer à la ligne l'affichage du texte quand on écrit un texte plus long que les bords de la textbox et si on la met à false, une partie du texte est masqué, ce qui ne convient pas non plus.

Merci pour votre code qui fonctionne bien pour empêcher le saut de ligne mais il m'empêche également de valider par entrée au clavier la textbox... J'ai omis de le dire dans mon premier post, désolé.

Comment peut on le gérer dans ce cas ?

JL

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 17 Février 2021

• #4

Bonjour JLE,
Ne sachant pas ce que vous avez essayé et qui ne marche pas, en PJ un essai avec dans ThisWorkbook :

VB:

Sub Workbook_open()
    Application.OnKey "^~", "MsgCtrl"
    Application.OnKey "%~", "MsgAlt"
End Sub

Les combinaisons de touches ALT Enter et CTRL Enter sont invalidées.
Le retour à la normale se fait en lançant :

Code:

Sub TouchesOK()
    Application.OnKey "^~"
    Application.OnKey "%~"
End Sub

Donc si dans votre userform vous mettez la première macro avant le userform.show et la seconde en sortant, vous devriez interdire ces combinaisons de touches.

 

Pièces jointes

• ValidCtrl.xlsm

  13 KB · Affichages: 6

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 17 Février 2021

• #5

bonjour @sylvanu je n'ai pas voulue justement condamner les touches
il peut en avoir besoins ailleurs dans l'userform
mais finalement ton idée est bonne mais le blocage /déblocage doit se faire dans l'enter et exit du textbox

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 17 Février 2021

• #6

Bonjour Patrick,
C'est ce que je précise :

sylvanu à dit:

Donc si dans votre userform vous mettez la première macro avant le userform.show et la seconde en sortant, vous devriez interdire ces combinaisons de touches.

Cliquez pour agrandir...

Le fichier n'était qu'une faisabilité.
Je pense que c'est la seule solution si on ne veut pas toucher au flag UserForm1.TextBox1.MultiLine.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 17 Février 2021

• #7

re
non pas dans le show et close mais dans le enter et exit du textbox
la contraint ne servirait qu'a lui

 

Vote positif 0 Vote négatif

roro69

XLDnaute Impliqué

• 17 Février 2021

• #8

Bonjour ,Pourquoi ne pas utiliser les propriétés "MultiLine" et "Autosize"?
Juste un avis

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 17 Février 2021

• #9

Bonjour à tous,
moi non plus je ne vois pas l'utilité du multiline = true et l'interdiction d'un retour à la ligne,
à moins de ne l'interdire que pour l'utilisateur et pas par code ( en ce cas le keydown est efficace)
Sinon pourquoi ne pas simplement "supprimer" le vbcrlf ?

VB:

Private Sub TextBox1_Change()
    If InStr(TextBox1, vbCrLf) Then
        Application.EnableEvents = False
            TextBox1 = Replace(TextBox1, vbCrLf, vbNullString)
        Application.EnableEvents = True
    End If
End Sub

 

Vote positif 0 Vote négatif

J

JLE

XLDnaute Junior

• 17 Février 2021

• #10

Bonjour,

Merci à vous tous, je n'ai pas tout testé car grâce à Fanch55, j'ai trouvé une solution à laquelle je n'avais pas pensé, donc merci à lui.

La solution est d'enlever le dernier caractère de la chaine s'il détecte un saut de ligne dans TextBox1_Change() :

VB:

    If InStr(TextBox1, vbCrLf) Then
        Application.EnableEvents = False
            TextBox1.Value = Left(TextBox1Value, Len(TextBox1.Value) - 2)
        Application.EnableEvents = True
    End If

Et pour répondre à sa remarque concernant l'utilité du multiligne, j'en ai donné la raison dans mon deuxième post ce jour :

En fait, le multiligne à true permet de passer à la ligne l'affichage du texte quand on écrit un texte plus long que les bords de la textbox et si on la met à false, une partie du texte est masqué, ce qui ne convient pas non plus.

Cliquez pour agrandir...

Peut être que je n'ai pas été assez clair : quand l'utilisateur écrit SANS faire de saut de ligne avec le clavier (ctrl + entrée), et que la multiligne est à :

• TRUE alors l'utilisateur écrit et quant il arrive à la fin de sa ligne la phrase continue en dessous automatiquement
• FALSE alors l'utilisateur écrit et quant il arrive à la fin de sa ligne, le début de sa phrase est masqué et sa phrase ne passe pas en dessous.

Voilà pourquoi.

Merci à vous tous dans tous les cas, au top.

JLE

 

Vote positif 1 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 17 Février 2021

• #11

juste par curiosité il est ou ce textbox dans une feuill ou un userform ?

 

Vote positif 0 Vote négatif

J

JLE

XLDnaute Junior

• 17 Février 2021

• #12

Un userform. Pourquoi ?

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 17 Février 2021

• #13

alors application.enableevents ne sert a rien

 

Vote positif 0 Vote négatif

J

JLE

XLDnaute Junior

• 17 Février 2021

• #14

Ah ok, merci je vais l'enlever.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 17 Février 2021

• #15

perso j'au rais choisi l'option de @sylvanu
car comme ça tu te prive de tout les events update etc....

 

Vote positif 0 Vote négatif