A placer sur l'évènement Change d'un TextBox nommé "ReportText" placé dans un Form...
Me.ReportText.SelLength = 0
If Len(Me.ReportText.Text) > 0 Then
If Right(Me.ReportText.Text, 1) = vbCrLf Then
Me.ReportText.SelStart = Len(Me.ReportText.Text) - 1
Exit Sub
End If
Me.ReportText.SelStart = Len(Me.ReportText.Text)
End If
Me.ReportText.Refresh
Oh joie bonheur !
[jfdsdjhfuetppo]--Message édité par Kolf le 14-05-2002 à 13:36:23--[/jfdsdjhfuetppo]