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

JLE · 17 Février 2021

Bonjour,

J'espère que tout le monde se porte bien.

Je voudrais connaitre le moyen d'empêcher l'utilisateur de faire un saut de ligne (ctrl + entrée de son clavier) dans un textbox sans mettre la propriété multiligne à false.
Je précise que j'ai déjà testé plusieurs procédures sans succès.

Merci pour vos réponses.

JL

JLE · 17 Février 2021

Le problème, c'est que les macros ne sont pas dans le fichiers xlsx mais dans des macro complémentaires alors si je fais ça, il faut que je vérifie que nous sommes bien dans cette situation sinon je vais droit dans le mur... ce qui alourdi encore le script.

Ca fonctionne comme ça pour le moment. à voir dans le temps.

fanch55 · 17 Février 2021

Tout à fait, l'enableevents ne sert à rien dans un userform .

Par contre: TextBox1.Value = Left(TextBox1Value, Len(TextBox1.Value) - 2)
Je ne vois pas ce qui empêchera l'utilisateur de faire un retour à la ligne

JLE · 17 Février 2021

fanch55 à dit:
Tout à fait, l'enableevents ne sert à rien dans un userform .

Par contre: TextBox1.Value = Left(TextBox1Value, Len(TextBox1.Value) - 2)
Je ne vois pas ce qui empêchera l'utilisateur de faire un retour à la ligne

Après un test, ca fonctionne pourtant...

fanch55 · 17 Février 2021

JLE à dit:
Après un test, ca fonctionne pourtant...

fanch55 · 17 Février 2021

Cela supprime les 2 derniers caractères du textbox1 .
Si l'utilisateur se déplace en arrière et fait un ctrl+enter,
le code va supprimer tous les caractères après le vbcrlf aussi

JLE · 17 Février 2021

fanch55 à dit:
Cela supprime les 2 derniers caractères du textbox1 .
Si l'utilisateur se déplace en arrière et fait un ctrl+enter,
le code va supprimer tous les caractères après le vbcrlf aussi

Effectivement, je n'avais pas pensé à cette éventualité.

Concrètement, la suggestion finale alors ce serait quoi ?

job75 · 17 Février 2021

Bonjour à tous,

fanch55 à dit:
Tout à fait, l'enableevents ne sert à rien dans un userform .

Et dans une feuille de calcul non plus, et le test InStr non plus :

VB:

Private Sub TextBox1_Change()
TextBox1 = Replace(TextBox1, vbCrLf, "")
End Sub

A+

JLE · 17 Février 2021

Bonjour,

Je comprends pas compris pourquoi hier en utilisant exactement la même chose que vous "TextBox1 = Replace(TextBox1, vbCrLf, "")", ça ne fonctionnait pas, alors que là ça fonctionne.... grrrr !

Sinon j'aurai contourné le problème en rajoutant la CommandButton1_Click à :

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

Là ça fonctionne, merci de m'avoir répondu....

Bonne journée à tous.

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

JLE

XLDnaute Junior

JLE

XLDnaute Junior

fanch55

XLDnaute Barbatruc

JLE

XLDnaute Junior

fanch55

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

JLE

XLDnaute Junior

job75

XLDnaute Barbatruc

JLE

XLDnaute Junior

Discussions similaires