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

[JLE]

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]

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]

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]

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]

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

 

[fanch55]

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]

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]

Bonjour à tous,

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

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

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

A+

 

[JLE]

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 à :

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.