XL 2010 Boucle sur ligne d'un Textbox

[Temjeh]

Bonjour et bonne santé à tous!

Surement assez simple mais je ne trouve rien.
Dans le Textbox de mon Uf après un collage de texte il y a des lignes parasites.

Est-ce possible de supprimer toutes ligne du Textbox1 qui commence par un guillemet (")

Merci de votre temps

Claude

 

[job75]

Bonjour Temjeh,

Sub Epurer()
Dim s, i, x$
If TextBox1 = "" Then Exit Sub
s = Split(TextBox1, vbCrLf)
For i = 0 To UBound(s)
    If Left(s(i), 1) <> """" Then x = x & vbCrLf & s(i)
Next
TextBox1 = Mid(x, 3)
End Sub

La propriété MultiLine de la TextBox est bien sûr à True.

A+

 

[jmfmarques]

Bonjour

après un collage de texte

quel texte ? La logique étant d'ailleurs de traiter ce texte lui-même avant de l'insérer.

 

[Temjeh]

Merci beaucoup

Jm la logique est que je colle une adresse de mon client venant de Paypal.
Ensuite il le met dans mes facture.
Mais depuis une dernière mise à jour de Paypal, il ajoute ce mot "Adresse" en 2ème ligne

Très bon sauf qu'il m'ajoute une ligne vide en première ligne.

Merci
Claude

 

[job75]

Très bon sauf qu'il m'ajoute une ligne vide en première ligne.

Oui vbCrLf compte pour 2 caractères.

Donc au post #2 je viens de remplacer TextBox1 = Mid(x, 2) par TextBox1 = Mid(x, 3)

 

[Temjeh]

Merci Job, impeccable.

Évidemment des backspaces avec le clavier auraient fait l'affaire mais mon Userform sert justement à faire un ménage et mettre les données sur X nombres de lignes.


Bravo!

Claude