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

p56

XLDnaute Occasionnel

• 23 Février 2023

• #2

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 :

VB:

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.

 

Vote positif 0 Vote négatif

Y

youguybass

XLDnaute Junior

• 23 Février 2023

• #3

Parfait
Merci Bcp
slts

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Février 2023

• #4

Bonjour youguybass, p56, le forum,

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

VB:

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

Sinon je ne vois pas de solution.

A+

 

Vote positif 0 Vote négatif

Y

youguybass

XLDnaute Junior

• 23 Février 2023

• #5

job75 à dit:

Bonjour youguybass, p56, le forum,

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

VB:

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

Sinon je ne vois pas de solution.

A+

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Solution

job75

XLDnaute Barbatruc

• 23 Février 2023

• #6

youguybass à dit:

Je n'ai pas de double caractère vbCrLf

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif

Y

youguybass

XLDnaute Junior

• 23 Février 2023

• #7

job75 à dit:

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.

Cliquez pour agrandir...

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

Merci

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Février 2023

• #8

youguybass à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif