XL 2019 supprimer la dernière ligne d'une textbox

[youguybass]

Bonjour
Dans une textbox (multiligne) je voudrais supprimer la dernière ligne.

j'ai essayé de compter le nb de lignes avec une variable "Del"
Del=textbox1.LineCount → cela ne marche pas

est ce que quelqu'un aurait une solution?

D'avance merci

 

[p56]

Bonjour,
Un textbox multilignes contient des retours chariots (vbcrlf), il suffit de spliter pour distinguer chaque lignes.
Pour gommer la dernière ligne d'un textbox5 on peut écrire un truc du genre :

Dim T As Variant, S As String, i As Byte
    
    T = Split(Me.TextBox5.Value, vbCrLf)
    For i = 0 To UBound(T) - 1
        S = S & T(i) & vbCrLf
    Next i
    Me.TextBox5.Value = Left(S, Len(S) - 1)

P.

 

[youguybass]

Parfait
Merci Bcp
slts

 

[job75]

Bonjour youguybass, p56, le forum,

Si les lignes de TextBox1 sont toutes séparées par le double caractère vbCrLf exécutez :

Dim n%
n = InStrRev(TextBox1, vbCr)
If n Then TextBox1 = Left(TextBox1, n - 1)

Sinon je ne vois pas de solution.

A+

 

[youguybass]

Bonjour youguybass, p56, le forum,

Si les lignes de TextBox1 sont toutes séparées par le double caractère vbCrLf exécutez :

Dim n%
n = InStrRev(TextBox1, vbCr)
If n Then TextBox1 = Left(TextBox1, n - 1)

Sinon je ne vois pas de solution.

A+

Bonjour et merci du temps passé
Je n'ai pas de double caractère vbCrLf
La solution de P56 marche sur mon fichier ou j'avais la dernière ligne de ma tbx qui était vide
j'ai juste remplacé
Me.TextBox5.Value = Left(S, Len(S) - 1) par Me.TextBox5.Value = Left(S, Len(S) - 2)
et cela fonctionne
Bonne journée

 

[job75]

Je n'ai pas de double caractère vbCrLf

Ce double caractère se met tout seul dans la TextBox quand on fair Ctrl+Entrée (retour chariot).

S'il n'y a pas ce double caractère entre les lignes ni le code de p56 ni le mien ne fonctionnent.

 

[youguybass]

Ce double caractère se met tout seul dans la TextBox quand on fair Ctrl+Entrée (retour chariot).

S'il n'y a pas ce double caractère entre les lignes ni le code de p56 ni le mien ne fonctionnent.

J'ai intégré votre code a mon fichier et celui-ci marche également😉

Merci

 

[job75]

J'ai intégré votre code a mon fichier et celui-ci marche également😉

Bien sûr sauf comme je l'ai dit s'il n'y a pas de retour chariot vbCrLf entre les lignes.