Capter un évènement dans TextBox

[Arpette]

Bonsoir à toute et tous,
j'aimerais savoir si il est possible de capter un évènement d'un TextBox
ex: si multigne = true, on moment où le texte va passer à la ligne en dessous
Message "Tu change de ligne"
Merci de votre aide
@+

 

[Compte Supprimé 979]

Re : Capter un évènement dans TextBox

Bonjour Arpette,

Je pense qu'avec ça

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  If KeyAscii = (Code) Then
    MsgBox "Passage à la ligne"
  End If
End Sub

Ce doit être faisable, reste à trouver le code

A+

 

[Guest]

Re : Capter un évènement dans TextBox

Bonsoir,

Private Sub TextBox1_Change()
    Static nbLignes As Integer
    If TextBox1.LineCount > nbLignes Then
        nbLignes = TextBox1.LineCount
        If nbLignes > 1 Then MsgBox "Ajout d'une ligne"
    End If
End Sub

Plus efficace:

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Static oldCurLine As Integer
    With TextBox1
        If .CurLine <> oldCurLine Then
            MsgBox "Passage à la ligne " & .CurLine
            oldCurLine = .CurLine
        End If
    End With
End Sub

A+

 

[Arpette]

Re : Capter un évènement dans TextBox

Bonsoir Bruno, Hasco,
merci à tous les deux, j'ai pris la solution d'Hasco.
@+

 

[Guest]

Re : Capter un évènement dans TextBox

RE,

Tu as vu que j'avais modifié ma réponse précédente, avec un nouveau code?

A+