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.
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.
É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.