TextBox multiligne

[Toubabou]

Bonsoir à tous,
j'ai une TextBox multiligne et je voudrai que chaque ligne commence automatiquement par:
"Espace, trait d'union"
" -"
Pourriez vous m'aider
merci beaucoup

 

[job75]

Re : TextBox multiligne

Bonsoir Toubabou,

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1 <> "" Then
  TextBox1 = Mid(Replace(vbCrLf & Replace(TextBox1, " -", ""), vbCrLf, vbCrLf & " -"), 3)
  'suite du code
End If
End Sub

Et bonne nuit.

 

[job75]

Re : TextBox multiligne

Bonjour Toubabou, le forum,

Avec une macro Change on peut contrôler la frappe, c'est mieux :

Private Sub TextBox1_Change()
Dim s, i%
s = Split(TextBox1, vbCrLf)
For i = 0 To UBound(s)
  s(i) = LTrim(s(i))
  If Left(s(i), 1) = "-" Then s(i) = LTrim(Mid(s(i), 2))
  If s(i) <> "" Then s(i) = " -" & s(i)
Next
TextBox1 = Join(s, vbCrLf)
End Sub

Edit : en général on fait plutôt commencer un paragraphe par un tiret suivi d'un espace.

Dans ce cas remplacer " -" par "- " à la 7ème ligne.

Bonne journée.

 

[Toubabou]

Re : TextBox multiligne

Bonjour Job75,

Un grand merci à toi pour cette solution.

Amicalement, Toubabou