Dim i As Integer Dim x As Integer If Right$(Text1.Text, 2) <> vbCrLf Then Text1.Text = Text1.Text & vbCrLf Text2 = "" For i = 1 To Len(Text1) x = InStr(i, Text1.Text, vbCrLf) If x > 0 Then If x - i > 0 Then Text2 = Text2 & Mid$(Text1.Text, i, x + 2 - i) End If i = x + 1 End If Next
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
114 internautes nous ont dit merci ce mois-ci
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.